Outlook Besprechung - Skript zum Einfügen von Standarddaten

With cInspector.CurrentItem
regex.Pattern = "([^\s]+)@unternehmensmail.de"  
Set match = regex.Execute(.Recipients)
If match.Count > 0 Then
            strGPMail = match(0).submatches(0)

Sub NAME_Terminbestätigung()
    ' Variablen  
    Dim cInspector As Inspector, regex As Object, strLocation, strLocation1, strLocation2, strLocation3, strMessageType, strDate As String
    ' Objekte initialisieren  
    Set regex = CreateObject("vbscript.regexp")  
    regex.IgnoreCase = True
    ' aktiven Inspector finden  
    Set cInspector = Application.ActiveInspector
    If cInspector Is Nothing Then
       MsgBox "Kein Element offen!", vbExclamation  
       Exit Sub
    End If
    ' mit aktivem Element im Inspector arbeiten  
    With cInspector.CurrentItem
        ' Fallback für alle Variablen  
        strLocation = "strLocation not found"  
        strLocation1 = "strLocation1 not found"  
        strLocation2 = "strLocation2 not found"  
        strLocation3 = "strLocation3 not found"  
        strMessageType = "Gespräch"  
        ' Elemente aus der Betreffzeile mit Regex extrahieren  
        ' ([^\s]+) Alle Zeichen außer Leerzeichen - nur ein Wortgebilde; (.*) = alle Zeichen // 3 Submatches werden gesucht  
        regex.Pattern = "([^\s]+): (.*) ([^\s]+) für"  
        Set match = regex.Execute(.Subject)
        ' Wenn Regex-Match erfolgreich war  
        If match.Count > 0 Then
            ' Submatch 1 aus dem Regex dem Einladungsort zuweisen  
            strLocation = match(0).submatches(0)
            ' Submatch 3 aus dem Regex dem Typen der Nachricht zuweisen  
            strMessageType = match(0).submatches(2)
        End If
        ' bei verschiedenen Gesprächstypen unterschiedlich umformen  
        If strMessageType = "Update" Then  
            strMessageType = " Updategespräch"  
        ElseIf strMessageType = "Wirtschaftsanalyse" Then  
            strMessageType = "e persönliche Wirtschaftsanalyse"  
        Else
            strMessageType = " " & strMessageType  
        End If
        ' Unterscheidung Zoom / nicht Zoom in Nachricht  
        If strLocation = "Zoom-Einladung" Then  
            strLocation1 = "zu einem Zoom-Meeting "  
            strLocation2 = "via Zoom statt."  
            strLocation3 = "Unter folgendem Link können Sie sich einwählen:"  
        Else
            strLocation1 = ""  
            strLocation2 = "persönlich statt."  
            strLocation3 = "Unter folgender Adresse finden Sie zu uns:"  
        End If
        ' Standard-Datum formatieren  
        strDate = Format(.Start, "\a\m dddd, \d\e\n dd. mmmm yyyy \u\m hh:nn \U\h\r")  
        ' wenn das Datum heute ist formatiere das Datum um  
        If DateValue(.Start) = Date Then
            strDate = "heute um " & Format(.Start, "hh:nn \U\h\r")  
        End If
        ' Fülle den Inhalt des Bodies aus - Name + Signatur manuell einfügen  
        .Body = "Sehr geehrte #####," & vbNewLine & vbNewLine & _  
                "hiermit erhalten sie die Einladung " & strLocation1 & "für ein" & strMessageType & " mit Ihrem Wirtschaftsberater NAME." & vbNewLine & vbNewLine & _  
                "Das Gespräch findet " & strDate & " " & strLocation2 & "" & vbNewLine & _  
                "" & strLocation3 & "" & vbNewLine & _  
                .Location & vbNewLine & vbNewLine & _
                "Herr NAME freut sich auf das gemeinsame Gespräch." & vbNewLine & vbNewLine & _  
                ""  
    End With
End Sub

Dim rec as Recipient

for each rec in .Recipients
    MsgBox rec.Address
Next