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