Bonjour à tous, je recherche un puissant code me permettant d’envoyer des mails automatiquement suivant des critères que je vais définir.
j’ai essayé le code ci-dessous en y mettant mon mail mais je ne reçois rien dans ma boite mail. le code ne produit pas d’erreur pourtant.
aidez-moi svp!
Sub SendEmail()
’
’ SendEmail Macro
’
’
Dim olApp As Outlook.Application
Set olApp = CreateObject(« outlook.application »)
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = « …@.com »
.CC = « …@.com »
.Subject = " reporting " & Format(Date - 1, « dd-mm-yyyy »)
.Body = Range(« A1 »).Value & vbCrLf & Range(« A2 »).Value & Format(Date - 1, « dd-mm-yyyy ») & " ." & vbCrLf & vbCrLf _
& Range(« A3 »).Value & vbCrLf & vbCrLf _
& Range(« A4 »).Value
'le fichier comportant la macro devrait avoir les données du corps du mail dans les cellules A1…A4
.Attachments.Add « X:/Reporting.xlsx »
End With
End Sub