Создайте макрос в Outlook 2010, чтобы добавить простую строку текста в тело письма

Question

Я создал этот макрос в MS Word, и он прекрасно работает, но он не работает, когда я скопировал его в макрос Outlook 2010. любая помощь приветствуется.

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

Answer 1

Если вы посмотрите на эту ссылку, то увидите, что она является частью Namespace: Microsoft.Office.Interop.Word , которое является специфическим для Word.

Итак, в Outlook вам сначала нужно получить доступ к редактору Word; так:

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