Newsgroup: it.comp.lang.visual-basic
Titolo: come spedire fax? ah, saperlo

ragazzi, aiuto !! :-(
devo sviluppare un'applicazione che genera fax a partire da un
database Access e li spedisce agli interessati.
Per i documenti nessun problema, riesco a generarli usando gli oggetti
Word.Application e tutto il resto.
I guai cominciano quando si tratta di spedirli via fax.
Tanto per cominciare non so settare la stampante di default da VB,
sembra che il codice seguente non funzioni
  Dim X As Printer
  For Each X In Printers
    If X.DeviceName = "Fax" Then Set Printer = X
  Next
infatti usando il metodo WordApp.Documents(1).PrintOut il documento
viene comunque spedito alla stampante "fisica", che è rimasta
predefinita nonostante il codice di cui sopra.
Ma anche volendo settare manualmente (orrore) il fax come stampante
predefinita, resta il fatto che il PrintOut fa partire il wizard per
l'immissione manuale del numero e dell'ora di spedizione, e questo è
inaccettabile.
Come posso fare? Dove sto sbagliando?
Per favore aiutatemi.
grazie, Geppino

io, per una necessità simile
(spedire a mezzo fax file pdf con indirizzi dei destinatari
in in database as400, ma la tipicità poco conta)
ho trovato utilissimo interfacciarmi con VB a
WINFAX pro 10.0
Costa poco, funziona bene, facilmente gestibile
(indicazione nr telefono, destinatario, copertina,
allegato, ecc.)
mi gestisce anche il log del traffico, gli invii multipli,
gli orari di invio, ecc.
a disposizione per informazioni o chiarimenti, saluto.

grazie per la dritta. ora cerco e valuto. :-)
in caso approfitterò volentieri della tua cortese disponibilità a
chiarimenti.
grazie.
Geppino

 Per favore aiutatemi.
C'è una libreria nativa, quella che in win gestisce i fax,
che ti permette di gestire la coda e quindi inviare gli stessi
senza impostare nessuna stampante o spendere soldi inutili:
la libreria (se non erro è presente solo in XP, ma puoi benissimo
copiarla su win2000): fxscomm.dll
Io l'ho già usata e va bene, ma anche il fax deve essere buono!

Grande AlterX!!!   :-D
Funziona da Dio. La stampante resta predefinita, il fax funziona e
spedisce correttamente all'ora e al numero stabiliti.
Pensare che l'avevo cercata, questa libreria o qualcosa di simile,
nella lista dei riferimenti, ma non l'avevo trovata. Forse ero stanco
:-) boh?
L'unica cosa che rimane è che se il numero del destinatario è
occupato, la coda dei fax di Windows riprova dopo dieci minuti. Io ho
bisogno di cambiare questo valore, ma, ancora una volta, non trovo la
proprietà o il metodo relativo.
Niente niente, sai dove mettere le mani?
Thanks in advance, come si suol dire :-D
Geppino

 ha scritto nel messaggio
news:e7pda1lhgh1d4tbb9...@4ax.com...

Dovrebbe essere la proprietà RetryDelay dell'oggetto FaxServer. Vedi:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/faxlega
cyvb_836n.asp
--
Ciao
Galliano.

 ha scritto nel messaggio
news:RBSpe.140867$IN.24...@twister2.libero.it...


 cyvb_836n.asp
Confermo :-)

Grazie a tutti.
A buon rendere, nei limiti delle mie conoscenze.
Geppino

Ciao!
Sono incappata nella stessa situazione....
Ho seguito cio' che avete scritto ma a me non funziona!!!
Quando arrivo sul ".send" mi da errore...e non invia nessun fax.
Mi posti il codice?
grazie
nivivi
Geppino ha scritto:


nivivi
Ecco qua.
Scusa il ritardo, ma non mi ero accorto del tuo messaggio.
Capirai, dopo quasi due settimane dal precedente ormai il thread era
salito molto in alto.
Questa è la mia funzione InviaFax, e... funziona :-D
Richiede la libreria faxcom 1.0 tyle Library (Progetto/Riferimenti...)
NomeFile è un documento Word preparato precedentemente, non l'ho
provato con altri tipi di file.
Public Sub InviaFax(NomeFile As String, Numero As String)
  Dim FaxServer As FAXCOMLib.FaxServer, FaxDoc As FAXCOMLib.FaxDoc
 
  Set FaxServer = New FAXCOMLib.FaxServer
 
  With FaxServer
    .Connect HostName
    Set FaxDoc = .CreateDocument(NomeFile)
    With FaxDoc
      .FileName = NomeFile
      .FaxNumber = Numero
      .Send
    End With
    .Disconnect
  End With
 
  Set FaxServer = Nothing
End Sub
Cià
Geppino