Newsgroup: it.comp.lang.visual-basic
Titolo: Inviare un fax da vb6

Salve Amici,
vorrei far partire dal mio software un fax in automatico impostando tutto 
( numero fax, oggetto , etc)  senza  intervento umano. Mi piacerebbe un 
software fax network in modo da avere traccia da ogni postazione della rete 
locale di tutti i fax ricevuti e inviati.
Ovviamente debbo solo inviare il fax , poi userei il software del fax per le 
interrogazioni
Quindi, mi consigliate qualcosa che abbia un'ottimo (e semplice)  sdk  per 
vb6 ?
Grazie

 ha scritto nel messaggio 
news:47d7c3c9$0$4785$4faf...@reader4.news.tin.it...

Puoi sempre utilizzare il fax di windows:
http://msdn2.microsoft.com/en-us/library/ms692855.aspx
Ciao.
rgio MAZZA 

 ha scritto nel messaggio 
news:fr8ith$4a3$1...@tdi.cu.mi.it...


 Si , avevo visto , ma mi pare che non gestica la rete ?
Io lo utilizzo esclusivamente in condivisione in rete;
http://msdn2.microsoft.com/en-us/library/ms692919(VS.85).aspx
Esempi: 
http://msdn2.microsoft.com/en-us/library/ms693466(VS.85).aspx
Ciao.
-- 
Sergio MAZZA 

 spese , ma non č possibile fare un download ?
Ma non devi fare nessun download; la libreria č giŕ disponibile per 
WinXP/Win2003-> installando il fax.
Se non ricordo male, quella che puoi scaricare č la guida di riferimento.
Un esempio, di utilizzo del servizio fax, puoi trovarlo qui:
www.sitocomune.com
 Sezione General
      6.131 Inviare da VBA uno o piů file per fax usando FaxServer di 
Windows XP
Ciao.
-- 
Sergio MAZZA 

Ok , l'unico esempio che funzia è il seguente: ( non necessita i riferimenti 
alle librerie)
    Set oFso = CreateObject("Scripting.FileSystemObject")
    Set oFax = CreateObject("FaxServer.FaxServer")
    With oFax
        .CONNECT "192.168.1.16" '<-- creo una connessione (al pc), se 
stringa nulla é il pc locale
        '.ArchiveDirectory = "C:\Documenti\Fax\Fax inviati" '<-- directory 
dove posizionare i fax inviati
          essendo un serve remoto o omesso il percorso
        .ArchiveOutboundFaxes = 1 '<-- salvataggio di una copia del fax 
nella cartella
        .Branding = 1 '<-- scrivi intestazione del fax nel documento
        .DirtyDays = 5 '<-- giorni per ritentare l'invio se non riuscito
        .Retries = 1 '<-- numero ore per ritentare l'invio (del fax) non 
riuscito
        .RetryDelay = 5 '<-- numero minuti per ritentare l'invio (del fax) 
non riuscito
        .ServerCoverpage = 0 '<-- non invio la pagina di informazioni
        .UseDeviceTsid = 1 '<-- invio l'identificativo del fax che trasmette
    End With
    Set oFaxDoc = oFax.CreateDocument("C:\prova.tif")
    With oFaxDoc
        oFaxDoc.FAXNumber = "omissis"
        'On Error Resume Next '<-- verifica errore invio fax
        oFaxDoc.JobId = oFaxDoc.Send   '<-- invio fax          ERRORE 
!!!!!!1
        'If ERR.Number <> 0 Then '<-- se si é verificato un errore
        '    Print #1, "Errore: " & Application.AccessError(ERR.Number) & " 
su invio fax: " & oDoc.Name & ", JobId: " & JobId
        'Else
        '    Print #1, "Fax: " & oDoc.Name & ", JobId: " & JobId & 
"...Inviato."
        'End If
    End With
ecco i problemi problemi
1)   oFaxDoc.JobId = oFaxDoc.Send    crea un errore "metodo send del'oggetto 
ifaxdoc non riuscito"
1)   il file "C:\prova.tif"  lo debbo creare io ?  e se avessi un pdf , un 
file testo  o altro non è possibile usare la stampante virtuale e dargli un 
numero di fax ?
grazie

ok, per la gioia di molti,spero , posto il codice funzionante per inviare un 
fax  da vb6 e sistema fax di windows
bisogna mettere il riferimento FAXCOM 1.0
        Dim FS As New FAXCOMLib.FaxServer
        Dim FD As FAXCOMLib.FaxDoc
        FS.CONNECT ("")  ' 192.168.1.16 ip del fax remoto che, non funziona
        Set FD = FS.CreateDocument("c:\prova.tif")
        'FD.fileName = "c:\prova.tif"  ' non serve
        FD.FAXNumber = "06233217085" ' Phony number
        FD.DisplayName = "06233217085"
        FD.DiscountSend = 0
        FD.SendCoverpage = 0
        FD.Send
        FS.Disconnect
        Set FD = Nothing
        Set FS = Nothing
Sto cercando di capire perrche non si collega al fax su un'altra postazione

 Windows XP

 ha scritto nel messaggio 
news:47e15938$0$10627$4faf...@reader2.news.tin.it...

Non si può; è una mia dimenticanza.
Il codice che di esempio utilizzava un pc con win2000pro e in effetti è a 
partire da quel s.o. che è possibile farlo (2000pro/srv->2003...). Con Vista 
non te lo so' dire...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:frtfsi$7a3$1...@tdi.cu.mi.it...


 Grazie Sergio ,  scusa lo sfogo.
Figurati, non c'è problema...
Ciao.
-- 
Sergio MAZZA