Format texte (accents) du corps de mail envoi en CDO

**jijie** · 26/03/2015, 09h46

Bonjour,

Je fais envoyé des mails par un fichier Excel en CDO. le mail est construit par des textbox et lors de l'envoi de certains ordinateur le texte affiché n'est pas correct !?

Par exemple en écrivant : Nous espérons que ce courrier ne vous laissera pas indifférent.
Le mail reçut nous trouvons : Nous espirons que ce courrier ne vous laissera pas indiffirent.

Ma question est comment faire pour ne pas avoir ce problème?

**patricktoulon** · 26/03/2015, 16h40

salut jijie

c'est bien la première fois que je vois ca c'est certainement une erreur de ta part

Invité · 26/03/2015, 16h57

Bonjour,
lors de l'envoi ou de la réception!

ça dépend du client Utf8?

si tu encode en Utf8 l'émission et que le client mail es en ISO tu auras me même problème!

Sinon la seule chance de t'en sortir c'est de faire un envoi html et de remplacer tous les caractères spéciaux exemple é en &eacut;

**jijie** · 26/03/2015, 18h15

Et bien moi aussi Patrick c'est la première fois et pourtant, j'utilise ce procédé sur plusieurs fichiers depuis plusieurs années!!!

Mais je veux bien croire avoir une erreur quelque part!!

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
Set iMsga = CreateObject("cdo.message")
Set iConfa = CreateObject("cdo.configuration")
Dim CopiMail
 
Set Fldsa = iConfa.Fields
With Fldsa
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    'remplacez "smtp.nomserveur.fr" par le nom de serveur de votre FAI :
    'http://outlook.developpez.com/faq/index.php?page=Configuration#Paras_FAI
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ComboSMTP.Column(1)
 
 
    .Update
End With
 
 
 
' envoi mail au tuteur
  With iMsga
 
On Error GoTo erreur
 
 
    Set .Configuration = iConfa
 
On Error GoTo erreur
    .To = TextC 'destinataire
    .Cc = TextCc 'envoyer en cc
    .Bcc = TextCci ' Envoyer en CCi
    .from = MailExped ' expéditeur
    .Subject = "* " & TextSujet
    .TextBody = TextCivilité & vbCrLf & vbCrLf & TexTbodi & vbCrLf & vbCrLf & TextSignature
    .AddAttachment CopiePdf
 
    .Send
End With
 
    Set CdoMessage = Nothing
    Set CdoMessage = Nothing

Bizarrement chez moi ça fonctionne

Pour info "textbody" est utilisé à partir de textbox!

rdurupt tu pourrais me donner un lien pour l'envoi en HTML?

Invité · 26/03/2015, 19h13

Ces un exemple pour envoyer un tableau mais l'idée y est!

Manque la fonction qui converti les caractères spéciaux!

http://www.developpez.net/forums/d14...l/#post7841854

**patricktoulon** · 26/03/2015, 19h26

Re
dans les exemplaire dont les liens sont dans ma signature j'injecte le texte converti en html je n'ai donc pas ce soucis je te laisse regarder
cela me permet aussi de placer en fin de message un lien vers mon mail (balise A) et même parfois une image (balise img) dans le corps du message

ca fait plus pro

Invité · 26/03/2015, 19h36

Bonsoir Patrick,
On est sur la même longueur d'onde.

**jijie** · 26/03/2015, 19h43

Bonsoir,

Je pense être sur la même longueur également sans avoir regardé vos post, mais je regarde demain!

Patrick il me semblait avoir regardé chez toi mais pas vu en HTML!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Dim TeXte
' envoi mail au tuteur
 
  strHTML = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">" & _
          "<HTML><HEAD>" & _
          "<META http-equiv=Content-Type content=""text/html; charset=iso-8859-1"">" & _
          "<META content=""MSHTML 6.00.2800.1516"" name=GENERATOR></HEAD>" & _
          "<BODY><DIV STYLE=""font-size: 14px; font-face: Tahoma;"">"
 
TeXte = strHTML & Replace(TextCivilité & vbCrLf & vbCrLf & TexTbodi & vbCrLf & vbCrLf & TextSignature, vbCrLf, "<br>") & "</DIV></BODY></HTML>"
 
 .HTMLBody = TeXte

