
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."