
このマクロを 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."