Discussion :

[dpoel]

Bonjour le Forum,

J'ai créé une application VBA qui envoit des emails automatiquement avec un compte gmail.
Dans le corps de l'email, en HTML, quand j'ai p.ex. un é, j'écris é
Cela marche très bien.
Mais dans mon corps d'email, j'utilise aussi des variables de type string, p.ex. une variable SpecialPrenoms qui peut contenir "Frédéric"
Quand j'ai un accent dans une variable, et qu'on va voir dans les emails reçus:
--> si le destinataire a une boîte gmail, pas de problème tous les accents y sont bien
--> si le destinataire a une boîte Outlook : les accents qui se trouvent dans les variables ne s'affichent pas. Ceux qui se trouvent hors des variables s'affichent bien.

Comment puis-je résoudre cela ?
Voici un extrait de mon code...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
'(...)
 
dim body as variant
dim SpecialPrenoms as string
 
'(...)
 
for each c in Range("Q4:Q500")
    SpecialPrenom = c.offset(0,9).value 
    body = "<p><strong>Assurance</strong><br />" & SpecialPrenoms & "&nbsp;:&nbsp;tu es ext&eacute;rieur au (...)</p>"
next C
 
'(...)

Et ma macro d'envoi, récupérée du forum :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Public Sub MailEnvoi(Serveur, Identify, User, PassWord, Port, Delay, Expediteur, Dest, DestEnCopy, BCC, Objet, Body, Pj, Optional factice As String)
' macro pour envoyer les mails
 
Dim msg
Dim Conf
Dim Config
Dim ess
Dim splitPj
Dim IsplitPj
Set msg = CreateObject("CDO.Message") 'pour la configuration du message
Set Conf = CreateObject("CDO.Configuration") 'pour la configuration de l'envoi
Dim strHTML
 
Set Config = Conf.Fields
 
' Configuration des parametres d'envoi
'(SMTP - Identification - SSL - Password - Nom Utilisateur - Adresse messagerie)
With Config
If Identify = True Then
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = User
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = PassWord
End If
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Port
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Serveur
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = Delay
    .Update
 
End With
 
 
'Configuration du message
'If E_mail.Sign.Value = Checked Then Convert ServeurFrm.SignTXT, ServeurFrm.Text1
 
With msg
    Set .Configuration = Conf
    .From = Expediteur
    .To = Dest
    .CC = DestEnCopy
    .BCC = BCC
    .Subject = Objet
    .HTMLBody = Body 
 
    If Pj <> "" Then
        splitPj = Split(Pj & ";", ";")
        For IsplitPj = 0 To UBound(splitPj)
           If Trim("" & splitPj(IsplitPj)) <> "" Then
               .AddAttachment Trim("" & splitPj(IsplitPj))
           End If
        Next
    End If
 
    If Dest <> "" Then .Send 'envoi du message
 
End With
 
 
' reinitialisation des variables
Set msg = Nothing
Set Conf = Nothing
Set Config = Nothing
 
End Sub

Merci d'avance pour votre aide !

[marot_r]

Bonjour.

Comme tu as fait la conversion de tes accents dans ton texte, il faut le faire sur ceux de la variable.

Ici du code qui fait cela :

https://www.developpez.net/forums/d1...-entites-html/

A+

[dpoel]

Bonjour, et merci pour le tuyau. On progresse, mais ce n'est pas encore la solution complète


La fonction marche très bien, je la remets ici, comme ça tout le monde peut la voir:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
MsgBox TxtHtml("Welcome & Enjoy")
End Sub
 
Function TxtHtml(T As String) As String
Dim Txt
Dim Htm
Dim I As Long
TxtHtml = T
Txt = "Á$á$É$é$Í$í$Ó$ó$Ú$ú$Ý$ý$À$à$È$è$Ì$ì$Ò$ò$Ù$ù$Â$â$Ê$ê$Î$î$Ô$ô$Û$û$Ä$ä$Ë$ë$Ï$ï$Ö$ö$Ü$ü$?$ÿ$Ã$ã$Õ$õ$Ç$ç$" & vbCrLf & "$&"
Htm = "Á$á$É$é$Í$í$Ó$ó$Ú$ú$Ý$ý$À$à$È$è$Ì$ì"
Htm = Htm & "$Ò$ò$Ù$ù$Â$â$Ê$ê$Î$î$Ô$ô$Û$û$Ä$ä$Ë$ë"
Htm = Htm & "$&Ouml;$&ouml;$&Uuml;$&uuml;$&Yuml;$&yuml;$&Atilde;$&atilde;$&Itilde;$&itilde;$&Otilde;$&otilde;$&Ccedil;$&ccedil;$<br>;$&amp;"
Txt = Split(Txt, "$")
Htm = Split(Htm, "$")
For I = 0 To UBound(Txt)
TxtHtml = Replace(TxtHtml, Txt(I), Htm(I), 1, compare:=vbBinaryCompare)
Next
End Function

