Hallo Leute,

für diejenigen die in Outlook Html-Mailvorlagen verwenden möchten und in der Vorlage Bilder integriert habt, habe ich folgende Lösung.

Ausgangslage:

Es soll eine Mail erstellt werden. Der Mailtext soll dabei über ein VBScript eingefügt werden. Problem ist, dass in der Mailvorlage ein Signaturbild enthalten ist. Durch ein einfaches einfügen des Mailtextes würde aber das Bild verschwinden.

Beispiel:


Lösung:

Die Lösung des Problems ist einfacher als man glaubt.

Ihr müsst in der Mail einfach einen Textplatzhalter einfügen, der im VBScript einfach mit einer Replace-Funktion ausgetauscht wird. Wie Ihr in meinem Beispiel sehen könnt, habe ich den Platzhalter wie folgt gekennzeichnet: {Platzhalter}

Ihr müsst nur darauf achten, dass Ihr harte Zeilenumbrüchen immer mit den Variablen BeginNewLine & [...] & EndNewLine einkleidet, damit auch richtiger Html-Code verwendet wird.

Und mit nachfolgendem Script könnt Ihr jetzt einfach Mails erstellen.

 
Set WshShell = WScript.CreateObject ("WScript.Shell")
set Ag = WScript.Arguments
 
Const olByValue = 1
 
   
Dim oOApp
Dim oOMail
Dim olVorlage
Dim myMsgtext
Dim BeginNewLine
Dim EndNewLine
Dim sPath
 
BeginNewLine =""
EndNewLine = ""
 
Set oOApp = CreateObject("Outlook.Application")
 
'Standardmail
'Set oOMail = oOApp.CreateItem(olMailItem)
 
'Mailvorlage
sPath = (WshShell.CurrentDirectory) & ""
olVorlage =  sPath & "MeineOL_Vorlage.oft" 
Set oOMail = oOApp.CreateItemFromTemplate(olVorlage)
 
With oOMail
    .To = "mapitest@ihremaildomain.tld"
    .Subject = "Dies ist der Betreff"
	
	myMsgtext = BeginNewline & "Hallo Anwender," & EndNewLine &_
	            BeginNewline & "hier habe ich einmal ein Beispiel vorgestellt, wie man per VBScript eine" & EndNewLine &_
				"OL-Html-Mail verwenden kann und den Mail-Text individuell verwendet."
	
	
    .HTMLBody = Replace(.HTMLBody,"{Platzhalter}",myMsgtext)
   
   for i= 1 to ag.count
    .Attachments.Add ag.item(i-1), olByValue, 1
   next
    .Display      'zum Anschauen
   '.send           'zum sofortigen senden
End With 
 

 

Und als fertiges Projekt zum downloaden: Mail_OLVorlage.zip

Ihr müsst die Vorlage und das Script zusammen in einem Ordner speichern.

Viel Spaß.

Ahmed

Hallo insanesven,

1. Signatur

Die Signatur wird schon in der Mailvorlage gespeichert.

Einfach eine Mail erstellen mit allen Einstellungen, incl. Signatur.
Diese Mail als Vorlage *.oft abspeichern. Das war's.

2. Fehlermeldung

Hast Du das Script auch genauso erstellt?
In dem gleichen Pfad muss sich die Vorlage befinden.

Ansonsten versuche einfach einmal immer den vollen Objektverweis:

 

    oOMail.To = "mapitest@ihremaildomain.tld"
    oOMail.Subject = "Dies ist der Betreff"
   
   myMsgtext = BeginNewline & "Hallo Anwender," & EndNewLine &_
               BeginNewline & "hier habe ich einmal ein Beispiel vorgestellt, wie man per VBScript eine" & EndNewLine &_
            "OL-Html-Mail verwenden kann und den Mail-Text individuell verwendet."
   
   
    oOMail.HTMLBody = Replace(oOMail.HTMLBody,"{Platzhalter}",myMsgtext)
   
   for i= 1 to ag.count
    oOMail.Attachments.Add ag.item(i-1), olByValue, 1
   next
    oOMail.Display      'zum Anschauen
   'oOMail.send           'zum sofortigen senden
 

 

Vielleicht hilft das ja schon, ansonsten stelle einfach einmal das volle Script hier ein.

Gruß Ahmed

Hallo insanesven,

also ich habe mir die Zip-Datei noch einmal runtergeladen und ausprobiert. Bei mir funktioniert es einwandfrei. So weit, so gut.

Jetzt prüfe bitte einmal, ob die in OL folgende Einstellung hast:

Menü Extras Optionen Reiter: E-Mail-Format

Bei mir steht hier 'HTML'. Prüfe das doch einmal. Vielleicht hilft das ja schon. An sich sollte es keine Auswirkung haben, da ja die Vorlage entscheidend ist, aber man kann ja nie wissen.

Ansonsten würde ich einmal bei der OL-NG nachfragen.
NG: microsoft.public.de.outlook

Für eine kurze Info, ob Du das Problem lösen konntest, würde ich mich freuen.

Gruß Ahmed