Créez une macro dans Outlook 2010 pour ajouter une simple ligne de texte au corps du message.

J'ai créé cette macro dans MS Word et cela fonctionne très bien, mais cela ne fonctionne pas lorsque je l'ai copiée dans une macro Outlook 2010. toute aide est appréciée.

Sub Thanks1()
'
' Thanks1 Macro
'
'
    Selection.TypeText Text:="Thank you for the quote."
End Sub

Si vous regardez ce lien, vous verrez qu'il en fait partie Namespace: Microsoft.Office.Interop.Word, qui est spécifique à Word.

Donc, dans Outlook, vous devez d’abord avoir accès à l’éditeur Word; alors:

Set objDoc = Application.ActiveInspector.WordEditor 
Set objSel = objDoc.Windows(1).Selection 
objSel.TypeText Text:="Thank you for the quote."