Wenn Du mit Footer die Fußnote meinst welche man über die Benutzereinstellungen im Reiter Versand ganz unten einstellt, dann nein, denn der wird aus gutem Grund (er sollte ja die gesetzlichen Pflichtangaben enthalten die vom absendenden Nutzer nicht gelöscht werden können sollten) erst unmittelbar beim Versand angefügt.
Die zweckmäßige Lösung ist es dort wirklich nur die echten Pflichtangaben drin unterzubringen und alle anderen Angaben samt Grußformel zum Teil der eMail Vorlage zu machen.
Vielen Dank, so war auch meine Idee.
Da es ja anders nicht möglich ist.
Ich werde mal versuchen es meinem Kunden Nahe zu bringen 
Eigentlich wollten wir es umgehen, jedem eine Vorlage anzupassen.
warum jedem eine Vorlage anpassen?
Ihr könnt doch mit Variablen arbeiten.
Man muss nur die richtigen Variablen nehmen 
Als grober Hinweis ob man die richtigen hat kann man sich merken:
Im Footer sind die Variablennamen englischsprachig, in Vorlagen Deutsch
Einfach mal in der Online Hilfe (zu erreichen mit F1) nach
Benutzer-Name
suchen, dann gibt es genau einen Treffer auf eine Seite mit Variablen.
Die dort gezeigten Variablen passen für Vorlagen.
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 subUnd 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
Du hast noch kein Benutzerkonto auf unserer Seite? Registriere dich kostenlos und nimm an unserer Community teil!