Outlook VBA: Open Teams Meeting

OpenTeamsMeetingChat.vba

Sub OpenTeamsMeetingChat()
    Dim Item As Object
    
    Set Item = GetCurrentItem()
    If Item Is Nothing Then
        MsgBox "No Item selected"
        Exit Sub
    End If
    If Not TypeOf Item Is Outlook.AppointmentItem Then
        Exit Sub
    End If
    
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
   
    
    ' Get Meeting Id by parsing for meeting link in the Body
    Dim sId As String
    Dim sChatLink As String

    With regEx
        .Pattern = "https://teams.microsoft.com/l/meetup-join/([^/]*)"
        .IgnoreCase = True
        .Global = False
    End With

    If regEx.Test(Item.Body) Then
        sId = regEx.Execute(Item.Body)(0).SubMatches(0)
        sChatLink = "msteams://teams.microsoft.com/l/chat/" & sId
        ' To open the URL, use Shell and default browser
        Shell "cmd /c start """" """ & sChatLink & """", vbHide
    End If
    
End Sub