E-posta gövdesine basit bir metin satırı eklemek için Outlook 2010'da bir makro oluşturun

Bu makroyu MS Word'de oluşturdum ve harika çalışıyor ancak bir Outlook 2010 makrosuna kopyaladığımda çalışmaz. herhangi bir yardım takdir edilmektedir.

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

Bu bağlantıya bakarsanız Namespace: Microsoft.Office.Interop.Word, bunun Word'e özgü bir parçası olduğunu göreceksiniz .

Bu nedenle, Outlook’ta önce Word Editor’a erişmeniz gerekir; yani:

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