Envoi mail Outlook automatique à dates et destinataires spécifiques

Bonjour à toutes et à tous,

Je me permets de vous contacter car je suis complètement novice en VBA, mais je dois, pour mon travail, intégrer une macro au fichier en pièce-jointe de ce message.

Ce fichier présente une liste de tache ainsi qu'un rétroplanning associés à l'organisation d'un événement. Dans la feuille "listing des taches", j'ai répertorié l'ensemble des actions à effectuer (colonne B), ainsi qu'une date de démarrage de l'action (colonne C).

Je souhaiterais idéalement qu'un mail parte automatiquement de mon adresse Outlook le jour de la date de démarrage (donc la date inscrite en colonne C) et arrive à l'adresse mail inscrite en colonne F (le but étant de rappeler au porteur qu'une tache lui a été affectée et qu'elle commence le jour même).

J'ai cherché à bidouiller des codes trouvés sur internet, mais sans grand succès malheureusement.

Si une âme charitable pourrait m'aider, je lui serai grandement reconnaissante !

Un grand merci par avance pour votre aide.

Bonjour,

A tester car je n'ai pas outlook sur mon poste !

Option Explicit
Sub envoi()

Dim messagerie As Object
Dim email As Object
Dim cel As Range

Set messagerie = CreateObject("Outlook.Application")

With Sheets("Listing des taches")
    For Each cel In Range("B7:B" & Cells(Rows.Count, 2).End(xlUp).Row)
        If cel.Offset(0, 1) = Int(Now) Then
            Set email = messagerie.CreateItem(0)
            With email
                .to = cel.Offset(0, 4).Value
                .Subject = cel.Value
                .htmlbody = "bla bla" & .htmlbody
                .ReadReceiptRequested = True
                .display ' à remplacer par .send si ok
            End With
            Set email = Nothing
        End If
    Next cel
End With
Set messagerie = Nothing

End Sub

L'envoi se fera à l'ouverture du fichier

Private Sub Workbook_Open()
envoi
End Sub

Bonjour Steelson,

Merci beaucoup : ça fonctionne parfaitement !

Juste une petite question : est-il possible d'adapter la macro en précisant que si aucune adresse mail n'est entrée en colonne F, dans ce cas aucun mail n'est généré pour la tache en question ?

Merci par avance.

Bon après-midi !

Remplace alors

If cel.Offset(0, 1) = Int(Now) Then

par

If cel.Offset(0, 1) = Int(Now) and cel.Offset(0, 4).Value <> "" Then

Steelson a écrit :

Remplace alors

If cel.Offset(0, 1) = Int(Now) Then

par

If cel.Offset(0, 1) = Int(Now) and cel.Offset(0, 4).Value <> "" Then

Merci beaucoup !