Smarte Textformatierung: Dieser VBA Code revolutioniert Ihren E-Mail-Fluss

Sie haben einen Hyperlink als Schnellbaustein in Outlook (Microsoft 365) erstellt und stellen fest, dass, wenn Sie diesen Baustein verwenden, Outlook im Anschluss die Formatierung des Hyperlinks (mittelblau und unterstrichen) auf den nachfolgenden Text überträgt. Dieses Verhalten tritt insbesondere auf, wenn Sie Outlook schließen und wieder öffnen. Ihr Ziel ist es, nach dem Einfügen des Schnellbausteins ohne zusätzliche Schritte im Standardformat weiterschreiben zu können. Im Folgenden finden Sie den VBA-Code, der genau auf Ihre Bedürfnisse zugeschnitten ist, mit einer detaillierten Erklärung der einzelnen Schritte. Bitte beachten Sie, dass Sie grundlegende Kenntnisse in VBA benötigen, um diesen Code zu implementieren und anzupassen.

Sub InsertQuickPartAndResetFormat()
Dim myInspector As Outlook.Inspector
Dim myDocument As Word.Document
Dim mySelection As Word.Selection
Dim quickPartName As String

' Name des Schnellbausteins festlegen
quickPartName = "DeinSchnellbausteinName"

Set myInspector = Application.ActiveInspector()
If Not myInspector Is Nothing Then
If TypeOf myInspector.CurrentItem Is MailItem Then
Set myDocument = myInspector.WordEditor
Set mySelection = myDocument.Application.Selection

' Einfügen des Schnellbausteins
myDocument.AttachedTemplate.BuildingBlockEntries(quickPartName).Insert Where:=mySelection.Range, RichText:=True

' Cursor hinter den Schnellbaustein setzen und Format zurücksetzen
With mySelection
.Collapse Direction:=Word.WdCollapseDirection.wdCollapseEnd
.TypeText Text:=" "
.MoveLeft Unit:=Word.WdUnits.wdCharacter, Count:=1
.Font.Reset
End With
End If
End If

Set mySelection = Nothing
Set myDocument = Nothing
Set myInspector = Nothing
End Sub

So funktioniert der Code:

1. Definieren der Variablen: Es werden Variablen für den Inspector, das Dokument und die Auswahl (Selection) definiert.
2. Festlegen des Schnellbaustein-Namens: Hier musst du den Namen deines Schnellbausteins eintragen, wo DeinSchnellbausteinName steht.
3. Einfügen des Schnellbausteins: Der Schnellbaustein wird an der aktuellen Cursorposition eingefügt.
4. Formatierung zurücksetzen: Nach dem Einfügen des Bausteins fügt das Makro ein Leerzeichen ein und setzt dann das Format dieses Leerzeichens zurück auf das Standardformat. Anschließend wird der Cursor um ein Zeichen nach links bewegt, sodass er direkt hinter dem Schnellbaustein steht.

Um diesen Code zu verwenden, müssen Sie diesen in den VBA-Editor von Outlook einfügen. Gehen Sie dazu in Outlook auf „Datei“ > „Optionen“ > „Menüband anpassen“ und aktivieren Sie dort „Entwicklertools“. Dann können Sie im Menüband über die „Entwicklertools“ den VBA-Editor öffnen.