Envoi de mail outlook automatique via excel

[flo13100]

Bonjour à tous,

J'ai une base de données sur Excel avec une colonne contenant les dates de signatures d’un programme par différents partenaires de ma société. Et l’objectif serait qu’un mois avant la date d’anniversaire de signature du programme, un email soit envoyé automatiquement au manager responsable du contrat (listé dans une autre colonne) lui rappelant que l’évaluation du centre doit être effectuée dans un mois et qu’il doit alors faire le nécessaire pour préparer le meeting.
Du coup est-il possible par le biais d’une macro de configurer ça : déclenchement d’un email selon une date de référence et ainsi choix du destinataire selon le centre en question.
J'ai mis en pièce jointe un modèle pour mieux comprendre.

Bien cordialement,
Florian

 

[Lone-wolf]

Re : Envoi de mail outlook automatique via excel

Bonjour Florian et bienvenu sur le Forum

Si tu descends en bas de page, tu as différents liens à ce sujet. Et si "la date d’anniversaire de signature du programme" est la colonne C, difficile de faire le compte vu qu'on est en 2016. Un test avec la colonne D.

Sub EnvoiMail()
Dim i As Integer, adr1 As String, nom As String
Dim dtAnn As Date, dtEnvois As Date
Dim ol  As Object, olmail As Object

Set ol = CreateObject("Outlook.Application")
Set olmail = ol.Application.CreateItem(olMailItem)

With Sheets(1)
i = .Range("a65536").End(xlUp).Row + 1
dtAnn = .Cells(i, 3)
dtEnvois = .Cells(i, 4).Value   ' colonne D
adr1 = .Cells(i, 5).Value
nom = .Cells(i, 2).Value
End With

If DateDiff("m", Date, dtEnvois) = 1 Then
With olmail
        .To = adr1
        .Subject = "Flag assessment"
        .HTMLBody = "Bonjour " & nom & ",<br/><br/> Suite à l'approche de la date d'anniversaire de signature du NLP " & dtAnn & ", veuillez faire le nécessaire pour préparer l'assessment " & dtEnvois & vbCrLf & " .<br/><br/>Cordialement."
        .Display
    End With
Else
Exit Sub
End If

Set ol = Nothing
Set olmail = Nothing
End Sub

A+