Lokale HTML (bzw. Text) Dateien automatisch in Mails einbinden

da fällt mir mir @@ Include Pfad/Dateiname@@ ein.

Was man damit einbindet wird an der Stelle in der Mail eingebunden an welcher man den Befehl einbaut.

Allerdings werden @@ Befehle@@ grundsätzlich vom Service Layer ausgewertet. Entsprechend muss die Datei unter Pfad/Dateiname dann auch vom Service Layer und mit dessen Rechten lesbar sein. Das muss folglich bei der Angabe des Pfades beachtet werden.

Mit dem Include Befehl funktioniert dann aber nur mit Plain Text Mails, weil der Service Layer die nur in den Plain Text Teil der Nachricht einfügt. Der HTML Teil wird vom Client generiert.
Zusätzlich hast du dann auch noch Probleme mit den Umlauten in der Include Datei. Wenn ich das recht erinnere musste man die OEM kodiert speichern, also mit dem Editor aus der Kommandozeile.

Wizzard uh, ja, da war was das ich vergessen hatte

Das Ganze könnte man aber mit diesem kleinen David Client Script realisieren:

sub Initialize(oInfoCenter, vkey)

oInfoCenter.RegisterEvent "MessageEditor/OnLoad", vKey, "OnEditorLoad"

end sub

sub OnEditorLoad(oInfoCenter, oContext)

oInfoCenter.DoEvents()

Set oItem = oContext.Item

if oInfoCenter.Account.QueryItemState(oItem) <> DvItemStateSaved then

myHTMLText = oItem.BodyText.HTMLText

if instr(1, myHTMLText, "##dsetextwizzard##", 1)>0 then 'Prüfen ob Ersetzung nötig

strdatei="c:\test\test.txt" ' Datei deren Textinhalt ersetzt werden soll

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTest = objFSO.GetFile(strdatei)

If objTest.Size > 0 Then

Set objFile = objFSO.OpenTextFile(strdatei, ForReading)

strText = objFile.ReadAll

objFile.Close

end if

end if

myHTMLText = Replace(myHTMLText,"##dsetextwizzard##", strText)

oItem.BodyText.HTMLText = myHTMLText

oContext.Update

end if

end sub

Versuch mal @@include \\<servername>\David\Includes\import.txt qq