Discussion :

[Obelix84]

Bonjour,

j'ai un PC en Windows 10, avec Outlook 365 à jour, sur lequel j'applique une catégorie particulière à des rendez-vous importants. Lorsque le rappel de ces rendez-vous est émis je m'envoie un mail automatiquement. Sur ce PC tout se passe bien.

Sur un nouvel ordinateur en Windows 11 avec le même Outlook 365, je veux faire la même chose et je n'y arrive pas et je ne vois pas pourquoi. Tout se passe comme si le code Visual Basic n'était pas appelé lors de l'évènement de rappel qui lui s'effectue bien. Il doit me manquer quelque chose, mais quoi ? Cela fait plusieurs jours que je cherche et ne trouve pas.

Merci de vous pencher sur mon problème.
Très cordialement.
--
Obelix84

Ci-dessous le code implanté dans ThisOutlookSession

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
 
Private Sub Application_Reminder(ByVal Item As Object)
  Dim objMsg As MailItem
  Set objMsg = Application.CreateItem(olMailItem)
'  MsgBox "Coucou" ' Pour vérifier qu'on appelle bien ce code
If Item.MessageClass <> "IPM.Appointment" Then 'vérifie s'il s'agit d'un rappel sur RDV
  Exit Sub
End If
If Item.Categories <> "Rappel" 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 = olImportanceHigh 'importance du message
'  objMsg.To = Item.Location 'ligne Lieu de rendez-vous utilisée pour les adresses
  objMsg.To = "xxxxx@yyyyyy.com"
  objMsg.Subject = "[Rappel] " & Item.Subject 'objet du mail
  objMsg.Body = Item.Body 'corps du mail
'  objMsg.Attachments.Add "C:\Users\xxx\Desktop\xxx.jpg" 'pour ajouter une pièce jointe
   objMsg.Send 'DISPLAY : affiche le mail avant envoi - SEND : envoit le mail sans relecture
  Set objMsg = Nothing
End Sub

[mromain]

Bonjour Obelix84, le forum,

A tout hasard, es-tu sûr que les macros sont activées ?
Un simple Sub avec un MsgBox pourrait le dire.

A+

[Obelix84]

Bonjour Obelix84, le forum,

A tout hasard, es-tu sûr que les macros sont activées ?
Un simple Sub avec un MsgBox pourrait le dire.

A+

Bonjour Mromain,

Pour les besoins du test j'ai autorisé toutes les macros. Je verrai après comment sécuriser.
C'est peut-être là le problème, tout se passe comme si cette autorisation ne suffisait pas.

[mromain]

Bonjour Obelix84, le forum,

Effectivement, le problème vient surement de là...
De mon côté, j'ai activé l'option notification pour toutes les macros et j'ai une pop-up à chaque ouverture d'Outlook qui me demande si je veux activer ou pas les macros pour la session.
A tout hasard, as-tu redémarré ta session après avoir changé le paramètre des macros ?

Je vais faire quelques recherches pour essayer de comprendre ton problème mais je ne t'assure pas du résultat.

Bonne journée

A+

[Obelix84]

Mea Culpa!

Je viens de me rendre compte que j'ai bêtement oublié de cliquer sur OK après avoir coché la case d'activation...

J'ai également réglé le problème de sécurité en créant un certificat et en plaçant celui-ci au bon endroit. Pas si simple !
Je fonctionne donc avec "Notifications pour les macros signées numériquement, toutes les autres macros sont désactivées" ce qui est plus satisfaisant que "Activer toutes les macros".

Merci beaucoup d'avoir attiré mon attention sur l'activation des macros.
Je considère le problème comme résolu