Text in Email ausblenden

Text, der mit einer Textmarke versehen ist, läßt sich mit diesem Makro aus- und auch wieder einblenden. Markieren Sie beliebigen Text in der Email, klicken Sie dann auf Einfügen, Textmarke, und vergeben Sie einen Namen für die Textmarke. Der Name der Textmarke muss im Makro an der gekennzeichneten Stelle zwischen die Anführungszeichen geschrieben werden. Starten können Sie das Makro einfach über alt+f8.

Dieses Beispiel funktioniert ab Outlook 2007. In älteren Versionen könnte es funktionieren, wenn Word als Maileditor festgelegt ist.

  So fügen Sie Makros in Outlook ein

Public Sub CollapseExpandText()
  Dim Ins As Outlook.Inspector
  Dim Document As Object 'Word.Document
  Dim Bm As Object 'Word.Bookmark
  Dim Fn As Object 'Word.Font
  
  Set Ins = Application.ActiveInspector
  Set Document = Ins.WordEditor
  'Hier Name der Textmarke eingeben
  Set Bm = Document.Bookmarks("TextAusblenden")
  Set Fn = Bm.Range.Font
  Fn.Hidden = Not Fn.Hidden
End Sub