Erstellen Sie ein Makro in Outlook 2010, um dem E-Mail-Text eine einfache Textzeile hinzuzufügen

Question

Ich habe dieses Makro in MS Word erstellt und es funktioniert einwandfrei, aber es funktioniert nicht, wenn ich es in ein Outlook 2010-Makro kopiere. Ich bin für jede Hilfe dankbar.

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

Answer 1

Wenn Sie sich ansehendieser LinkSie werden sehen, dass es Teil von ist Namespace: Microsoft.Office.Interop.Word, das spezifisch für Word ist.

Sie müssen in Outlook zunächst Zugriff auf den Word-Editor erhalten. Folgendes ist erforderlich:

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