Word-Makro in Outlook nutzen

Seit Outlook 2007 verwendet Outlook immer Microsoft Word als Email-Editor. Damit können Entwickler die mächtige Word-Bibliothek nutzen, um den Inhalt von Emails und anderen Elementen zu bearbeiten. Und noch besser: Word hat, im Gegensatz zu Outlook, einen Makrorekorder. Sie können also ein Makro in Word aufzeichnen und den gleichen Code auch in Outlook verwenden.

Ein Makro zeichnen Sie über das Entwickler-Tab in Word auf. Wenn Sie das nicht sehen, klicken Sie mit rechts aufs Menüband und wählen Sie Menüband anpassen. Wählen Sie in der rechten Liste dann Entwicklertools aus. Schließen Sie mit OK und klicken Sie unter Entwicklertools dann auf Makro aufzchn.

Im Beispiel habe ich in Word die Makroaufzeichnung gestartet, dann das Wort "Hallo" ins Dokument geschrieben und fett hervorgehoben. Der folgende Code zeigt das Ergebnis der Code-Aufzeichnung:

  So fügen Sie Makros in Outlook ein

Sub Makro1()
'
' Makro1 Makro
'
'
  Selection.TypeText Text:="hallo"
  Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
  Selection.Font.Bold = wdToggle
End Sub

Wie Sie sehen, benutzt Word das Selection-Objekt, um den Text im Dokument zu bearbeiten. Um den gleichen Code unverändert in Outlook verwenden zu können, muss nur eine Variable auf das Selection-Objekt der Email gesetzt werden.

(Setzen Sie zuerst über Extras/Verweise einen Verweis auf die "Microsoft Word x.0 Object Library", damit Outlook die Word-Objekte erkennen kann.)

Public Sub UseWord()
  Dim Ins As Outlook.Inspector
  Dim Document As Word.Document
  Dim Word As Word.Application
  Dim Selection As Word.Selection

  Set Ins = Application.ActiveInspector
  Set Document = Ins.WordEditor
  Set Word = Document.Application
  Set Selection = Word.Selection

  'hier können die makros aus word eingefügt werden

End Sub