Opzetten van een nieuwe subroutine in VB en bel de fax bibliotheek objecten en stel de variabelen :

Private Sub Form_Load
( ) op

Dim objFaxDocument als Nieuwe FAXCOMEXLib.FaxDocument

Dim objFaxServer
als Nieuwe FAXCOMEXLib.FaxServer

Dim objSender
als FAXCOMEXLib . FaxSender

Dim JobID
als Voorwerp kopen van 2

Stel Error handling code om eventuele fouten te vangen en te voorkomen dat de applicatie crasht :

On Error GoTo Error_Handler

3

verbinding met de faxserver object : .

objFaxServer.Connect
( " " )

Open Kladblok 4
5

Voer het faxbericht dat u wilt verzenden en opslaan als een txt -bestand

Import 6 van de tekst voor de fax , met inbegrip van het txt-bestand , gemaakt in de vorige stappen : . . . < br >

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

Stel de naam voor de fax en de prioriteit :

objFaxDocument.DocumentName
= " Mijn Fax Name "

objFaxDocument.Priority
= FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptHIGH

In dit geval de fax zal onmiddellijk worden verzonden zodra de code wordt uitgevoerd .
8

Voeg een faxnummer waar de fax wordt verzonden :

objFaxDocument.Recipients.Add
( " 999999999 " , " Wayne " ) op Twitter

Vervang de cijfers " 999999999 " met de desbetreffende faxnummer .
9

Stel de mogelijkheid van het bevestigen van de fax tekst om een ​​fax te ontvangen , wanneer het gemaild :

objFaxDocument.AttachFaxToReceipt = True
10

Kies een voorblad soort :

objFaxDocument.CoverPageType = FAXCOMEXLib.FAX_COVERPAGE_TYPE_ENUM.fcptSERVER

objFaxDocument.CoverPage
= " generieke "
11

het e-mailadres waar de toe fax ontvangst wordt verzonden en stel het ontvangstbewijs voor email :

objFaxDocument.ReceiptAddress = " MyName@mydomain.com "

objFaxDocument.ReceiptType = FAXCOMEXLib.FAX_RECEIPT_TYPE_ENUM.frtMAIL
< br > 12

Plan het tijdstip waarop de fax moet worden verzonden :

objFaxDocument.ScheduleType = FAXCOMEXLib.FAX_SCHEDULE_TYPE_ENUM.fstSPECIFIC_TIME

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

Voeg het onderwerp tekst voor de e-mail :

objFaxDocument.Subject = " Vandaag de fax "
14

Stel de eigenschappen voor de verzender en sla de informatie :

objFaxDocument.Sender.Title
= "Mr "

objFaxDocument.Sender.Name
= " John Ryan "

objFaxDocument.Sender.Email
= " myemailaddress@mydomain.com "

objFaxDocument.Sender.ZipCode
= " 44118 "

objFaxDocument.Sender.SaveDefaultSender ( )
15

Stuur het document naar de Fax server -en uitgang van de Vacature ID , wanneer het terug van de functie :

JobID = objFaxDocument.ConnectedSubmit ( objFaxServer )

MsgBox
( " The Job ID is : " & JobID ( 0 ) ) < br >
16

Koppel van de fax server , zodat het kan worden gebruikt door iemand anders en sluit het VB subroutine :

objFaxServer.Disconnect
( )

Exit Sub < br
>
17

Voeg de subroutine om eventuele fouten die zich voordoen te behandelen :

Error_Handler :

' Implement foutafhandeling aan het einde van uw subroutine . Dit

' implementatie is voor demonstratiedoeleinden

MsgBox
( " Fout nummer : " & Hex ( Err.Number ) & " , " & Err.Description )

End Sub

Als er fouten zijn bij een poging om een fax te verzenden , zal deze code de fout informatie als een pop - up boodschap uitsturen .
18

Sla het VB- bestand en start de applicatie . De fax -service zal worden genoemd en het bericht wordt verzonden .