Envoyer un mail récurrent avec outlook

Bonjour,

Je voudrais envoyer un mail récurrent afin d'envoyer un mail tous les jours à la même heure à une liste de contacts et ce de façon automatique. J'utilise le code ci-dessous, je reçois bien un rappel dans mon calendrier mais le mail ne s'envoie pas. Pour récap, je créé un nouveau rendez-vous dans mon calendrier, je créé une catégorie spécifique de classement, je choisis une périodicité (quotidienne, tous les 1 jours sans date de fin), 0 minutes pour le rappel.

Je ne comprends pas e qui ne va pas. quelqu'un peut-il me venir en aide svp. Merci d'avance.

Private Sub Application_Reminder(ByVal Item As Object)
Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)

If Item.MessageClass <> "IPM.Appointment" Then
Exit Sub
End If

If Item.Categories <> "disponibilités" Then
Exit Sub
End If

objMsg.SendUsingAccount = objMsg.Session.Accounts.Item(1)
objMsg.Importance = olImportanceHigh
objMsg.To = Item.Location
objMsg.Subject = Item.Subject
objMsg.Body = Item.Body
objMsg.Send
Set objMsg = Nothing
End Sub

Edit modo : code à mettre entre balises avec le bouton </> merci d'y faire attention la prochaine fois

Bonjour,

Je ne suis pas un spécialiste d'Outlook et je ne pourrai pas forcément vous aider.

Avec quelle ligne de code lancez-vous Application_Reminder ? Quel est le type de la variable dans le paramètre dans cette ligne de code ?

Nb : Item est un mot réservé, il serait judicieux d'en changer.

Utilisez des Debug.print pour voir si vous récupérez bien les valeurs prévues , exemple :

Debug.Print Item.MessageClass
If Item.MessageClass <> "IPM.Appointment" Then
....

Nb : Il vous faut ouvrir la fenêtre exécution (Ctrl-G) pour lire les Debug.Print.

Bonjour,

Déjà, vous ne pouvez pas utiliser les propriétés "MessageClass" et "Categories" tant qu'il n'est pas avéré que "Item" correspond à un RDV

    If Item.Class <> olAppointment Then Exit Sub
    If Item.Categories <> "disponibilités" Then Exit Sub

Ensuite, vérifiez le lieu de votre RDV (Item.Location) , il doit contenir une adresse mail valide.