
Я создал этот макрос в 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."