Visual Basic ( VB ) er et programmeringsspråk som brukes til å lage programmer. VB kan sende en faks ved hjelp av et objekt bibliotek kalt FAXCOMEXLib . Du trenger
Visual Basic-redigering
Notepad
Vis flere instruksjoner
en

Sett opp en ny subrutine i VB og ringe Faks bibliotekobjektene og angi variabler:

Private Sub Form_Load ( )

Dim objFaxDocument som ny FAXCOMEXLib.FaxDocument

Dim objFaxServer som ny FAXCOMEXLib.FaxServer

Dim objSender Som FAXCOMEXLib . FaxSender

Dim jobid som objekt
2

Sett opp feil håndtering kode for å fange opp eventuelle feil og forhindre programmet fra å krasje : en

On Error GoTo Error_Handler

3

Koble til Fax server objekt: .

objFaxServer.Connect ( "")
4

Åpne Notisblokk
5

Tast faks meldingen du ønsker å sende og lagre som txt fil
6

Import teksten for faks, ved å inkludere txt fil, opprettet i forrige trinn : . . .

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

Sett navn på faks og prioritet nivå : en

objFaxDocument.DocumentName = " My Fax Name"

objFaxDocument.Priority = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptHIGH

i dette tilfellet faksen skal sendes umiddelbart etter at koden kjøres .
8

Legg til et faksnummer for hvor faksen skal sendes : en

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

Bytt sifrene " 999999999 " med relevant faksnummer .
9

Sett muligheten til å feste fakstekst til en faks mottak , når det er mailet : en

objFaxDocument.AttachFaxToReceipt = sant
10

Velg en forside typen : en

objFaxDocument.CoverPageType = FAXCOMEXLib.FAX_COVERPAGE_TYPE_ENUM.fcptSERVER

objFaxDocument.CoverPage = "generiske "
11

Legg e-postadressen der faks kvittering vil bli sendt og sette kvittering type for e-post : en

objFaxDocument.ReceiptAddress = " [email protected] "

objFaxDocument.ReceiptType = FAXCOMEXLib.FAX_RECEIPT_TYPE_ENUM.frtMAIL

12

Planlegg tidspunktet da faksen skal sendes : en

objFaxDocument.ScheduleType = FAXCOMEXLib.FAX_SCHEDULE_TYPE_ENUM.fstSPECIFIC_TIME

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

Legg faget teksten for e : en

objFaxDocument.Subject = " Dagens faks "
14

Angi egenskapene for avsenderen og lagre informasjon:

objFaxDocument.Sender.Title = "Mr. "

objFaxDocument.Sender.Name = " John Ryan "

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

objFaxDocument.Sender.ZipCode = " 44118 "

objFaxDocument.Sender.SaveDefaultSender ( )
15

Send dokumentet til faks server og utgang jobb-ID , når den er returnert fra funksjonen : en

jobid = objFaxDocument.ConnectedSubmit ( objFaxServer )

MsgBox ( " The Job er: " & jobid ( 0 ) )

16

Koble fra Fax server, slik at den kan brukes av noen andre og lukke VB subrutinen : en

objFaxServer.Disconnect ( )

Exit Sub

17

Legg subrutinen til å håndtere eventuelle feil som oppstår : en

Error_Handler : en

' Implement feilbehandling på slutten av subrutinen din . Dette

' implementering er for demonstrasjon formål

MsgBox ("Feil nummer: " & Hex ( err.number ) & " , " & err.Description )

End Sub
p Hvis det er noen feil ved forsøk på å sende en faks, vil denne koden utgang feilinformasjonen som en pop - up-melding .
18

Lagre VB -fil og kjøre programmet . Faksen tjenesten vil bli kalt , og meldingen vil bli sendt.