Envoyer des mails automatiquement tous les mois
Bonsoir
Voici mon problème
Je désire envoyer des mails en automatique tous les mois
J'ai suivi un tuto mais il y a un bug après avoir manipulé certaines fonctions
Quand je valide mon rendez-vous, j'ai une erreur de débogage 424
Ce que j'ai manipulé
- Fichier / Option / Centre de gestion et confidentialité / Paramètre / Paramètre des macros / Et j'ai coché (Afficher toutes les macros..........)
- j'ai créé une catégorie nommé "SPML"
- J'ai créé mon RDV Objet: SPML Emplacement : mes adresses Email Rajout de ma classification Popup de rappel et enregistrement
Voici mon code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| 'Original function written by Diane Porensky: htpp:/www.slispstick.com/developer/send-mail-outlook_reminders-fires/
Private Sub Application_Reminder(ByVal Item As Object)
Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)
If Item.MessageClass <> "IPM.Appointment" Then 'vérifie s'il s'agit d'un rappel sur RDV
Exit Sub
End If
If Item.Categories <> "SPML" Then 'indiquer ici le nom de la catégorie créée pour les mails autos
Exit Sub
End If
objMsg.SendUsingAccount = objMsg.Session.Accounts.Item(1) 'si gestion de plusieurs comptes
objMsg.Importance = o1ImportanceHigh 'importance du message
objMsg.To = Itemm.Location 'ligne lieu de rendez-vous utilisée pour les adresses
objMsg.Sbject = Item.Subject 'objet du mail
objMsg.Body = Item.Body 'corps du mail
obj.Display 'Display : affiche le mail avant envoi = SEND : envoit le mail sans relecture
Set objMsg = Nothing
End Sub |
Merci de votre aide
