per Client Skript - neue Button im Fenster neuer Termin

sub Initialize(oInfoCenter, key)
    Set oBar = oInfoCenter.GetCommandBar("CalendarEditor/Standard")
    oBar.Insert 1, "Textbaustein einfügen", key, "root.ico", "OnBtnPressTxtmdl", true    
end sub

sub OnBtnPressTxtmdl(oInfoCenter, oEditor)
    On Error Resume Next
    'Textbaustein suchen
    Dim HTMLtext
    Dim oApp
    Dim oAccount
    Dim oArchive
    Dim oFormattedText
    Dim oMessageItems
    Dim oMailItem

    HTMLtext = ""
    'Textbaustein suchen
    Set oApp = CreateObject("DVOBJAPILib.DvISEAPI")
    Set oAccount = oApp.Logon("", "", "", "", "", "NOAUTH")
    Set oArchive = oAccount.GetSpecialArchive(5) 'Globaler Textbaustein
    Set oMessageItems = oArchive.AllItems
    For i = 0 To oMessageItems.Count - 1
        If oMessageItems.Item(i).Type = 2 Then
            Set oMailItem = oMessageItems.Item(i)
            if oMailItem.Subject = "NAMEDESTEXTBAUSTEINS" Then
                Set oFormattedText = oMailItem.BodyText
                If oFormattedText.Type = 2 Then
                    HTMLtext = oFormattedText.HTMLText
                End If
            End If
        End If
    Next
    
    'Text an der Stelle des Cursors einfügen
    Set oSelection = oEditor.Selection
    oSelection.Text = HTMLtext

end sub