Cree una macro en Outlook 2010 para agregar una línea simple de texto al cuerpo del correo electrónico

Cree una macro en Outlook 2010 para agregar una línea simple de texto al cuerpo del correo electrónico

Creé esta macro en MS Word y funciona muy bien, pero no funciona cuando la copié en una macro de Outlook 2010. Se agradece cualquier ayuda.

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

Respuesta1

Si miraseste enlaceVerás que es parte de Namespace: Microsoft.Office.Interop.Word, que es específico de Word.

Entonces, en Outlook primero necesitas acceder al Editor de Word; entonces:

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

información relacionada