MS Fax Server - eMail Benachrichtigung

Question

Hallo zusammen,

ich habe ein Problem mit einem Windows Fax Server auf einem W2k8 R2 Server. 

Prinzipiell funktioniert alles einwandfrei. Ich kann Faxe versenden und empfangen.

Ich habe nun die eMail Benachrichtigung für einen User aktiviert. Wenn ich nun direkt über den WFS-Client oder den Fax Drucker ein Fax versende, bekomme ich, wie gewünscht, einen Statusbericht über erfolgreiche oder fehlgeschlagene Faxe. Es funktioniert also alles wie gewünscht.
Der Faxversand soll nun in einen Software integriert werden und dann per VBS-Script gestartet werden. Das Versenden funktioniert auch problemlos, nur bekomme ich bei dieser Methode, keine Statusmeldungen mehr per eMail. (gleicher User, gleiche Konfiguration).

Vielen Dank für eure Hilfe.

Grüsse

Dennis Bender

Script:

Sub CheckError(strDetails) 
   Dim strErr 
   If Err.Number <> 0 then 
     strErr = strDetails & " : Exception " & Err.Description & " err.Number=0x" & Hex(Err.Number)
      WScript.Echo strErr 
     'WScript.Quit(Err.Number) 
   End If 
End Sub 


On Error Resume Next 
Set FaxServer = WScript.CreateObject("FAXCOMEX.FaxServer") 
CheckError("WScript.CreateObject(FAXCOMEX.FaxServer)") 
'WScript.Echo "FaxServer created" 
'    Connect to the fax server. Specify computer name if the server is remote. See How to connect to a remote Fax Service for details.
 FaxServer.Connect "\\ps02" 
CheckError("FaxServer.Connect") 

Set objargs = wscript.arguments

Set FaxDoc = WScript.CreateObject("FAXCOMEX.FaxDocument") 
CheckError("WScript.CreateObject(FAXCOMEX.FaxDocument)") 

'    Set file name of any printable document. 
FaxDoc.Body = objargs(0) 
CheckError("FaxDoc.Body") 
FaxDoc.DocumentName = "Fax" 

FaxDoc.Recipients.Add (objargs(1)) 


FaxDoc.Sender.Email = "[e-mail]" 
FaxDoc.Sender.Name = "XXXXXXXX" 
FaxDoc.Sender.FaxNumber = "+XX xxx xxxxx" 

FaxServer.Folders.OutgoingQueue.Branding = True '    True to set banner on, False to set banner off
 FaxServer.Folders.OutgoingQueue.Save '      Make the change persistent 

'    Submit the document to the connected fax server and get back the job ID. 
JobID = FaxDoc.ConnectedSubmit(FaxServer) 
CheckError("FaxDoc.ConnectedSubmit") 
'WScript.Echo "FaxDoc.ConnectedSubmit success" 

Answer 1

Hallo,

da es um einen Skript geht, werde ich den Thread in das VB Forum verschieben. Vielleicht kann Dir dort jemand weiterhelfen.

http://social.msdn.microsoft.com/Forums/de-de/visualbasicde/threads

Gruss,
Raul

---

Raul Talmaciu, MICROSOFT 
Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „IT-Pros helfen IT-Pros“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.

Answer 2

Hallo Dennis,

Habe selbiges Problem bei Fax-Versand via Script. 

Auf der Seite hier findest Du die Beispiele wie Du die Fax-Queues bearbeiten kannst. Da Du ja eine JobId zurück bekommst, kannst Du - nachdem der Job nicht mehr in der Liste zu finden ist - dem User eine Mail zukommen lassen.  Eine bessere Möglichkeit habe ich auch noch nicht gefunden.

gruß

Thorsten

Managing Queues and Archives

Answer 3

Hallo Dennis.Bender,

Ich gehe davon aus, dass die Antwort Dir weitergeholfen hat.
Solltest Du noch "Rückfragen" dazu haben, so gib uns bitte Bescheid.

Grüße,
Robert

---

Robert Breitenhofer, MICROSOFT   Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.