Ich habe den PDFCreator (erst 0.9.6, jetzt 0.9.9) auf einem Server (Win 2003) installiert. Im netzwerk drucke ich auf den Netzwerkdrucker. Dann habe ich ein Script, welches mir das erzeugte PDF per Mail an mich sendet. Das PDF wird komplett richtig erzeugt, aber bei mir im Outlook (2003) kommt nur ein fehlerhaftes PDF an (keine Schrift sondern Sonderzeichen, bei Plänen fehlen Inhalte, in Excel Daten). Aber nicht immer! Und wenn ich dann von Server die erzeugte PDF per Outlook versende, kommt sie auch richtig an. Nun kann ich alleine mir helfen, aber 200 User im Netzwerk könenn das nicht. Mein Script sieht so aus:
' Email PDF to User/Creator script
Option Explicit
Const AppTitle = "PDFCreator - EmailToUser"
Dim objArgs, filelocation, filename, user, server, objMessage
Set objArgs = WScript.Arguments
If objArgs.Count = 0 Then
MsgBox "This script needs a parameter!", vbExclamation, AppTitle
WScript.Quit
End If
filelocation = objArgs(0)
filename = objArgs(1)
user = objArgs(2)
' create message object
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "PDFCreator - " & filename
objMessage.From = "pdfcreator@domain.de"
objMessage.To = user & "@domain.de"
objMessage.AddAttachment filelocation
' assign smtp server variable
server = "xx.x.x.xx"
' configure to use smtp server
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' set smtp server name
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = server
' set smtp port
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send
Kann mir hierzu jemand weiterhelfen?