VBA OutLook: Uso do editor do Word no outlook.

Copie o código abaixo e cole no editor VBA do Outlook (ALT+F11 no Outlook). Então crie um botão no "Quick Access Toolbar" para acessar a funcionalidade. IMPORTANTE: Não esqueça de ativar a "Word object library" no Menu | Tools | Referências|, do editor VBA.


Sub TimeStamp()
Dim strText As String
Dim objItem As Object
Dim objExpl As Outlook.Explorer
Dim objInsp As Outlook.Inspector
Dim objDoc As Word.Document
On Error Resume Next

Set objNameSpace = Application.GetNamespace("MAPI")
Let MyName = objNameSpace.CurrentUser.Name
Let strText = ">> " & Date & " " & Time & " " & MyName & ":" & vbCrLf & vbCrLf & vbCrLf

Set objExpl = Application.ActiveExplorer
Set objItem = objExpl.Selection(1)

If Not objItem Is Nothing Then
Set objInsp = objItem.GetInspector

If objInsp.EditorType = olEditorWord Then
Set objDoc = objInsp.WordEditor

objDoc.Characters(1).InsertBefore strText
Else
MsgBox "Não pode inserir texto formatado a menos que o Word seja o Editor."
End If
End If

Set objInsp = Nothing
Set objDoc = Nothing
Set objExpl = Nothing
Set objItem = Nothing
Set objMsg = Nothing
End Sub