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

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

Criei esta macro no MS Word e funciona muito bem, mas não funciona quando a copio para uma macro do Outlook 2010. qualquer ajuda é apreciada.

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

Responder1

Se você olharesse linkvocê verá que faz parte do Namespace: Microsoft.Office.Interop.Word, que é específico do Word.

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

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

informação relacionada