Erreur d'opération tentative échouée

J'ai ce code qui prévisualise un courrier Outlook.

Dim wordDoc As Word.Document '<--- Dim objMail as Object Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) Set attach = objMail.attachments Set wordDoc = objMail.GetInspector.WordEditor 

Mon problème est que, il est parfois que cette ligne Set wordDoc = objMail.GetInspector.WordEditor renvoie une erreur indiquant:

"L'opération tentée a échoué".

Cela me tient pendu et je ne sais pas comment le gérer. De l'aide?

Tout d'abord, je proposerais de briser la string des appels de propriété et de méthode et de les déclarer sur des lignes de code distinctes. Cela permet de find quelle propriété ou méthode entraîne le problème.

 Dim inspector as Outlook.Inspector Set inspector = objMail.GetInspector Set wordDoc = inspector.WordEditor 

Où et quand tentez-vous d'get l'éditeur Word? Est-ce le gestionnaire d'events ItemSend?

WordEditor peut parfois échouer si l'inspecteur n'est pas encore visible. Pourquoi avez-vous besoin de l'object Word?