XL 2016 Format Mail à la réception

Daviddu37 · 9 Mai 2020

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 · 9 Mai 2020

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 · 9 Mai 2020

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 · 9 Mai 2020

Personne n'a d'idées ?

zebanx · 10 Mai 2020

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

VB:

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

XL 2016 Format Mail à la réception

Daviddu37

XLDnaute Nouveau

Pièces jointes

Daviddu37

XLDnaute Nouveau

Daviddu37

XLDnaute Nouveau

Daviddu37

XLDnaute Nouveau

zebanx

XLDnaute Accro

Discussions similaires