Discussion :

[flo33200]

Bonjour,
Hier j'ai créé récupéré et adapté un code VBA pour envoyer un mail récurrent (quotidien pour les besoin du test). Mes tests hier tout fonctionnait.
Ce matin ça ne fonctionne plus.
Pourriez-vous m'aider svp ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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 'si non la macro s'arrête
End If 'si oui la macro continue
 
If Item.Categories <> "MailAutoDemandeInfosSalaires" Then 'Indiquer ici la catégorie du mail définie entre "..."
Exit Sub 'si la catégorie n'est pas celle définie sur la ligne au dessus la macro s'arrête
 
End If
 
  'objMsg.SendUsingAccount = objMsg.Session.Accounts.Item(2) 'si gestion de plusieurs boîtes mails mettre le n° du compte (ici 2 pour Elisabeth). Si 1 seul compte taper une apostrophe devant cette ligne de code pour qu'elle ne soit pas traitée
  objMsg.Importance = olImportanceHigh 'Importance haute du message. Si vous ne voulez pas activer l'icône important taper une apostrophe devant cette ligne de code pour qu'elle ne soit pas traitée
  objMsg.To = Item.OptionalAttendees 'Destinataire du mail ligne Facultatif utilisée pour les adresses
  objMsg.BCC = Item.Location 'Destinataire du mail ligne Emplacement utilisée pour les adresses CCI. Si vous ne voulez pas activer cette option taper une apostrophe devant cette ligne de code pour qu'elle ne soit pas traitée
 
  objMsg.Subject = Item.Subject 'Objet du mail
  objMsg.Body = Item.Body 'Corps du mail
  'objMsg.Attachments.Add "C:\Users\............" 'Chemin vers pièce jointe du mail. Si vous ne voulez pas joindre de pièce taper une apostrophe devant cette ligne de code pour qu'elle ne soit pas traitée
  objMsg.Send 'DISPLAY : affiche le mail avant envoi pour un envoi manuel - SEND : envoi le mail directement sans relecture
  Set objMsg = Nothing
End Sub

'Macro adaptée de

et https://www.developpez.net/forums/d1...atiquement-pj/
'Créer catégorie "MailAutoDemandeInfosSalaires" -> écrire en CamelCase
'Calendrier - créer un Rendez-vous à l'heure et au jour où doit partir le 1er mail : classer dans la catégorie "MailAutoDemandeInfosSalaires", mettre en Titre l'objet du message, mettre en Facultatif les adresses mails, mettre en Emplacement les adresses mails CCI
'Programmer rappel "00 minutes"
'Programmer périodicité
'Enregistrer
'Fichier - Option - Personnaliser le ruban - "Développeur"
'Développeur - Dans Visual Basic - Dans ThisOutlookSession - Copier le code ci-dessus

'Ne pas mettre d'adresse dans Obligatoire car ça ne fonctionne pas.

[flo33200]

J'ai peut être trouvé mon problème dans Développeur / Sécurité des macros était coché Notifications pour les macros signées numériquement etc...
J'ai coché Notifications pour toutes les macros et ça fonctionne.
Je verrai demain si ça marche toujours.