Tapez le code suivant dans votre éditeur:
Sous Item_PropertyChange (Nom ByVal)
Sélectionner Nom Case
Case "Status"
si Item.Status = 2 alorsSet email = Application.CreateItem (0)
email.To = "[email protected]"
email.Recipients.ResolveAll
email.subject = "Mon Sujet Texte"
email.Body = "text-mail récurrent"
email.Display
Fin si
End Select
End Sub
Remplacez l'adresse email du destinataire avec votre propre adresse du destinataire. Changer le sujet et le corps du texte à votre propre. Ce code déclenche lorsque vous configurez la tâche, il automatise le processus d'envoi de l'e-mail.