Invio Fax - Windows 2008 R2 - 64 Bit

giovedì 23 maggio 2013 - 17.59
Tag Elenco Tags  Windows Server 2008 R2  |  VBScript

iif Profilo | Expert

Ciao a tutti,

ho creato questo script per l'invio dei fax su win2003 server 64 bit:

Function Invia(nome)

Set objFAx = WScript.CreateObject("FaxServer.FaxServer")
objFAx.Connect ("fax1")
Set FaxDoc = objFAx.CreateDocument("y:\" & f1.Name)
MyPos = InStr(f1.Name, ".")
numero = Mid(f1.Name, 1, MyPos - 1)
FaxDoc.FaxNumber = numero
JobID = FaxDoc.Send() ' invio del fax

If Err.Number <> 0 Then
End If

objFAx.DisConnect ' disconessione dal server
Set FaxDoc = Nothing
Set objFAx = Nothing

End Function

Ora vorrei migrare la macchina su windows 2008 r2 - 64 bit, però questo script non funziona.
Mi dice invalid data alla riga FaxDoc.Send().
E' cambiato qualcosa?
Grazie.

freeteo Profilo | Guru

Ciao,
non mi è capitato di usare lo script per inviare i fax, quindi non saprei esattamente il motivo.

Per queste operazioni sul fax, ho referenziato il componente COM "FAXCOMEXLib" e poi sono andato ad usare le classi che il wrapper .net mi ha creato.
Con un codice di questo tipo:
public string Invia(string file) { FaxDocumentClass fax = new FaxDocumentClass(); fax.Sender.Name = "Mittente"; //--- identitificativo chiamante fax.Sender.Department = "Chiamante"; fax.Sender.Company = "Chiamante"; fax.Sender.TSID = "NumeroFax"; fax.Sender.FaxNumber = "NumeroFax"; fax.Subject = "Oggetto"; fax.Note = "Testo"; fax.Recipients.Add("Destinatario", "Cliente"); //--- nel body ci va il file fisico fax.Body = file; fax.DocumentName = file; fax.CoverPageType = FAX_COVERPAGE_TYPE_ENUM.fcptNONE; fax.ScheduleType = FAX_SCHEDULE_TYPE_ENUM.fstNOW; //--- apro e chiudo FaxServer serverFax = Connetti(); string[] valore = fax.ConnectedSubmit(serverFax) as string[]; return valore[0]; }

private static FaxServer Connetti() { string nomeComputer = Dns.GetHostName(); FaxServer ser = new FaxServer(); ser.Connect(nomeComputer); return ser; }

da me funziona, prova a vedere se per caso ti può aiutare cambiare strategia...

Ciao.

Matteo Raumer
[MCAD .net, MVP Visual C#]
http://blogs.dotnethell.it/freeteo
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5