[VB6]: Mandare un fax da codice

[Brainjar]

Ciao a tutti,
mi è stato chiesto di modificare una mia 'vecchia' applicazione che manda e-mail da codice,
in VB 6.0, aggiungendo la funzionalità di invio FAX. Ho tutti idati, contenuto testuale,
destinatario, mittente, numero fi FAX del destinatario.
Non ho trovato ancora niente, anche perchè la ricerca sul forum è disabilitata.
Qualcuno ha affrontato e/o risolto il problema ?
Grazie infinite a tutti anticipatamente.

[mardok30]

Hai provato ad usare il componente di Windows per inviare fax? vedi se fa al caso tuo...

[Brainjar]

Sono completamente all'oscuro sull'esistenza e sull'uso di tale componente.
Hai dritte al riguardo ?
Grazie.

[mardok30]

Funziona come una stampante, pertanto devi vedere se è presente nell'elenco delle stampanti installate, in caso negativo la installi andando in
pannello di controllo->installazione applicazioni->installazione componenti di Windows.
Quando vuoi mandare il fax devi, tramite codice, selezionare come stampante da usare proprio il fax, e usare il metodo che generalmente usi per stampare su una stampante normale.

[Brainjar]

Grazie Mardok30,
ho provato il componente. Ho comunque risolto utilizzando il componente di Acrobat per
la visualizzazione e stampa dei .pdf. Quando si stampa si sceglie il fax tra le stampanti
installate.

Grazie ancora.

[superesse]

Originariamente inviato da Brainjar
Grazie Mardok30,
ho provato il componente. Ho comunque risolto utilizzando il componente di Acrobat per
la visualizzazione e stampa dei .pdf. Quando si stampa si sceglie il fax tra le stampanti
installate.

Grazie ancora.

me lo posteresti il codice?
sono in difficoltà!

grazie

[yyzyyz]

Sinceramente in archivio ho trovato questo sorgente , ma nn ho avuto mai modo di testarlo.
penso che sui riferimenti devi aggiungere "faxcom 1.0 library", fai delle prove e vedi un po', cmq penso funzioni su linea analogica (modem56k).

Private Sub Form_Load()
    On Error GoTo ErrHandler
    Dim strComputer As String
    strComputer = "yourComputerName"
    Dim oFaxServer As FAXCOMLib.FaxServer
    Set oFaxServer = New FAXCOMLib.FaxServer
    Dim oFaxDoc As FAXCOMLib.FaxDoc
    oFaxServer.Connect strComputer
    oFaxServer.ServerCoverpage = 0
    Set oFaxDoc = oFaxServer.CreateDocument("c:\1.txt")


    With oFaxDoc
        .FaxNumber = "079919191"
        .DisplayName = "Fax Server"
        Dim lngSend As Long
        lngSend = .Send
    End With
    Set oFaxDoc = Nothing
    oFaxServer.Disconnect
    Set oFaxServer = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Number & " " & Err.Description
End Sub

ps. fammi sapere come va'