Zentralisierte Signatur

strError = "Fehler beim Setzen der Standardwerte für den David Client"
strAskAgain = "Beim Start des David Client werden vom Administrator vorgegeben Einstellungen gesetzt."+vbCrlf+"Möchten Sie diesen Dialog weiterhin anzeigen?"
strAskKey = "HKCU\Software\Tobit\Tobit InfoCenter\Setup\NoAskICAdmin"

sub Initialize(oInfoCenter, key)
    'Das Icon wird, wenn es ohne Pfad angegeben ist im Verzeichnis "david\code\scripts" erwartet
    Set oBar = oInfoCenter.GetCommandBar("MessageEditor/Standard")
    oBar.Insert 1, "Signatur", key, "googlemaps.ico", "OnBtnPressSignatur", true    

    On Error Resume Next
    Set Shell = CreateObject( "WScript.Shell" )

    if err <> 0 then
        oInfoCenter.MsgBox strError+vbCrlf+ CStr(Err.Number)+vbCrlf+ Err.Description, "Exclamation"
    Exit Sub
    end if

    'Dialog, um dem Benutzer anzuzeigen, das das Script Standardwerte setzt
    'oNoAsk = 1 wenn der Benutzer nicht informiert werden soll
    oNoAsk = 1

    'oNoAsk = Shell.RegRead(strAskKey)
    if err <> 0 then
    err.Clear
    end if

    if oNoAsk <> 1 then 
    iResult = oInfoCenter.MsgBox(cstr(strAskAgain), "YesNoQuestion")
    oRegVal = 1
    if iResult = DvMbYes then
        oRegVal = 0
    end if
    Shell.RegWrite strAskKey, oRegVal, "REG_DWORD"
    end if

    if err <> 0 then
        oInfoCenter.MsgBox strError+vbCrlf+ CStr(Err.Number)+vbCrlf+ Err.Description, "Exclamation"
    end if

    On Error GoTo 0

end sub



sub OnBtnPressSignatur(oInfoCenter, oEditor)
On Error Resume Next

'Textbaustein suchen
Set oApp = CreateObject("DVOBJAPILib.DvISEAPI")
Set oAccount = oApp.Logon("", "", "", "", "", "NOAUTH")
Set oArchive = oAccount.GetSpecialArchive(5) 
Set oMessageItems = oArchive.AllItems
For i = 0 To oMessageItems.Count - 1
    If oMessageItems.Item(i).Type = 2 Then
        Set oMailItem = oMessageItems.Item(i)
        'Textbaustein "Signatur" suchen
        if oMailItem.Subject = "Signatur" 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