Crie uma macro no Outlook 2010 para adicionar uma linha simples de texto ao corpo do email

Question

Eu criei esta macro no MS Word e ela funciona muito bem, mas não funciona quando eu copiei para uma macro do Outlook 2010. qualquer ajuda é apreciada.

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

    

Answer 1

Se você olhar para Neste link você verá que é parte de Namespace: Microsoft.Office.Interop.Word , que é específico para o Word.

Portanto, no Outlook, você primeiro precisa acessar o Editor do Word; então:

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