Ajout de l'option de pièce jointe au script vba de courrier électronique planifié

J'apprends VBA, mais pour le moment je ne suis pas si bon et j'ai trouvé cette macro:

Courrier électronique planifié et récurrent dans Outlook?

Il envoie un mail grâce à un rendez-vous programmé dans le calendrier.

Est-ce que quelqu'un pourrait peut-être m'aider à le compléter afin qu'il soit possible d'envoyer une pièce jointe?

[EDIT] C'est le script que j'ai modifié, mais ça ne fonctionne toujours pas. Pouvez-vous me donner une indication?

Private Sub Application_Reminder(ByVal Item As Object) Dim objMsg As MailItem Dim myAttachments As Outlook.Attachments Set objMsg = Application.CreateItem(olMailItem) Set myAttachments = objMsg.Attachments If Item.MessageClass <> "IPM.Appointment" Then Exit Sub End If If Item.Categories <> "Blue Category" Then Exit Sub End If objMsg.To = Item.Location objMsg.Subject = Item.Subject objMsg.Body = Item.Body myAttachments.Add "C:\Test.txt", _ objMsg.Send Set objMsg = Nothing End Sub 

Je pense que le problème est que la pièce jointe est définie comme étant liée à Outlook alors que MailItem n'était pas. La macro a fonctionné bien avant d'insérer les quelques lignes sur la pièce jointe, mais elle n'envoie même plus de courrier.

Vous étiez si proche! Tout ce que vous devez faire est de supprimer le trait de soulignement et la virgule de fin de ligne

 myAttachments.Add "C:\Test.txt", _ 

Il devrait tout simplement être

 myAttachments.Add "C:\Test.txt" 

J'ai essayé votre code avec ce changement, et cela a bien fonctionné.