Et j'ai adapté l'affectation de ma variable SpecialPrenoms comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
'(...)
 
dim body as variant
dim SpecialPrenoms as string
 
'(...)
 
for each c in Range("Q4:Q500")
    SpecialPrenom = TxtHtml(c.offset(0,9).value) 
    body = "<p><strong>Assurance</strong><br />" & SpecialPrenoms & "&nbsp;:&nbsp;tu es ext&eacute;rieur au (...)</p>"
next C
 
'(...)

Et maintenant à la fois dans la boîte Gmail comme dans la boîte Outlook, je reçois:
"Assurances
Frédéric : tu es extérieur au (...)"

Avant, je recevais:
"Assurances
Frdric : tu es extérieur au (...)"
Mais uniquement dans Outlook, dans gmail cela arrivait impeccablement.

Je me demande si je ne dois pas mettre ma variable dans un tag HTML quelconque... ?
Ou alors c'est la déclaration de ma variable qui ne doit pas être un simple string, mais un stringHTML ou qqch comme ça ??

[Thumb down]

Bonjour,
Pour info si tu veux gérer le & il faut qu'il soit le premier dans le tableau et pas après le vbcrlf car des & tu en mets plein par définition.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
vbCrLf & "$&"
 
Txt = "&$Á$á$É$

Code initiale :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Function TxtHtml(T As String) As String
Dim Txt
Dim Htm
Dim I As Long
TxtHtml = T
Txt = "Á$á$É$é$Í$í$Ó$ó$Ú$ú$Ý$ý$À$à$È$è$Ì$ì$Ò$ò$Ù$ù$Â$â$Ê$ê$Î$î$Ô$ô$Û$û$Ä$ä$Ë$ë$Ï$ï$Ö$ö$Ü$ü$Ÿ$ÿ$Ã$ã$Õ$õ$Ç$ç$ $" & vbCrLf
Htm = "Á$á$É$é$Í$í$Ó$ó$Ú$ú$Ý$ý$À$à$È$è$Ì$ì"
Htm = Htm & "$Ò$ò$Ù$ù$Â$â$Ê$ê$Î$î$Ô$ô$Û$û$Ä$ä$Ë$ë"
Htm = Htm & "$&Ouml;$&ouml;$&Uuml;$&uuml;$&Yuml;$&yuml;$&Atilde;$&atilde;$&Itilde;$&itilde;$&Otilde;$&otilde;$&Ccedil;$&ccedil;$&nbsp;$<br>"
Txt = Split(Txt, "$")
Htm = Split(Htm, "$")
For I = 0 To UBound(Txt)
TxtHtml = Replace(TxtHtml, Txt(I), Htm(I), 1, compare:=vbBinaryCompare)
Next
End Function

[dpoel]

Bonjour,
Pour info si tu veux gérer le & il faut qu'il soit le premier dans le tableau et pas après le vbcrlf car des & tu en mets plein par définition.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
vbCrLf & "$&"
 
Txt = "&$Á$á$É$

Oui, c'est déjà une correction, mais ce n'est pas ça qui m'embête vraiment pour le moment. Ce sont surtout les accents que je voudrais résoudre... et j'ai beau relire, je ne comprends pas ce qu'il me manque

[Thumb down]

Je t'es remis la fonction dans le poste précédent !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function TxtHtml(T As String) As String
Dim Txt
Dim Htm
Dim I As Long
TxtHtml = T
Txt = "&$Á$á$É$é$Í$í$Ó$ó$Ú$ú$Ý$ý$À$à$È$è$Ì$ì$Ò$ò$Ù$ù$Â$â$Ê$ê$Î$î$Ô$ô$Û$û$Ä$ä$Ë$ë$Ï$ï$Ö$ö$Ü$ü$Ÿ$ÿ$Ã$ã$Õ$õ$Ç$ç$ $" & vbCrLf
Htm = "&$Á$á$É$é$Í$í$Ó$ó$Ú$ú$Ý$ý$À$à$È$è$Ì$ì"
Htm = Htm & "$Ò$ò$Ù$ù$Â$â$Ê$ê$Î$î$Ô$ô$Û$û$Ä$ä$Ë$ë"
Htm = Htm & "$&Ouml;$&ouml;$&Uuml;$&uuml;$&Yuml;$&yuml;$&Atilde;$&atilde;$&Itilde;$&itilde;$&Otilde;$&otilde;$&Ccedil;$&ccedil;$&nbsp;$<br>"
Txt = Split(Txt, "$")
Htm = Split(Htm, "$")
For I = 0 To UBound(Txt)
TxtHtml = Replace(TxtHtml, Txt(I), Htm(I), 1, compare:=vbBinaryCompare)
Next
End Function

[dpoel]

Super, cela fonctionne du tonnerre en effet !
Merci beaucoup