Come inviare un fax virtuale di base

Visual Basic ( VB ) è un linguaggio di programmazione utilizzato per creare applicazioni software . VB può inviare un fax utilizzando una libreria di oggetti chiamato FAXCOMEXLib . Cose che ti serviranno
Visual Basic Editor
Notepad
Mostra più istruzioni
1

impostare un nuovo sottoprogramma in VB e chiamare gli oggetti della libreria fax e impostare la variabili:

private Sub Form_Load ( ) per

Dim objFaxDocument As New FAXCOMEXLib.FaxDocument

Dim objFaxServer As New FAXCOMEXLib.FaxServer

Dim objSender Come FAXCOMEXLib . FaxSender

Dim JobID As Object
2

Impostare codice di gestione degli errori per catturare eventuali errori ed evitare che l'applicazione si blocchi :

On Error GoTo error_handler

3

connettersi all'oggetto server di fax : .

objFaxServer.Connect ( " " ) economici 4

Aprire il Blocco note
5

Inserisci il messaggio fax che si desidera inviare e salvare come file txt
6

Importa il testo del fax , includendo il file txt , creato nei passaggi precedenti : . . .

objFaxDocument.Body = " c : \\ Fax \\ messaggio.txt "
7

il nome per il fax e il livello di priorità :

objFaxDocument.DocumentName = "Il mio nome fax "

objFaxDocument.Priority = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptHIGH

In questo caso il documento verrà inviato immediatamente una volta che il codice viene eseguito .
8

Aggiungi un numero di fax per cui verrà inviato il fax :

objFaxDocument.Recipients.Add ( " 999999999 " , " Wayne " ) per

Sostituire le cifre " 999999999 " con il numero di fax .
9

la possibilità di collegare il testo di un fax a un ricevimento di fax , quando è inviato via email :

objFaxDocument.AttachFaxToReceipt = True
10

scegliere una copertina tipo di pagina :

objFaxDocument.CoverPageType = FAXCOMEXLib.FAX_COVERPAGE_TYPE_ENUM.fcptSERVER

objFaxDocument.CoverPage =
"generico"
11

Aggiungi l' indirizzo email al quale il ricezione fax sarà inviato e impostare il tipo di ricevuta per email :

objFaxDocument.ReceiptAddress = " [email protected] "

objFaxDocument.ReceiptType = FAXCOMEXLib.FAX_RECEIPT_TYPE_ENUM.frtMAIL

12

programmare l' ora in cui il fax deve essere inviato :

objFaxDocument.ScheduleType = FAXCOMEXLib.FAX_SCHEDULE_TYPE_ENUM.fstSPECIFIC_TIME

objFaxDocument.ScheduleTime = CDate ( " 12:35:47 " ) economici 13

Aggiungi il testo oggetto della mail :

objFaxDocument.Subject =" Oggi fax "
14

impostare le proprietà per il mittente e salvare le informazioni :

objFaxDocument.Sender.Title = "Mr. "

objFaxDocument.Sender.Name = " John Ryan "

objFaxDocument.Sender.Email = " [email protected] "

objFaxDocument.Sender.ZipCode = " 44118 "

objFaxDocument.Sender.SaveDefaultSender ( ) economici 15

Invia il documento per il fax server e uscita l'ID del processo , quando viene restituito dalla funzione :

JobID = objFaxDocument.ConnectedSubmit ( objFaxServer ) per

MsgBox ( " l'ID del processo è : " & JobID ( 0 ) )
Pagina 16

disconnettersi dal server fax in modo che possa essere utilizzato da qualcun altro e chiudere la VB subroutine :

objFaxServer.Disconnect ( ) per

Exit Sub

17

Aggiungi la subroutine per gestire eventuali errori che si verificano :

error_handler :

' implementare la gestione degli errori , alla fine della vostra subroutine . Implementazione Questo

' è per la dimostrazione scopi

MsgBox ( " Numero di errore : " & Hex ( Err.Number ) & " , " & Err.Description )

End Sub

Se ci sono errori quando si tenta di inviare un fax , questo codice emettere le informazioni di errore come un messaggio pop-up .
18

Salvare il file VB ed eseguire l'applicazione . Il servizio di fax sarà chiamato e il messaggio verrà inviato .

• Come fare una chiave Gen a Vb 
• Come aggiungere un oggetto ArrayList