VBOffice

Text in Email ausblenden

Text in Emails läßt sich verstecken, wenn dieser mit einer Textmarke gekennzeichnet ist.

Zuletzt geändert: 25.05.2016 | Aufrufe: 17.497  | #158
◀ Vorheriges Beispiel Nächstes Beispiel ▶
Reporter Reporter
Mit dem Reporter erstellen Sie Berichte für Ihre Outlook Daten. Mit wenigen Klicks werden Werte aus Aufgaben, Terminen und dem Journal summiert.

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.


tip  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
ReplyAll ReplyAll
Mit diesem Addin für Outlook erhalten Sie in verschiedenen Situationen eine Warnung, bevor Sie auf eine Email versehentlich allen anderen Empfängern antworten.
email  Senden Sie eine Nachricht