Envois de mails automatiquement

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

Bonjour

Il manque la ligne d instruction d envoi à mettre avant le End With :

.Send
End With

Ajoutes la et reessaies
Fais moi un retour