Hallo Forum,
ich nutze das sendmailscript. Alles klappt soweit!
Im Script kann man das Subject der Mail mitgeben.
Kennt jemand den Befehl für das hinzufügen des Messagebody?
Markus Funk
Script:
Const maxTime = 10 ' in seconds
Const sleepTime = 250 ' in milliseconds
Dim fso, WshShell, PDFCreator, PDFCreatorOptions, DefaultPrinter, ReadyState, c, _
AppTitle, Scriptname, Scriptbasename, objArgs, fname
Set objArgs = WScript.Arguments
Set fso = CreateObject("Scripting.FileSystemObject")
ScriptBaseName = fso.GetBaseName(Wscript.ScriptFullname)
AppTitle = "PDFCreator - " & ScriptBaseName
If CDbl(Replace(WScript.Version,".",",")) < 5.1 then
MsgBox "You need the ""Windows Scripting Host version 5.1"" or greater!", vbCritical + vbSystemModal, AppTitle
Wscript.Quit
End if
Set WshShell = WScript.CreateObject("WScript.Shell")
Set PDFCreator = Wscript.CreateObject("PDFCreator.clsPDFCreator", "PDFCreator_")
Set PDFCreatorOptions = Wscript.CreateObject("PDFCreator.clsPDFCreatorOptions")
fname = objArgs(0)
'msgbox fname
Set PDFCreatorOptions = PDFCreator.cOptions
With PDFCreatorOptions
.StandardSubject = "Dokument: "
End With
Set PDFCreator.cOptions = PDFCreatorOptions
With PDFCreator
.cDefaultprinter = Sage2Mail
'DefaultPrinter
.cSendMail fname, "email@hier_eingeben"
Wscript.Sleep 2000
fso.Deletefile fname
.cClose
End With
'--- PDFCreator events ---
Public Sub PDFCreator_eError()
MsgBox "An error is occured!" & vbcrlf & vbcrlf & _
"Error [" & PDFCreator.cErrorDetail("Number") & "]: " & PDFcreator.cErrorDetail("Description"), vbCritical + vbSystemModal, AppTitle
Wscript.Quit
End Sub