Создайте макрос в Outlook 2010 для добавления простой строки текста в тело письма.

Создайте макрос в Outlook 2010 для добавления простой строки текста в тело письма.

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

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

решение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." 

Связанный контент