Automatisation d'un retroplanning

Bonjour à vous,

Je souhaiterais automatiser des envois de mail via Excel. J'ai essayé de créer une macro, (voir ci dessous, je ne sais pas si elle tient la route !). Est-il, possible de prévoir d’envoyer des mails à j+3 , prévoir une notification dans mon agenda pour relancer par téléphone à j+5 ? et ajouter automatiquement une pièce jointe.

En PJ, mon tableau Excel.

Macro Excel pour automatiser des envois de mail :

Sub mail_outlook_débutant() 'début du programme 'mail_outlook_'

Dim OutApp As Object 'Déclaration de l'application objet Outlook

Dim OutMail As Object 'Déclaration du mail objet Outlook

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)

With OutMail 'début de la boucle

.To = matmane@ecolevilz.fr 'champ envoyer à

.CC = matmane@ecolevilz.fr; matmane@ecolevilz.fr 'champ mail en copie

.BCC = "" 'champ mail en copie caché

.Subject = "Test de matmane" 'champ du sujet du mail

.Body = "Ceci est un message test." & vbCrLf & "ceci est une nouvelle ligne"

'champ du corps du mail

' ajouter & vbCrlF & pour aller à la ligne entre deux valeurs

.Display 'affiche le mail en brouillon dans Outlook, pratique

'pour vérifier avant d'envoyer

'.Send 'envoie directement le mail

'.Save 'sauvegarde le mail

End With 'fin de la boucle

Set OutMail = Nothing 'nettoie la mémoire en nettoyant les variables

Set OutApp = Nothing 'nettoie la mémoire en nettoyant les variables

End Sub 'fin du programme

Merci beaucoup