XL 2016 Format Mail à la réception

[Daviddu37]

Bonjour,

j'ai fait une macro qui envoi un mail en fonction de la date d'une cellule mais lorsque je reçois le mail il est tout en vrac, illisible.

Voici le code :
Sub Envoyer_Mail_Outlook()

Dim chantier
chantier = Sheets("Suivi").Range("AE3").Value
If Sheets("Suivi").Range("AD3") <> "" Then
Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
'---------------------------------------------------------
'Déclaration des adresses

Mail = "david.poly.37@.............."
copie = "davidmotard37@................."
'--------------------------------------------------------

With oBjMail
'détermination des destinataire
' le destinataire
.To = Mail
'les copies
.CC = copie

' l'objet du mail
.Subject = "Problème échéance sur le chantier " & chantier

'le contenu
.Body = "Une date est dépassée sur le chantier " & chantier
.Send
End With
'ObjOutlook.Quit
End If
Set oBjMail = Nothing
Set ObjOutlook = Nothing

End Sub


Comme vous pourrez le constater dans le code VBA, le sujet du mail et le corps du message sont simples normalement.
Je vous joins un screen du mail reçu, vous verrez que c'est illisible.

Que dois-je faire ?

Merci d'avance pour votre aide.

David

 

[Daviddu37]

Je viens de trouver sans trouver.... Cela vient du fait que j'ai mis des accents : échéances, dépassées... et si j'écris sans accent ben ça marche.

Donc oui j'ai trouvé mais avec accent c'est tout de même plus français, donc auriez-vous une idée ?

David

 

[Daviddu37]

Je viens de faire un test et dans l'affichage de la boite, ok, les accents sont là et c'est joli mais pendant l'envoi il doit se passer qqchose car à réception ça change et ça redevient dégueu.

Helpppp

 

[Daviddu37]

Personne n'a d'idées ?

 

[zebanx]

Bonjour Dadiddu37, le forum

Un essai.
En balise les 3 lignes modifiées dont une pour du display.

Et svp, ne pas s'impatienter d'une réponse tardive, en particulier un week-end et en soirée
Ca nous arrive à tous de ne pas avoir de réponses même parfois

xl-ment
zebanx

Sub Envoyer_Mail_Outlook()

Dim chantier
chantier = Sheets("Suivi").Range("AE3").Value
If Sheets("Suivi").Range("AD3") <> "" Then
[B]Set ObjOutlook = CreateObject("outlook.application")
Set oBjMail = ObjOutlook.CreateItem(0) '(olMailItem)[/B]
'---------------------------------------------------------
'Déclaration des adresses

Mail = "david.poly.37@.............."
copie = "davidmotard37@................."
'--------------------------------------------------------

With oBjMail
'détermination des destinataire
' le destinataire
.To = Mail
'les copies
.CC = copie

' l'objet du mail
.Subject = "Problème échéance sur le chantier " & chantier

'le contenu
.Body = "Une date est dépassée sur le chantier " & chantier
[B].Display[/B]
'.Send
End With
'ObjOutlook.Quit
End If
Set oBjMail = Nothing
Set ObjOutlook = Nothing

End Sub