Bonjour,
J'essaie maintenant depuis quelques mois d'envoyer un mail via la
ligne de commande de Thunderbird. J'ai un peu cherché partout sur la
toile pour essayer de piger. Jusqu'à présent, j'arrive à ouvrir
Thunderbird et rentrer les données à l'exception du corps de message
avec le code suivant.
Sujet = "Sujet du message"
Msg = "Très long message de plusieurs lignes avec pleins de liens"
Shell Environ("programfiles") & "Mozilla Thunderbird
thunderbird.exe -compose to=" & _
DestN & ",subject=" & Sujet & ",attachment='file:///" &
CONF.Cells(56, 3).Value & "'" & _
",body=" & Msg
Le corps de texte ne rentre qu'en partie (une centaine de caractères
seulement). Je me suis dit que c'est thunderbird qui limite alors je
me suis dit de passer par sendkeys faisant un CTRL+V après une copie
en cache.
Vu qu'en manuel ca marche très bien, pourquoi ne pas le faire par
cette méthode.
J'ai mis donc le code suivant :
Sujet = "Sujet du message"
Msg = "Très long message de plusieurs lignes avec pleins de liens"
Shell Environ("programfiles") & "Mozilla Thunderbird
thunderbird.exe -compose to=" & _
DestN & ",subject=" & Sujet & ",attachment='file:///" &
CONF.Cells(56, 3).Value & "'"
dim MyDataObj as New DataObject
MyDataObj.settext Format(Msg)
MyDataObj.PutInClipboard
Application.wait (Now() +TimeValue("00:00:02"))
Sendkeys "^V"
Et là j'ai le me problème : une centaine de caractères seulement
copiés.
Donc, Excel ne permet de copier qu'un certain nombre de caractères ?
Je n'arrive pas à comprendre. Si vous avez une idée qui me permettrait
d'avancer SVP ?
Bonjour,
J'essaie maintenant depuis quelques mois d'envoyer un mail via la
ligne de commande de Thunderbird. J'ai un peu cherché partout sur la
toile pour essayer de piger. Jusqu'à présent, j'arrive à ouvrir
Thunderbird et rentrer les données à l'exception du corps de message
avec le code suivant.
Sujet = "Sujet du message"
Msg = "Très long message de plusieurs lignes avec pleins de liens"
Shell Environ("programfiles") & "Mozilla Thunderbird
thunderbird.exe -compose to=" & _
DestN & ",subject=" & Sujet & ",attachment='file:///" &
CONF.Cells(56, 3).Value & "'" & _
",body=" & Msg
Le corps de texte ne rentre qu'en partie (une centaine de caractères
seulement). Je me suis dit que c'est thunderbird qui limite alors je
me suis dit de passer par sendkeys faisant un CTRL+V après une copie
en cache.
Vu qu'en manuel ca marche très bien, pourquoi ne pas le faire par
cette méthode.
J'ai mis donc le code suivant :
Sujet = "Sujet du message"
Msg = "Très long message de plusieurs lignes avec pleins de liens"
Shell Environ("programfiles") & "Mozilla Thunderbird
thunderbird.exe -compose to=" & _
DestN & ",subject=" & Sujet & ",attachment='file:///" &
CONF.Cells(56, 3).Value & "'"
dim MyDataObj as New DataObject
MyDataObj.settext Format(Msg)
MyDataObj.PutInClipboard
Application.wait (Now() +TimeValue("00:00:02"))
Sendkeys "^V"
Et là j'ai le me problème : une centaine de caractères seulement
copiés.
Donc, Excel ne permet de copier qu'un certain nombre de caractères ?
Je n'arrive pas à comprendre. Si vous avez une idée qui me permettrait
d'avancer SVP ?
Bonjour,
J'essaie maintenant depuis quelques mois d'envoyer un mail via la
ligne de commande de Thunderbird. J'ai un peu cherché partout sur la
toile pour essayer de piger. Jusqu'à présent, j'arrive à ouvrir
Thunderbird et rentrer les données à l'exception du corps de message
avec le code suivant.
Sujet = "Sujet du message"
Msg = "Très long message de plusieurs lignes avec pleins de liens"
Shell Environ("programfiles") & "Mozilla Thunderbird
thunderbird.exe -compose to=" & _
DestN & ",subject=" & Sujet & ",attachment='file:///" &
CONF.Cells(56, 3).Value & "'" & _
",body=" & Msg
Le corps de texte ne rentre qu'en partie (une centaine de caractères
seulement). Je me suis dit que c'est thunderbird qui limite alors je
me suis dit de passer par sendkeys faisant un CTRL+V après une copie
en cache.
Vu qu'en manuel ca marche très bien, pourquoi ne pas le faire par
cette méthode.
J'ai mis donc le code suivant :
Sujet = "Sujet du message"
Msg = "Très long message de plusieurs lignes avec pleins de liens"
Shell Environ("programfiles") & "Mozilla Thunderbird
thunderbird.exe -compose to=" & _
DestN & ",subject=" & Sujet & ",attachment='file:///" &
CONF.Cells(56, 3).Value & "'"
dim MyDataObj as New DataObject
MyDataObj.settext Format(Msg)
MyDataObj.PutInClipboard
Application.wait (Now() +TimeValue("00:00:02"))
Sendkeys "^V"
Et là j'ai le me problème : une centaine de caractères seulement
copiés.
Donc, Excel ne permet de copier qu'un certain nombre de caractères ?
Je n'arrive pas à comprendre. Si vous avez une idée qui me permettrait
d'avancer SVP ?
Bonsoir,
Avec ton code (le premier) ni Excel ni Thunderbird ne font la moindre dif ficulté
pour envoyer/accepter un message de plusieurs centaines de caractères.
Pour essayer de reproduire ton pb, j'ai bricolé cette petite procédur e :
Sub essai()
Dim Msg, Sujet, DestN, PieceJ
Sujet = "Sujet du message"
DestN = ""
PieceJ = "J: 0ExemplesEtTeststeststestzaza3test1.doc"
Msg = "Très long message de plusieurs lignes avec pleins de li ens" & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg
Shell Environ("programfiles") & "Mozilla Thunderbirdthunderb ird.exe
-compose to=" & _
DestN & ",subject=" & Sujet & ",attachment='file:///" & PieceJ & "'" &
",body=" & Msg
End Sub
(Excel 2003)
FS
---
Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
dunkelzahna écrit :
> Bonjour,
> J'essaie maintenant depuis quelques mois d'envoyer un mail via la
> ligne de commande de Thunderbird. J'ai un peu cherché partout sur la
> toile pour essayer de piger. Jusqu'à présent, j'arrive à ouvrir
> Thunderbird et rentrer les données à l'exception du corps de messag e
> avec le code suivant.
> Sujet = "Sujet du message"
> Msg = "Très long message de plusieurs lignes avec pleins de liens"
> Shell Environ("programfiles") & "Mozilla Thunderbird
> thunderbird.exe -compose to=" & _
> DestN & ",subject=" & Sujet & ",attachment='file:///" &
> CONF.Cells(56, 3).Value & "'" & _
> ",body=" & Msg
> Le corps de texte ne rentre qu'en partie (une centaine de caractères
> seulement). Je me suis dit que c'est thunderbird qui limite alors je
> me suis dit de passer par sendkeys faisant un CTRL+V après une copie
> en cache.
> Vu qu'en manuel ca marche très bien, pourquoi ne pas le faire par
> cette méthode.
> J'ai mis donc le code suivant :
> Sujet = "Sujet du message"
> Msg = "Très long message de plusieurs lignes avec pleins de liens"
> Shell Environ("programfiles") & "Mozilla Thunderbird
> thunderbird.exe -compose to=" & _
> DestN & ",subject=" & Sujet & ",attachment='file:///" &
> CONF.Cells(56, 3).Value & "'"
> dim MyDataObj as New DataObject
> MyDataObj.settext Format(Msg)
> MyDataObj.PutInClipboard
> Application.wait (Now() +TimeValue("00:00:02"))
> Sendkeys "^V"
> Et là j'ai le me problème : une centaine de caractères seulement
> copiés.
> Donc, Excel ne permet de copier qu'un certain nombre de caractères ?
> Je n'arrive pas à comprendre. Si vous avez une idée qui me permettr ait
> d'avancer SVP ?- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir,
Avec ton code (le premier) ni Excel ni Thunderbird ne font la moindre dif ficulté
pour envoyer/accepter un message de plusieurs centaines de caractères.
Pour essayer de reproduire ton pb, j'ai bricolé cette petite procédur e :
Sub essai()
Dim Msg, Sujet, DestN, PieceJ
Sujet = "Sujet du message"
DestN = "moncourr...@free.fr"
PieceJ = "J: 0ExemplesEtTeststeststestzaza3test1.doc"
Msg = "Très long message de plusieurs lignes avec pleins de li ens" & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg
Shell Environ("programfiles") & "Mozilla Thunderbirdthunderb ird.exe
-compose to=" & _
DestN & ",subject=" & Sujet & ",attachment='file:///" & PieceJ & "'" &
",body=" & Msg
End Sub
(Excel 2003)
FS
---
Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
dunkelzahna écrit :
> Bonjour,
> J'essaie maintenant depuis quelques mois d'envoyer un mail via la
> ligne de commande de Thunderbird. J'ai un peu cherché partout sur la
> toile pour essayer de piger. Jusqu'à présent, j'arrive à ouvrir
> Thunderbird et rentrer les données à l'exception du corps de messag e
> avec le code suivant.
> Sujet = "Sujet du message"
> Msg = "Très long message de plusieurs lignes avec pleins de liens"
> Shell Environ("programfiles") & "Mozilla Thunderbird
> thunderbird.exe -compose to=" & _
> DestN & ",subject=" & Sujet & ",attachment='file:///" &
> CONF.Cells(56, 3).Value & "'" & _
> ",body=" & Msg
> Le corps de texte ne rentre qu'en partie (une centaine de caractères
> seulement). Je me suis dit que c'est thunderbird qui limite alors je
> me suis dit de passer par sendkeys faisant un CTRL+V après une copie
> en cache.
> Vu qu'en manuel ca marche très bien, pourquoi ne pas le faire par
> cette méthode.
> J'ai mis donc le code suivant :
> Sujet = "Sujet du message"
> Msg = "Très long message de plusieurs lignes avec pleins de liens"
> Shell Environ("programfiles") & "Mozilla Thunderbird
> thunderbird.exe -compose to=" & _
> DestN & ",subject=" & Sujet & ",attachment='file:///" &
> CONF.Cells(56, 3).Value & "'"
> dim MyDataObj as New DataObject
> MyDataObj.settext Format(Msg)
> MyDataObj.PutInClipboard
> Application.wait (Now() +TimeValue("00:00:02"))
> Sendkeys "^V"
> Et là j'ai le me problème : une centaine de caractères seulement
> copiés.
> Donc, Excel ne permet de copier qu'un certain nombre de caractères ?
> Je n'arrive pas à comprendre. Si vous avez une idée qui me permettr ait
> d'avancer SVP ?- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir,
Avec ton code (le premier) ni Excel ni Thunderbird ne font la moindre dif ficulté
pour envoyer/accepter un message de plusieurs centaines de caractères.
Pour essayer de reproduire ton pb, j'ai bricolé cette petite procédur e :
Sub essai()
Dim Msg, Sujet, DestN, PieceJ
Sujet = "Sujet du message"
DestN = ""
PieceJ = "J: 0ExemplesEtTeststeststestzaza3test1.doc"
Msg = "Très long message de plusieurs lignes avec pleins de li ens" & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg
Shell Environ("programfiles") & "Mozilla Thunderbirdthunderb ird.exe
-compose to=" & _
DestN & ",subject=" & Sujet & ",attachment='file:///" & PieceJ & "'" &
",body=" & Msg
End Sub
(Excel 2003)
FS
---
Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
dunkelzahna écrit :
> Bonjour,
> J'essaie maintenant depuis quelques mois d'envoyer un mail via la
> ligne de commande de Thunderbird. J'ai un peu cherché partout sur la
> toile pour essayer de piger. Jusqu'à présent, j'arrive à ouvrir
> Thunderbird et rentrer les données à l'exception du corps de messag e
> avec le code suivant.
> Sujet = "Sujet du message"
> Msg = "Très long message de plusieurs lignes avec pleins de liens"
> Shell Environ("programfiles") & "Mozilla Thunderbird
> thunderbird.exe -compose to=" & _
> DestN & ",subject=" & Sujet & ",attachment='file:///" &
> CONF.Cells(56, 3).Value & "'" & _
> ",body=" & Msg
> Le corps de texte ne rentre qu'en partie (une centaine de caractères
> seulement). Je me suis dit que c'est thunderbird qui limite alors je
> me suis dit de passer par sendkeys faisant un CTRL+V après une copie
> en cache.
> Vu qu'en manuel ca marche très bien, pourquoi ne pas le faire par
> cette méthode.
> J'ai mis donc le code suivant :
> Sujet = "Sujet du message"
> Msg = "Très long message de plusieurs lignes avec pleins de liens"
> Shell Environ("programfiles") & "Mozilla Thunderbird
> thunderbird.exe -compose to=" & _
> DestN & ",subject=" & Sujet & ",attachment='file:///" &
> CONF.Cells(56, 3).Value & "'"
> dim MyDataObj as New DataObject
> MyDataObj.settext Format(Msg)
> MyDataObj.PutInClipboard
> Application.wait (Now() +TimeValue("00:00:02"))
> Sendkeys "^V"
> Et là j'ai le me problème : une centaine de caractères seulement
> copiés.
> Donc, Excel ne permet de copier qu'un certain nombre de caractères ?
> Je n'arrive pas à comprendre. Si vous avez une idée qui me permettr ait
> d'avancer SVP ?- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Hello
Merci pour la réponse. Quand je disais un long texte, j'ai vérifié et
mon texte contient plus de 2000 caractères. Et la ligne Wscript.shell
ne semble accepter que jusque 255 caractères pour ce paramètre.
IUl n'y a pas un autre moyen pour éviter ce ecueil ?
On 28 juil, 21:10, Frédéric Sigonneau wrote:Bonsoir,
Avec ton code (le premier) ni Excel ni Thunderbird ne font la moindre difficulté
pour envoyer/accepter un message de plusieurs centaines de caractères.
Pour essayer de reproduire ton pb, j'ai bricolé cette petite procédure :
Sub essai()
Dim Msg, Sujet, DestN, PieceJ
Sujet = "Sujet du message"
DestN = ""
PieceJ = "J: 0ExemplesEtTeststeststestzaza3test1.doc"
Msg = "Très long message de plusieurs lignes avec pleins de liens" & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg
Shell Environ("programfiles") & "Mozilla Thunderbirdthunderbird.exe
-compose to=" & _
DestN & ",subject=" & Sujet & ",attachment='file:///" & PieceJ & "'" &
",body=" & Msg
End Sub
(Excel 2003)
FS
---
Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
dunkelzahna écrit :Bonjour,
J'essaie maintenant depuis quelques mois d'envoyer un mail via la
ligne de commande de Thunderbird. J'ai un peu cherché partout sur la
toile pour essayer de piger. Jusqu'à présent, j'arrive à ouvrir
Thunderbird et rentrer les données à l'exception du corps de message
avec le code suivant.
Sujet = "Sujet du message"
Msg = "Très long message de plusieurs lignes avec pleins de liens"
Shell Environ("programfiles") & "Mozilla Thunderbird
thunderbird.exe -compose to=" & _
DestN & ",subject=" & Sujet & ",attachment='file:///" &
CONF.Cells(56, 3).Value & "'" & _
",body=" & Msg
Le corps de texte ne rentre qu'en partie (une centaine de caractères
seulement). Je me suis dit que c'est thunderbird qui limite alors je
me suis dit de passer par sendkeys faisant un CTRL+V après une copie
en cache.
Vu qu'en manuel ca marche très bien, pourquoi ne pas le faire par
cette méthode.
J'ai mis donc le code suivant :
Sujet = "Sujet du message"
Msg = "Très long message de plusieurs lignes avec pleins de liens"
Shell Environ("programfiles") & "Mozilla Thunderbird
thunderbird.exe -compose to=" & _
DestN & ",subject=" & Sujet & ",attachment='file:///" &
CONF.Cells(56, 3).Value & "'"
dim MyDataObj as New DataObject
MyDataObj.settext Format(Msg)
MyDataObj.PutInClipboard
Application.wait (Now() +TimeValue("00:00:02"))
Sendkeys "^V"
Et là j'ai le me problème : une centaine de caractères seulement
copiés.
Donc, Excel ne permet de copier qu'un certain nombre de caractères ?
Je n'arrive pas à comprendre. Si vous avez une idée qui me permettrait
d'avancer SVP ?- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Hello
Merci pour la réponse. Quand je disais un long texte, j'ai vérifié et
mon texte contient plus de 2000 caractères. Et la ligne Wscript.shell
ne semble accepter que jusque 255 caractères pour ce paramètre.
IUl n'y a pas un autre moyen pour éviter ce ecueil ?
On 28 juil, 21:10, Frédéric Sigonneau <nospam@nospam> wrote:
Bonsoir,
Avec ton code (le premier) ni Excel ni Thunderbird ne font la moindre difficulté
pour envoyer/accepter un message de plusieurs centaines de caractères.
Pour essayer de reproduire ton pb, j'ai bricolé cette petite procédure :
Sub essai()
Dim Msg, Sujet, DestN, PieceJ
Sujet = "Sujet du message"
DestN = "moncourr...@free.fr"
PieceJ = "J: 0ExemplesEtTeststeststestzaza3test1.doc"
Msg = "Très long message de plusieurs lignes avec pleins de liens" & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg
Shell Environ("programfiles") & "Mozilla Thunderbirdthunderbird.exe
-compose to=" & _
DestN & ",subject=" & Sujet & ",attachment='file:///" & PieceJ & "'" &
",body=" & Msg
End Sub
(Excel 2003)
FS
---
Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
dunkelzahna écrit :
Bonjour,
J'essaie maintenant depuis quelques mois d'envoyer un mail via la
ligne de commande de Thunderbird. J'ai un peu cherché partout sur la
toile pour essayer de piger. Jusqu'à présent, j'arrive à ouvrir
Thunderbird et rentrer les données à l'exception du corps de message
avec le code suivant.
Sujet = "Sujet du message"
Msg = "Très long message de plusieurs lignes avec pleins de liens"
Shell Environ("programfiles") & "Mozilla Thunderbird
thunderbird.exe -compose to=" & _
DestN & ",subject=" & Sujet & ",attachment='file:///" &
CONF.Cells(56, 3).Value & "'" & _
",body=" & Msg
Le corps de texte ne rentre qu'en partie (une centaine de caractères
seulement). Je me suis dit que c'est thunderbird qui limite alors je
me suis dit de passer par sendkeys faisant un CTRL+V après une copie
en cache.
Vu qu'en manuel ca marche très bien, pourquoi ne pas le faire par
cette méthode.
J'ai mis donc le code suivant :
Sujet = "Sujet du message"
Msg = "Très long message de plusieurs lignes avec pleins de liens"
Shell Environ("programfiles") & "Mozilla Thunderbird
thunderbird.exe -compose to=" & _
DestN & ",subject=" & Sujet & ",attachment='file:///" &
CONF.Cells(56, 3).Value & "'"
dim MyDataObj as New DataObject
MyDataObj.settext Format(Msg)
MyDataObj.PutInClipboard
Application.wait (Now() +TimeValue("00:00:02"))
Sendkeys "^V"
Et là j'ai le me problème : une centaine de caractères seulement
copiés.
Donc, Excel ne permet de copier qu'un certain nombre de caractères ?
Je n'arrive pas à comprendre. Si vous avez une idée qui me permettrait
d'avancer SVP ?- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Hello
Merci pour la réponse. Quand je disais un long texte, j'ai vérifié et
mon texte contient plus de 2000 caractères. Et la ligne Wscript.shell
ne semble accepter que jusque 255 caractères pour ce paramètre.
IUl n'y a pas un autre moyen pour éviter ce ecueil ?
On 28 juil, 21:10, Frédéric Sigonneau wrote:Bonsoir,
Avec ton code (le premier) ni Excel ni Thunderbird ne font la moindre difficulté
pour envoyer/accepter un message de plusieurs centaines de caractères.
Pour essayer de reproduire ton pb, j'ai bricolé cette petite procédure :
Sub essai()
Dim Msg, Sujet, DestN, PieceJ
Sujet = "Sujet du message"
DestN = ""
PieceJ = "J: 0ExemplesEtTeststeststestzaza3test1.doc"
Msg = "Très long message de plusieurs lignes avec pleins de liens" & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg & vbCrLf
Msg = Msg & Msg
Shell Environ("programfiles") & "Mozilla Thunderbirdthunderbird.exe
-compose to=" & _
DestN & ",subject=" & Sujet & ",attachment='file:///" & PieceJ & "'" &
",body=" & Msg
End Sub
(Excel 2003)
FS
---
Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
dunkelzahna écrit :Bonjour,
J'essaie maintenant depuis quelques mois d'envoyer un mail via la
ligne de commande de Thunderbird. J'ai un peu cherché partout sur la
toile pour essayer de piger. Jusqu'à présent, j'arrive à ouvrir
Thunderbird et rentrer les données à l'exception du corps de message
avec le code suivant.
Sujet = "Sujet du message"
Msg = "Très long message de plusieurs lignes avec pleins de liens"
Shell Environ("programfiles") & "Mozilla Thunderbird
thunderbird.exe -compose to=" & _
DestN & ",subject=" & Sujet & ",attachment='file:///" &
CONF.Cells(56, 3).Value & "'" & _
",body=" & Msg
Le corps de texte ne rentre qu'en partie (une centaine de caractères
seulement). Je me suis dit que c'est thunderbird qui limite alors je
me suis dit de passer par sendkeys faisant un CTRL+V après une copie
en cache.
Vu qu'en manuel ca marche très bien, pourquoi ne pas le faire par
cette méthode.
J'ai mis donc le code suivant :
Sujet = "Sujet du message"
Msg = "Très long message de plusieurs lignes avec pleins de liens"
Shell Environ("programfiles") & "Mozilla Thunderbird
thunderbird.exe -compose to=" & _
DestN & ",subject=" & Sujet & ",attachment='file:///" &
CONF.Cells(56, 3).Value & "'"
dim MyDataObj as New DataObject
MyDataObj.settext Format(Msg)
MyDataObj.PutInClipboard
Application.wait (Now() +TimeValue("00:00:02"))
Sendkeys "^V"
Et là j'ai le me problème : une centaine de caractères seulement
copiés.
Donc, Excel ne permet de copier qu'un certain nombre de caractères ?
Je n'arrive pas à comprendre. Si vous avez une idée qui me permettrait
d'avancer SVP ?- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir,
La variable Msg de la petite procédure que j'ai utilisée pour tester (Sub
essai), contient plus de 3600 caractères et je n'ai aucune difficulté pour
l'envoyer dans le corps d'un courriel. Pas de message d'alerte, ni d'Exce l ni de
Thunderbird..
Mais peut-être qu'il me manque des éléments ! Tu parles d'une comma nde de script
(Wscript.shell) qui n'apparaît pas dans ton code de départ ni, du cou p, dans
celui que j'ai utilisé pour tester. Dans ce code c'est la fonction VBA Shell qui
ouvre Thunderbird avec la ligne de commande appropriée pour composer un message.
Donc, ??
FS
---
Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
dunkelzahn a écrit :
> Hello
> Merci pour la réponse. Quand je disais un long texte, j'ai vérifi é et
> mon texte contient plus de 2000 caractères. Et la ligne Wscript.shell
> ne semble accepter que jusque 255 caractères pour ce paramètre.
> IUl n'y a pas un autre moyen pour éviter ce ecueil ?
> On 28 juil, 21:10, Frédéric Sigonneau wrote:
>> Bonsoir,
>> Avec ton code (le premier) ni Excel ni Thunderbird ne font la moindre difficulté
>> pour envoyer/accepter un message de plusieurs centaines de caractère s.
>> Pour essayer de reproduire ton pb, j'ai bricolé cette petite procé dure :
>> Sub essai()
>> Dim Msg, Sujet, DestN, PieceJ
>> Sujet = "Sujet du message"
>> DestN = ""
>> PieceJ = "J: 0ExemplesEtTeststeststestzaza3test1.doc"
>> Msg = "Très long message de plusieurs lignes avec pleins de liens" & vbCrLf
>> Msg = Msg & Msg & vbCrLf
>> Msg = Msg & Msg & vbCrLf
>> Msg = Msg & Msg & vbCrLf
>> Msg = Msg & Msg & vbCrLf
>> Msg = Msg & Msg & vbCrLf
>> Msg = Msg & Msg
>> Shell Environ("programfiles") & "Mozilla Thunderbirdthund erbird.exe
>> -compose to=" & _
>> DestN & ",subject=" & Sujet & ",attachment='file:// /" & PieceJ & "'" &
>> ",body=" & Msg
>> End Sub
>> (Excel 2003)
>> FS
>> ---
>> Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
>> dunkelzahna écrit :
>>> Bonjour,
>>> J'essaie maintenant depuis quelques mois d'envoyer un mail via la
>>> ligne de commande de Thunderbird. J'ai un peu cherché partout sur l a
>>> toile pour essayer de piger. Jusqu'à présent, j'arrive à ouvrir
>>> Thunderbird et rentrer les données à l'exception du corps de mess age
>>> avec le code suivant.
>>> Sujet = "Sujet du message"
>>> Msg = "Très long message de plusieurs lignes avec pleins de liens "
>>> Shell Environ("programfiles") & "Mozilla Thunderbird
>>> thunderbird.exe -compose to=" & _
>>> DestN & ",subject=" & Sujet & ",attachment='file:///" &
>>> CONF.Cells(56, 3).Value & "'" & _
>>> ",body=" & Msg
>>> Le corps de texte ne rentre qu'en partie (une centaine de caractère s
>>> seulement). Je me suis dit que c'est thunderbird qui limite alors je
>>> me suis dit de passer par sendkeys faisant un CTRL+V après une copi e
>>> en cache.
>>> Vu qu'en manuel ca marche très bien, pourquoi ne pas le faire par
>>> cette méthode.
>>> J'ai mis donc le code suivant :
>>> Sujet = "Sujet du message"
>>> Msg = "Très long message de plusieurs lignes avec pleins de liens "
>>> Shell Environ("programfiles") & "Mozilla Thunderbird
>>> thunderbird.exe -compose to=" & _
>>> DestN & ",subject=" & Sujet & ",attachment='file:///" &
>>> CONF.Cells(56, 3).Value & "'"
>>> dim MyDataObj as New DataObject
>>> MyDataObj.settext Format(Msg)
>>> MyDataObj.PutInClipboard
>>> Application.wait (Now() +TimeValue("00:00:02"))
>>> Sendkeys "^V"
>>> Et là j'ai le me problème : une centaine de caractères seulemen t
>>> copiés.
>>> Donc, Excel ne permet de copier qu'un certain nombre de caractères ?
>>> Je n'arrive pas à comprendre. Si vous avez une idée qui me permet trait
>>> d'avancer SVP ?- Masquer le texte des messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Bonsoir,
La variable Msg de la petite procédure que j'ai utilisée pour tester (Sub
essai), contient plus de 3600 caractères et je n'ai aucune difficulté pour
l'envoyer dans le corps d'un courriel. Pas de message d'alerte, ni d'Exce l ni de
Thunderbird..
Mais peut-être qu'il me manque des éléments ! Tu parles d'une comma nde de script
(Wscript.shell) qui n'apparaît pas dans ton code de départ ni, du cou p, dans
celui que j'ai utilisé pour tester. Dans ce code c'est la fonction VBA Shell qui
ouvre Thunderbird avec la ligne de commande appropriée pour composer un message.
Donc, ??
FS
---
Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
dunkelzahn a écrit :
> Hello
> Merci pour la réponse. Quand je disais un long texte, j'ai vérifi é et
> mon texte contient plus de 2000 caractères. Et la ligne Wscript.shell
> ne semble accepter que jusque 255 caractères pour ce paramètre.
> IUl n'y a pas un autre moyen pour éviter ce ecueil ?
> On 28 juil, 21:10, Frédéric Sigonneau <nospam@nospam> wrote:
>> Bonsoir,
>> Avec ton code (le premier) ni Excel ni Thunderbird ne font la moindre difficulté
>> pour envoyer/accepter un message de plusieurs centaines de caractère s.
>> Pour essayer de reproduire ton pb, j'ai bricolé cette petite procé dure :
>> Sub essai()
>> Dim Msg, Sujet, DestN, PieceJ
>> Sujet = "Sujet du message"
>> DestN = "moncourr...@free.fr"
>> PieceJ = "J: 0ExemplesEtTeststeststestzaza3test1.doc"
>> Msg = "Très long message de plusieurs lignes avec pleins de liens" & vbCrLf
>> Msg = Msg & Msg & vbCrLf
>> Msg = Msg & Msg & vbCrLf
>> Msg = Msg & Msg & vbCrLf
>> Msg = Msg & Msg & vbCrLf
>> Msg = Msg & Msg & vbCrLf
>> Msg = Msg & Msg
>> Shell Environ("programfiles") & "Mozilla Thunderbirdthund erbird.exe
>> -compose to=" & _
>> DestN & ",subject=" & Sujet & ",attachment='file:// /" & PieceJ & "'" &
>> ",body=" & Msg
>> End Sub
>> (Excel 2003)
>> FS
>> ---
>> Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
>> dunkelzahna écrit :
>>> Bonjour,
>>> J'essaie maintenant depuis quelques mois d'envoyer un mail via la
>>> ligne de commande de Thunderbird. J'ai un peu cherché partout sur l a
>>> toile pour essayer de piger. Jusqu'à présent, j'arrive à ouvrir
>>> Thunderbird et rentrer les données à l'exception du corps de mess age
>>> avec le code suivant.
>>> Sujet = "Sujet du message"
>>> Msg = "Très long message de plusieurs lignes avec pleins de liens "
>>> Shell Environ("programfiles") & "Mozilla Thunderbird
>>> thunderbird.exe -compose to=" & _
>>> DestN & ",subject=" & Sujet & ",attachment='file:///" &
>>> CONF.Cells(56, 3).Value & "'" & _
>>> ",body=" & Msg
>>> Le corps de texte ne rentre qu'en partie (une centaine de caractère s
>>> seulement). Je me suis dit que c'est thunderbird qui limite alors je
>>> me suis dit de passer par sendkeys faisant un CTRL+V après une copi e
>>> en cache.
>>> Vu qu'en manuel ca marche très bien, pourquoi ne pas le faire par
>>> cette méthode.
>>> J'ai mis donc le code suivant :
>>> Sujet = "Sujet du message"
>>> Msg = "Très long message de plusieurs lignes avec pleins de liens "
>>> Shell Environ("programfiles") & "Mozilla Thunderbird
>>> thunderbird.exe -compose to=" & _
>>> DestN & ",subject=" & Sujet & ",attachment='file:///" &
>>> CONF.Cells(56, 3).Value & "'"
>>> dim MyDataObj as New DataObject
>>> MyDataObj.settext Format(Msg)
>>> MyDataObj.PutInClipboard
>>> Application.wait (Now() +TimeValue("00:00:02"))
>>> Sendkeys "^V"
>>> Et là j'ai le me problème : une centaine de caractères seulemen t
>>> copiés.
>>> Donc, Excel ne permet de copier qu'un certain nombre de caractères ?
>>> Je n'arrive pas à comprendre. Si vous avez une idée qui me permet trait
>>> d'avancer SVP ?- Masquer le texte des messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Bonsoir,
La variable Msg de la petite procédure que j'ai utilisée pour tester (Sub
essai), contient plus de 3600 caractères et je n'ai aucune difficulté pour
l'envoyer dans le corps d'un courriel. Pas de message d'alerte, ni d'Exce l ni de
Thunderbird..
Mais peut-être qu'il me manque des éléments ! Tu parles d'une comma nde de script
(Wscript.shell) qui n'apparaît pas dans ton code de départ ni, du cou p, dans
celui que j'ai utilisé pour tester. Dans ce code c'est la fonction VBA Shell qui
ouvre Thunderbird avec la ligne de commande appropriée pour composer un message.
Donc, ??
FS
---
Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
dunkelzahn a écrit :
> Hello
> Merci pour la réponse. Quand je disais un long texte, j'ai vérifi é et
> mon texte contient plus de 2000 caractères. Et la ligne Wscript.shell
> ne semble accepter que jusque 255 caractères pour ce paramètre.
> IUl n'y a pas un autre moyen pour éviter ce ecueil ?
> On 28 juil, 21:10, Frédéric Sigonneau wrote:
>> Bonsoir,
>> Avec ton code (le premier) ni Excel ni Thunderbird ne font la moindre difficulté
>> pour envoyer/accepter un message de plusieurs centaines de caractère s.
>> Pour essayer de reproduire ton pb, j'ai bricolé cette petite procé dure :
>> Sub essai()
>> Dim Msg, Sujet, DestN, PieceJ
>> Sujet = "Sujet du message"
>> DestN = ""
>> PieceJ = "J: 0ExemplesEtTeststeststestzaza3test1.doc"
>> Msg = "Très long message de plusieurs lignes avec pleins de liens" & vbCrLf
>> Msg = Msg & Msg & vbCrLf
>> Msg = Msg & Msg & vbCrLf
>> Msg = Msg & Msg & vbCrLf
>> Msg = Msg & Msg & vbCrLf
>> Msg = Msg & Msg & vbCrLf
>> Msg = Msg & Msg
>> Shell Environ("programfiles") & "Mozilla Thunderbirdthund erbird.exe
>> -compose to=" & _
>> DestN & ",subject=" & Sujet & ",attachment='file:// /" & PieceJ & "'" &
>> ",body=" & Msg
>> End Sub
>> (Excel 2003)
>> FS
>> ---
>> Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
>> dunkelzahna écrit :
>>> Bonjour,
>>> J'essaie maintenant depuis quelques mois d'envoyer un mail via la
>>> ligne de commande de Thunderbird. J'ai un peu cherché partout sur l a
>>> toile pour essayer de piger. Jusqu'à présent, j'arrive à ouvrir
>>> Thunderbird et rentrer les données à l'exception du corps de mess age
>>> avec le code suivant.
>>> Sujet = "Sujet du message"
>>> Msg = "Très long message de plusieurs lignes avec pleins de liens "
>>> Shell Environ("programfiles") & "Mozilla Thunderbird
>>> thunderbird.exe -compose to=" & _
>>> DestN & ",subject=" & Sujet & ",attachment='file:///" &
>>> CONF.Cells(56, 3).Value & "'" & _
>>> ",body=" & Msg
>>> Le corps de texte ne rentre qu'en partie (une centaine de caractère s
>>> seulement). Je me suis dit que c'est thunderbird qui limite alors je
>>> me suis dit de passer par sendkeys faisant un CTRL+V après une copi e
>>> en cache.
>>> Vu qu'en manuel ca marche très bien, pourquoi ne pas le faire par
>>> cette méthode.
>>> J'ai mis donc le code suivant :
>>> Sujet = "Sujet du message"
>>> Msg = "Très long message de plusieurs lignes avec pleins de liens "
>>> Shell Environ("programfiles") & "Mozilla Thunderbird
>>> thunderbird.exe -compose to=" & _
>>> DestN & ",subject=" & Sujet & ",attachment='file:///" &
>>> CONF.Cells(56, 3).Value & "'"
>>> dim MyDataObj as New DataObject
>>> MyDataObj.settext Format(Msg)
>>> MyDataObj.PutInClipboard
>>> Application.wait (Now() +TimeValue("00:00:02"))
>>> Sendkeys "^V"
>>> Et là j'ai le me problème : une centaine de caractères seulemen t
>>> copiés.
>>> Donc, Excel ne permet de copier qu'un certain nombre de caractères ?
>>> Je n'arrive pas à comprendre. Si vous avez une idée qui me permet trait
>>> d'avancer SVP ?- Masquer le texte des messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Mes excuses les plus plates. J'ai assimilé la commande shell et
wscript.shell pensant que c'était la même chose. J'ai testé ton cod e
et tout va bien. Je vais revérifier s'il n'y a pas un souci dans le
texte que j'envoie et/ou dans le code employé. Il y a quelque chose
que je ne comprends pas. Peut être dans le fait que mes variables sont
initialisées en string alors que tu ne les définis pas dans ton code.
On 30 juil, 20:34, Frédéric Sigonneau wrote:
> Bonsoir,
> La variable Msg de la petite procédure que j'ai utilisée pour teste r (Sub
> essai), contient plus de 3600 caractères et je n'ai aucune difficult é pour
> l'envoyer dans le corps d'un courriel. Pas de message d'alerte, ni d'Ex cel ni de
> Thunderbird..
> Mais peut-être qu'il me manque des éléments ! Tu parles d'une com mande de script
> (Wscript.shell) qui n'apparaît pas dans ton code de départ ni, du c oup, dans
> celui que j'ai utilisé pour tester. Dans ce code c'est la fonction VB A Shell qui
> ouvre Thunderbird avec la ligne de commande appropriée pour composer un message.
> Donc, ??
> FS
> ---
> Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
> dunkelzahn a écrit :
> > Hello
> > Merci pour la réponse. Quand je disais un long texte, j'ai vérifi é et
> > mon texte contient plus de 2000 caractères. Et la ligne Wscript.she ll
> > ne semble accepter que jusque 255 caractères pour ce paramètre.
> > IUl n'y a pas un autre moyen pour éviter ce ecueil ?
> > On 28 juil, 21:10, Frédéric Sigonneau wrote:
> >> Bonsoir,
> >> Avec ton code (le premier) ni Excel ni Thunderbird ne font la moindr e difficulté
> >> pour envoyer/accepter un message de plusieurs centaines de caractè res.
> >> Pour essayer de reproduire ton pb, j'ai bricolé cette petite proc édure :
> >> Sub essai()
> >> Dim Msg, Sujet, DestN, PieceJ
> >> Sujet = "Sujet du message"
> >> DestN = ""
> >> PieceJ = "J: 0ExemplesEtTeststeststestzaza3test1.doc"
> >> Msg = "Très long message de plusieurs lignes avec pleins de liens" & vbCrLf
> >> Msg = Msg & Msg & vbCrLf
> >> Msg = Msg & Msg & vbCrLf
> >> Msg = Msg & Msg & vbCrLf
> >> Msg = Msg & Msg & vbCrLf
> >> Msg = Msg & Msg & vbCrLf
> >> Msg = Msg & Msg
> >> Shell Environ("programfiles") & "Mozilla Thunderbirdthu nderbird.exe
> >> -compose to=" & _
> >> DestN & ",subject=" & Sujet & ",attachment='file: ///" & PieceJ & "'" &
> >> ",body=" & Msg
> >> End Sub
> >> (Excel 2003)
> >> FS
> >> ---
> >> Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
> >> dunkelzahna écrit :
> >>> Bonjour,
> >>> J'essaie maintenant depuis quelques mois d'envoyer un mail via la
> >>> ligne de commande de Thunderbird. J'ai un peu cherché partout sur la
> >>> toile pour essayer de piger. Jusqu'à présent, j'arrive à ouvr ir
> >>> Thunderbird et rentrer les données à l'exception du corps de me ssage
> >>> avec le code suivant.
> >>> Sujet = "Sujet du message"
> >>> Msg = "Très long message de plusieurs lignes avec pleins de lie ns"
> >>> Shell Environ("programfiles") & "Mozilla Thunderbird
> >>> thunderbird.exe -compose to=" & _
> >>> DestN & ",subject=" & Sujet & ",attachment='file:// /" &
> >>> CONF.Cells(56, 3).Value & "'" & _
> >>> ",body=" & Msg
> >>> Le corps de texte ne rentre qu'en partie (une centaine de caractè res
> >>> seulement). Je me suis dit que c'est thunderbird qui limite alors j e
> >>> me suis dit de passer par sendkeys faisant un CTRL+V après une co pie
> >>> en cache.
> >>> Vu qu'en manuel ca marche très bien, pourquoi ne pas le faire par
> >>> cette méthode.
> >>> J'ai mis donc le code suivant :
> >>> Sujet = "Sujet du message"
> >>> Msg = "Très long message de plusieurs lignes avec pleins de lie ns"
> >>> Shell Environ("programfiles") & "Mozilla Thunderbird
> >>> thunderbird.exe -compose to=" & _
> >>> DestN & ",subject=" & Sujet & ",attachment='file:// /" &
> >>> CONF.Cells(56, 3).Value & "'"
> >>> dim MyDataObj as New DataObject
> >>> MyDataObj.settext Format(Msg)
> >>> MyDataObj.PutInClipboard
> >>> Application.wait (Now() +TimeValue("00:00:02"))
> >>> Sendkeys "^V"
> >>> Et là j'ai le me problème : une centaine de caractères seulem ent
> >>> copiés.
> >>> Donc, Excel ne permet de copier qu'un certain nombre de caractère s ?
> >>> Je n'arrive pas à comprendre. Si vous avez une idée qui me perm ettrait
> >>> d'avancer SVP ?- Masquer le texte des messages précédents -
> >> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Mes excuses les plus plates. J'ai assimilé la commande shell et
wscript.shell pensant que c'était la même chose. J'ai testé ton cod e
et tout va bien. Je vais revérifier s'il n'y a pas un souci dans le
texte que j'envoie et/ou dans le code employé. Il y a quelque chose
que je ne comprends pas. Peut être dans le fait que mes variables sont
initialisées en string alors que tu ne les définis pas dans ton code.
On 30 juil, 20:34, Frédéric Sigonneau <nospam@nospam> wrote:
> Bonsoir,
> La variable Msg de la petite procédure que j'ai utilisée pour teste r (Sub
> essai), contient plus de 3600 caractères et je n'ai aucune difficult é pour
> l'envoyer dans le corps d'un courriel. Pas de message d'alerte, ni d'Ex cel ni de
> Thunderbird..
> Mais peut-être qu'il me manque des éléments ! Tu parles d'une com mande de script
> (Wscript.shell) qui n'apparaît pas dans ton code de départ ni, du c oup, dans
> celui que j'ai utilisé pour tester. Dans ce code c'est la fonction VB A Shell qui
> ouvre Thunderbird avec la ligne de commande appropriée pour composer un message.
> Donc, ??
> FS
> ---
> Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
> dunkelzahn a écrit :
> > Hello
> > Merci pour la réponse. Quand je disais un long texte, j'ai vérifi é et
> > mon texte contient plus de 2000 caractères. Et la ligne Wscript.she ll
> > ne semble accepter que jusque 255 caractères pour ce paramètre.
> > IUl n'y a pas un autre moyen pour éviter ce ecueil ?
> > On 28 juil, 21:10, Frédéric Sigonneau <nospam@nospam> wrote:
> >> Bonsoir,
> >> Avec ton code (le premier) ni Excel ni Thunderbird ne font la moindr e difficulté
> >> pour envoyer/accepter un message de plusieurs centaines de caractè res.
> >> Pour essayer de reproduire ton pb, j'ai bricolé cette petite proc édure :
> >> Sub essai()
> >> Dim Msg, Sujet, DestN, PieceJ
> >> Sujet = "Sujet du message"
> >> DestN = "moncourr...@free.fr"
> >> PieceJ = "J: 0ExemplesEtTeststeststestzaza3test1.doc"
> >> Msg = "Très long message de plusieurs lignes avec pleins de liens" & vbCrLf
> >> Msg = Msg & Msg & vbCrLf
> >> Msg = Msg & Msg & vbCrLf
> >> Msg = Msg & Msg & vbCrLf
> >> Msg = Msg & Msg & vbCrLf
> >> Msg = Msg & Msg & vbCrLf
> >> Msg = Msg & Msg
> >> Shell Environ("programfiles") & "Mozilla Thunderbirdthu nderbird.exe
> >> -compose to=" & _
> >> DestN & ",subject=" & Sujet & ",attachment='file: ///" & PieceJ & "'" &
> >> ",body=" & Msg
> >> End Sub
> >> (Excel 2003)
> >> FS
> >> ---
> >> Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
> >> dunkelzahna écrit :
> >>> Bonjour,
> >>> J'essaie maintenant depuis quelques mois d'envoyer un mail via la
> >>> ligne de commande de Thunderbird. J'ai un peu cherché partout sur la
> >>> toile pour essayer de piger. Jusqu'à présent, j'arrive à ouvr ir
> >>> Thunderbird et rentrer les données à l'exception du corps de me ssage
> >>> avec le code suivant.
> >>> Sujet = "Sujet du message"
> >>> Msg = "Très long message de plusieurs lignes avec pleins de lie ns"
> >>> Shell Environ("programfiles") & "Mozilla Thunderbird
> >>> thunderbird.exe -compose to=" & _
> >>> DestN & ",subject=" & Sujet & ",attachment='file:// /" &
> >>> CONF.Cells(56, 3).Value & "'" & _
> >>> ",body=" & Msg
> >>> Le corps de texte ne rentre qu'en partie (une centaine de caractè res
> >>> seulement). Je me suis dit que c'est thunderbird qui limite alors j e
> >>> me suis dit de passer par sendkeys faisant un CTRL+V après une co pie
> >>> en cache.
> >>> Vu qu'en manuel ca marche très bien, pourquoi ne pas le faire par
> >>> cette méthode.
> >>> J'ai mis donc le code suivant :
> >>> Sujet = "Sujet du message"
> >>> Msg = "Très long message de plusieurs lignes avec pleins de lie ns"
> >>> Shell Environ("programfiles") & "Mozilla Thunderbird
> >>> thunderbird.exe -compose to=" & _
> >>> DestN & ",subject=" & Sujet & ",attachment='file:// /" &
> >>> CONF.Cells(56, 3).Value & "'"
> >>> dim MyDataObj as New DataObject
> >>> MyDataObj.settext Format(Msg)
> >>> MyDataObj.PutInClipboard
> >>> Application.wait (Now() +TimeValue("00:00:02"))
> >>> Sendkeys "^V"
> >>> Et là j'ai le me problème : une centaine de caractères seulem ent
> >>> copiés.
> >>> Donc, Excel ne permet de copier qu'un certain nombre de caractère s ?
> >>> Je n'arrive pas à comprendre. Si vous avez une idée qui me perm ettrait
> >>> d'avancer SVP ?- Masquer le texte des messages précédents -
> >> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Mes excuses les plus plates. J'ai assimilé la commande shell et
wscript.shell pensant que c'était la même chose. J'ai testé ton cod e
et tout va bien. Je vais revérifier s'il n'y a pas un souci dans le
texte que j'envoie et/ou dans le code employé. Il y a quelque chose
que je ne comprends pas. Peut être dans le fait que mes variables sont
initialisées en string alors que tu ne les définis pas dans ton code.
On 30 juil, 20:34, Frédéric Sigonneau wrote:
> Bonsoir,
> La variable Msg de la petite procédure que j'ai utilisée pour teste r (Sub
> essai), contient plus de 3600 caractères et je n'ai aucune difficult é pour
> l'envoyer dans le corps d'un courriel. Pas de message d'alerte, ni d'Ex cel ni de
> Thunderbird..
> Mais peut-être qu'il me manque des éléments ! Tu parles d'une com mande de script
> (Wscript.shell) qui n'apparaît pas dans ton code de départ ni, du c oup, dans
> celui que j'ai utilisé pour tester. Dans ce code c'est la fonction VB A Shell qui
> ouvre Thunderbird avec la ligne de commande appropriée pour composer un message.
> Donc, ??
> FS
> ---
> Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
> dunkelzahn a écrit :
> > Hello
> > Merci pour la réponse. Quand je disais un long texte, j'ai vérifi é et
> > mon texte contient plus de 2000 caractères. Et la ligne Wscript.she ll
> > ne semble accepter que jusque 255 caractères pour ce paramètre.
> > IUl n'y a pas un autre moyen pour éviter ce ecueil ?
> > On 28 juil, 21:10, Frédéric Sigonneau wrote:
> >> Bonsoir,
> >> Avec ton code (le premier) ni Excel ni Thunderbird ne font la moindr e difficulté
> >> pour envoyer/accepter un message de plusieurs centaines de caractè res.
> >> Pour essayer de reproduire ton pb, j'ai bricolé cette petite proc édure :
> >> Sub essai()
> >> Dim Msg, Sujet, DestN, PieceJ
> >> Sujet = "Sujet du message"
> >> DestN = ""
> >> PieceJ = "J: 0ExemplesEtTeststeststestzaza3test1.doc"
> >> Msg = "Très long message de plusieurs lignes avec pleins de liens" & vbCrLf
> >> Msg = Msg & Msg & vbCrLf
> >> Msg = Msg & Msg & vbCrLf
> >> Msg = Msg & Msg & vbCrLf
> >> Msg = Msg & Msg & vbCrLf
> >> Msg = Msg & Msg & vbCrLf
> >> Msg = Msg & Msg
> >> Shell Environ("programfiles") & "Mozilla Thunderbirdthu nderbird.exe
> >> -compose to=" & _
> >> DestN & ",subject=" & Sujet & ",attachment='file: ///" & PieceJ & "'" &
> >> ",body=" & Msg
> >> End Sub
> >> (Excel 2003)
> >> FS
> >> ---
> >> Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
> >> dunkelzahna écrit :
> >>> Bonjour,
> >>> J'essaie maintenant depuis quelques mois d'envoyer un mail via la
> >>> ligne de commande de Thunderbird. J'ai un peu cherché partout sur la
> >>> toile pour essayer de piger. Jusqu'à présent, j'arrive à ouvr ir
> >>> Thunderbird et rentrer les données à l'exception du corps de me ssage
> >>> avec le code suivant.
> >>> Sujet = "Sujet du message"
> >>> Msg = "Très long message de plusieurs lignes avec pleins de lie ns"
> >>> Shell Environ("programfiles") & "Mozilla Thunderbird
> >>> thunderbird.exe -compose to=" & _
> >>> DestN & ",subject=" & Sujet & ",attachment='file:// /" &
> >>> CONF.Cells(56, 3).Value & "'" & _
> >>> ",body=" & Msg
> >>> Le corps de texte ne rentre qu'en partie (une centaine de caractè res
> >>> seulement). Je me suis dit que c'est thunderbird qui limite alors j e
> >>> me suis dit de passer par sendkeys faisant un CTRL+V après une co pie
> >>> en cache.
> >>> Vu qu'en manuel ca marche très bien, pourquoi ne pas le faire par
> >>> cette méthode.
> >>> J'ai mis donc le code suivant :
> >>> Sujet = "Sujet du message"
> >>> Msg = "Très long message de plusieurs lignes avec pleins de lie ns"
> >>> Shell Environ("programfiles") & "Mozilla Thunderbird
> >>> thunderbird.exe -compose to=" & _
> >>> DestN & ",subject=" & Sujet & ",attachment='file:// /" &
> >>> CONF.Cells(56, 3).Value & "'"
> >>> dim MyDataObj as New DataObject
> >>> MyDataObj.settext Format(Msg)
> >>> MyDataObj.PutInClipboard
> >>> Application.wait (Now() +TimeValue("00:00:02"))
> >>> Sendkeys "^V"
> >>> Et là j'ai le me problème : une centaine de caractères seulem ent
> >>> copiés.
> >>> Donc, Excel ne permet de copier qu'un certain nombre de caractère s ?
> >>> Je n'arrive pas à comprendre. Si vous avez une idée qui me perm ettrait
> >>> d'avancer SVP ?- Masquer le texte des messages précédents -
> >> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -