Discussion :

[jijie]

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]

salut jijie

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

[Invité]

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]

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é]

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]

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