mit VBS OL-Html-Mailvorlage (mit Variablen FreePDF

FreePDF_Multidoc » Sonstiges » VB-Programmbeispiele » mit VBS OL-Html-Mailvorlage (mit Variablen FreePDF_Multidoc)

Themen-Einstellungen

Thema drucken

#1 | RE: mit VBS OL-Html-Mailvorlage (mit Variablen FreePDF_Multidoc) datum

26.02.2010 12:29

Ahmed Martens

Informationen anzeigen

Beiträge:	401
Registriert seit:	16.03.2009

Hallo Leute,

hier habt Ihr ein Beispiel, wie man per VBS ein Outlook-Mail erstellt und gleichzeitig die Variablenversorgung über FreePDF mit einbindet.

Ausgangslage:

Es soll über ein VBSricpt eine OL-HTML-Mail erstellt werden. In dem Mailtext sollen dabei Variablen aus FreePDF_Multidoc mit eingebunden werden. Dabei sollen die Variablen aber nicht für die Konvertierung als Dateiname u./o. Pfad verwendet werden.

Lösung:

Die Lösung besteht darin, dass mit Hilfe eines AddIn's die benötigten Variablen zusätzlich abgefragt werden können. Die in dem AddIn hinterlegten Variablen brauchen nämlich nicht zusätzlich in dem Druckjob vorhanden sein. Und das machen wir uns zunutze, um Variablen die nur in der Mail vorhanden sein sollen, zu verwenden.

1. Schritt

Richtet Euch ein AddIn mit folgendem Aufbau.

Ihr müsst aber unbedingt darauf achten, dass als Trennzeichen auf keinen Fall ein Semikolon verwendet wird. Aus diesem Grunde habe ich als Trennzeichen zwischen den Dateinamen und der Variablen das "|"-Zeichen genommen. Die Variablen wiederum sind mit einem "," getrennt worden.

2. Schritt

Jetzt müsst Ihr lediglich ein Druckjob erstellen, der dieses AddIn beinhaltet.

Und hier ist das VBSript:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 

Set WshShell = WScript.CreateObject (&quot;WScript.Shell&quot;)
set Ag = WScript.Arguments
 
Const olByValue = 1
 
   
Dim oOApp
Dim oOMail
Dim olVorlage
Dim myMsgtext
Dim BeginNewLine
Dim EndNewLine
Dim sPath
Dim sMail
dim sParameter
dim sTmp
 

&#039;1. Schritt
&#039;&Uuml;bergabeparameter wird in PDF-Dateien und Variablen aufgeteilt.
&#039;Trennzeichen ist |
sTmp = split(ag(0),&quot;|&quot;,-1,1)
 
&#039;2. Schritt
&#039;Alle Variablen die im AddIn hinterlegt wurden, werden jetzt aufgeteilt.
&#039;Trennzeichen ist ,
sParameter=split(sTmp(1),&quot;,&quot;,-1,1)
 
BeginNewLine =&quot;&quot;
EndNewLine = &quot;&quot;
 
Set oOApp = CreateObject(&quot;Outlook.Application&quot;)
 
&#039;Standardmail
&#039;Set oOMail = oOApp.CreateItem(olMailItem)
 
&#039;Mailvorlage
sPath = &quot;c:Netzwerk&quot;
olVorlage =  sPath &amp; &quot;MeineOL_Vorlage.oft&quot;
Set oOMail = oOApp.CreateItemFromTemplate(olVorlage)
 
With oOMail
    .To = &quot;mapitest@ihremaildomain.tld&quot;
    .Subject = &quot;Dies ist der Betreff&quot;
   
   myMsgtext = BeginNewline &amp; &quot;Hallo Anwender,&quot; &amp; EndNewLine &amp;_
               BeginNewline &amp; &quot;hier habe ich einmal ein Beispiel vorgestellt, wie man per VBScript eine&quot; &amp; EndNewLine &amp;_
            &quot;OL-Html-Mail verwenden kann und den Mail-Text individuell verwendet.&quot;
 
&#039;Die Variablen k&ouml;nnen jezt ganz einfach in einem Text verwendet werden.
&#039;for i=0 to UBound(sParameter)	&#039;Ubound() liefert die max. Anzahl der Variablen
&#039;	msgbox sParameter(i)
&#039;next	
 
&#039;Beispiel f&uuml;r einen Text:
 
    myMsgtext = myMsgtext &amp; BeginNewLine &amp;_
	            &quot;Sie erhalten die Bf. f&uuml;r &quot; &amp; sParameter(0) &amp; &quot;/&quot; &amp; sParameter(1) &amp; &quot;.&quot; &amp; EndNewLine
				&#039;Sie erhalten die Bf. f&uuml;r 02/2009.&quot;
			
    
    .HTMLBody = Replace(.HTMLBody,&quot;{Platzhalter}&quot;,myMsgtext)
   
    &#039;sTmp(0) enth&auml;lt die Datei
    .Attachments.Add trim(sTmp(0)), olByValue, 1
    .Display      &#039;zum Anschauen
   &#039;.send           &#039;zum sofortigen senden
End With
 
 
 

Das Script ist schon bekannt. Der Unterschied besteht im Wesentlichen nur aus den zusätzlichen Parametern.

Bitte passt noch die Pfade zur Mailvorlage an.

Nachteil hierbei ist allerdings, dass die Ausdrucke immer nur als ein PDF konvertiert werden können, da ein AddIn immer sofort bei jeder Konvertierung aktiviert wird. Warum das so sein muss und welche Lösung es auch hierfür gibt, könnt Ihr in meinem Beitrag in der Rubrik FreePDF_Multidoc nachlesen.

Bei Problemen und Fragen bitte hier melden.

Gruß Ahmed

FreePDF_Multidoc (PS2PDF mit vielen Optionen f. FreePDF)
File2PDF (komplette Verzeichnisse auf einen Streich umwandeln)
findest Du alles hier: http://amTools.de

Antworten

Alles rund um FreePDF und andere Tools