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