VBA Envoi de mail avec Thunderbird et caractère avec accents

Re : VBA Envoi de mail avec Thunderbird et caractère avec accents

Bonjour,

j'ai eu ce rude problème à une époque et je me suis résolu à passe rà l'époque à Outlook ...

peut être une aide là bas ? https://forums.mozfr.org/viewtopic.php?t=113718

J'ai essayé ton code et si les "é" et les "è" passent, les "à" ne passent pas 🙁

Re : VBA Envoi de mail avec Thunderbird et caractère avec accents

Bonjour à tous,

J'ai bien les caractères accentués avec ton code et Thunderbird 38.4.0

A+ à tous

Re : VBA Envoi de mail avec Thunderbird et caractère avec accents

JCGL à dit:

Bonjour à tous,

J'ai bien les caractères accentués avec ton code et Thunderbird 38.4.0

A+ à tous

Cliquez pour agrandir...

Bonjour JCGL;

j'ai chargé la même version et les "à" ne passent pas 🙁

tu n'as rien changé au code originel ?

Re : VBA Envoi de mail avec Thunderbird et caractère avec accents

gosselien à dit:

Bonjour,

j'ai eu ce rude problème à une époque et je me suis résolu à passe rà l'époque à Outlook ...

peut être une aide là bas ? https://forums.mozfr.org/viewtopic.php?t=113718

J'ai essayé ton code et si les "é" et les "è" passent, les "à" ne passent pas 🙁

Cliquez pour agrandir...

Bonjour gosselin,

J'avais vu ce post également, qui m'a beaucoup aidé, mais ça ne résout pas mon problème malheurement.
De plus, thunderbird est obligatoire car je l'utilise au travail donc pas trop le choix. Sinon j'adorerais utilisé outlook bien évidemment.

Merci pour ta réponse en tout cas.

Re : VBA Envoi de mail avec Thunderbird et caractère avec accents

JCGL à dit:

Bonjour à tous,

J'ai bien les caractères accentués avec ton code et Thunderbird 38.4.0

A+ à tous

Cliquez pour agrandir...

Bonsoir JCGL,

J'ai la dernière version de Thunderbird et la soucis persiste.

Il doit surement y avoir une solution quelque part.

Merci pour ta réponse 😉

Re : VBA Envoi de mail avec Thunderbird et caractère avec accents

Bonjour à tous,

Je n'ai changé le code si ce n'est les cellules sources





A+ à tous

Re : VBA Envoi de mail avec Thunderbird et caractère avec accents

Bonjour à tous,

Personne n'a la solution pour ce soucis ?
A savoir que le "à" est situé au milieu d'une phrase. En début de phrase, bizarrement, il apparait.

Merci de votre aide.

Re : VBA Envoi de mail avec Thunderbird et caractère avec accents

Bonjour à tous,

Pareil chez moi si le à est en milieu de phrase : effacement du à
Le a est lui préservé.

A+ à tous

Re : VBA Envoi de mail avec Thunderbird et caractère avec accents

Bonjour,

Voici la solution que j'ai trouvé sur un autre forum :

Private Sub MailECOTOUR_Click()
Dim destinataire, sujet, sujet1 As String

destinataire = InputBox("E-mail du destinataire")
sujet = "Votre projet de voyage Ecotour \ Dossier N° "
sujet1 = InputBox("N° de dossier")

text1 = ConverAcute(Range("A3")) & "<br><br>"
text2 = ConverAcute(Range("A7")) & "<br><br>"
text3 = ConverAcute(Range("A9")) & "<br>"
text4 = ConverAcute(Range("A11")) & "<br><br>"
text5 = ConverAcute(Range("A13")) & "<br>"
text6 = ConverAcute(Range("A15")) & "<br><br>"
text7 = ConverAcute(Range("A17")) & "<br>"
text8 = ConverAcute(Range("B2")) & "," & "<br>"
text9 = ConverAcute(Range("A18")) & " " & ConverAcute(Range("E18"))


body = text1 & text2 & text3 & text4 & text5 & text6 & text7 & text8 & text9

strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & sujet1 & ","
strcommand = strcommand & "body='" & body & "'"
MsgBox strcommand

Call Shell(strcommand, vbNormalFocus)
End Sub

Sub test()
txt = ConverAcute("éàè")
End Sub

Public Function ConverAcute(txt) As String
ConverAcute = Trim("" & txt)

ConverAcute = Replace(ConverAcute, "Á", "&Aacute;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "á", "&aacute;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "À", "&Agrave;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "à", "&agrave;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "Â", "&Acirc;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "â", "&acirc;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "Ä", "&Auml;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "ä", "&auml;", 1, -1, vbBinaryCompare)

ConverAcute = Replace(ConverAcute, "É", "&Eacute;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "é", "&eacute;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "È", "&Egrave;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "è", "&egrave;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "Ê", "&ecirc;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "ê", "&Ecirc;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "Ë", "&Euml;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "ë", "&uml;", 1, -1, vbBinaryCompare)

ConverAcute = Replace(ConverAcute, "Í", "&Iacute;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "í", "&iacute;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "Ì", "&Igrave;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "ì", "&igrave;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "Î", "&Icirc;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "î", "&icirc;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "Ï", "&Iuml;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "ï", "&iuml;", 1, -1, vbBinaryCompare)

ConverAcute = Replace(ConverAcute, "Ó", "&Oacute;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "ó", "&Oacute;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "Ò", "&Ograve;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "ò", "&ograve;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "Ô", "&Ocirc;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "ô", "&ocirc;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "Ö", "&Ouml;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "ö", "&ouml;", 1, -1, vbBinaryCompare)

ConverAcute = Replace(ConverAcute, "Ú", "&Uacute;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "ú", "&uacute;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "Ù", "&Ugrave;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "ù", "&ugrave;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "Û", "&Ucirc;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "û", "&ucirc;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "Ü", "&Uuml;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "ü", "&uuml;", 1, -1, vbBinaryCompare)

ConverAcute = Replace(ConverAcute, "Ý", "&Yacute;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "ý", "&yacute;", 1, -1, vbBinaryCompare)
ConverAcute = Replace(ConverAcute, "ÿ", "&yuml;", 1, -1, vbBinaryCompare)
End Function