Und wenn du den Footer aus einem Textbaustein holst?
Hier mal ein Script, welches den Text dann an die Stelle des Cursors einfügt:
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
Alles anzeigen
Und um die Pflichangaben für E-Mails einzuhalten machen wir es dann so, das beim Drücken des "Senden"-Buttons alle E-Mailempfänger ausgelesen werden und geprüft wird, ob eine externe Domain mit dabei ist. Wenn ja, kann die E-Mail nur versendet werden, wenn die Signatur eingefügt wurde (kann man ja anhand eines eindeutigen Textes machen, der nur in der Signatur vorkommt).
Vorteil ist hierbei, das man die Fußnote nicht bei den internen E-Mails dabei ist.
Wie man die Inhalte einer E-Mail prüfen kann, kannst du diesem Script entnehmen:
Geht es die Größe ausgehender Mails zu beschränken?
Gruß
Baumi