Je vous confirme ça demain car soirée annoncé difficile oulala

a demain je regarde tous ça et vous dit si pour ma collègue ça fonctionne!!

**patricktoulon** · 26/03/2015, 20h05

voila un apercu du comment le message arrive quand j'utilise mon mailer vba CDO
Nom : Capture.JPG
Affichages : 2541
Taille : 37,6 Ko

Invité · 27/03/2015, 13h05

Bonjour voilà une fonction pour remplacer les caractères spéciaux!

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()
Debug.Print TxtHtml("ÁáCcÉéÍíÓóÚúÝýÀàÈèÌì " & vbCrLf & "ÒòÙùÂâÊêÎîÔ      ôÛûÄäËëÏïÖöÜüŸÿÃãÕõÇç")
End Sub
 
Function TxtHtml(T As String) As String
Dim Txt
Dim Htm
Dim I As Long
TxtHtml = T
Txt = "Á$á$É$é$Í$í$Ó$ó$Ú$ú$Ý$ý$À$à$È$è$Ì$ì$Ò$ò$Ù$ù$Â$â$Ê$ê$Î$î$Ô$ô$Û$û$Ä$ä$Ë$ë$Ï$ï$Ö$ö$Ü$ü$Ÿ$ÿ$Ã$ã$Õ$õ$Ç$ç$ $" & vbCrLf
Htm = "&Aacute;$&aacute;$&Eacute;$&eacute;$&Iacute;$&iacute;$&Oacute;$&oacute;$&Uacute;$&uacute;$&Yacute;$&yacute;$&Agrave;$&agrave;$&Egrave;$&egrave;$&Igrave;$&igrave;"
Htm = Htm & "$&Ograve;$&ograve;$&Ugrave;$&ugrave;$&Acirc;$&acirc;$&Ecirc;$&ecirc;$&Icirc;$&icirc;$&Ocirc;$&ocirc;$&Ucirc;$&ucirc;$&Auml;$&auml;$&Euml;$&euml;"
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

**patricktoulon** · 27/03/2015, 15h06

salut durupt je garde ca sous le coude mais dans son cas ca n'était pas forcement nécessaire

quand on inscrit du texte avec des accents dans le innertext de chaque balises elles ressortent nickelles je dis bien le innertext

elle confond le outerhtml et le innerhtml et le innertext

c'est dans le outer et innerhtml qu'il faut pas mettre d'accents sinon ca ressort en bulgoafricain

**jijie** · 28/03/2015, 16h05

elle confond le outerhtml et le innerhtml et le innertext

Comment doit-je le prendre !!!??

Bon effectivement ma version ne fonctionne pas!!

J'ai adapté avec la fonction de Rudrup et ça marche nickel !

Patrick je n'est pas essayé la tienne, mais à mon temps je regarde!

Mais pourquoi chez moi ça fonctionne très bien et sur une autre machine on à ce problème?

Dans tous les cas je vous remercie de votre temps et de vos compétences qui me servent souvent sur ce forum!

Bye

Invité · 28/03/2015, 17h47

Bonjour,
Dans ta fonction d'envoi de mail,tu utilises sans doute la propriété body!

Ça veut dire envoi d'un texte brute. Moi dans ma fonction d'envoi de mail j'utilise bodyhtml ce qui veut dire que je force une mise en page! Je peux formater le texte en vert comme dans l"exemple de Patrick, inscrire mon adresse mail, ou formater les caractères spéciaux au format html.

Le format HTML est intelligible par tous les clients mail, si non sur la majorité des clients mail c'est l'encodage Utf8 qui fait légion.

Les utilisateurs ne se posent pas la question il configurent les boites mail avec le client installé sur la machine par défaut!

La gestion Uttf8 ou Iso ça leurs passe au dessus de la tête! Et comme Utf8 est le plus rependu!!!!

**jijie** · 30/03/2015, 19h46

Merci pour cette réponse ! De plus j'avais oublié de noter ces réponses !!

Format texte (accents) du corps de mail envoi en CDO [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager