Visual Basic ( VB) er et programmeringssprog, der anvendes til at skabe software-applikationer . VB kan sende en fax ved hjælp af et objekt bibliotek kaldet FAXCOMEXLib . Ting du skal
Visual Basic editor
Notesblok
Vis Flere Instruktioner
1
Opsæt en ny subrutine i VB og kalder Fax bibliotek objekter, og indstil variabler:
Private Sub Form_Load ()
Dim objFaxDocument Som New FAXCOMEXLib.FaxDocument
Dim objFaxServer Som New FAXCOMEXLib.FaxServer
Dim objSender Som FAXCOMEXLib . FaxSender
Dim jobid As Object
2
Opsæt Fejlhåndtering kode til fange eventuelle fejl, og forhindre, at programmet går ned : Hej
On Error GoTo error_handler
3
forbindelse til fax -serveren objekt: .
objFaxServer.Connect ("")
4
Åbn Notesblok
5
Indtast fax besked, du ønsker at sende og gemme som en txt-fil
6
Importer teksten til fax, ved at medtage txt -fil, oprettet i de foregående trin : . . . < br >
objFaxDocument.Body = " c: \\ Fax \\ MyMessage.txt "
7
Angiv navn til fax og prioritetsniveauet : Hej
objFaxDocument.DocumentName = "My Fax Name "
objFaxDocument.Priority = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptHIGH
i dette tilfælde faxen vil blive sendt så snart koden køres.
8 < p > Tilføj et faxnummer for , hvor faxen skal sendes : Hej
objFaxDocument.Recipients.Add ( " 999999999 ", " Wayne " )
Udskift cifrene " 999999999 " med de relevante faxnummer .
9
Sæt mulighed for fastgørelse af faxen tekst til en fax kvittering, når det er e-mailede : Hej
objFaxDocument.AttachFaxToReceipt = Sand
10
Vælg en forside typen : Hej
objFaxDocument.CoverPageType = FAXCOMEXLib.FAX_COVERPAGE_TYPE_ENUM.fcptSERVER
objFaxDocument.CoverPage = " generiske "
11
Tilføj e-mail- adresse, hvor fax kvittering vil blive sendt og indstille modtagelsen type for email : Hej
objFaxDocument.ReceiptAddress = " [email protected] "
objFaxDocument.ReceiptType = FAXCOMEXLib.FAX_RECEIPT_TYPE_ENUM.frtMAIL
< br > 12
Planlæg det tidspunkt, hvor faxen skal sendes : Hej
objFaxDocument.ScheduleType = FAXCOMEXLib.FAX_SCHEDULE_TYPE_ENUM.fstSPECIFIC_TIME
objFaxDocument.ScheduleTime = CDate ( " 12:35:47 " )
13
Tilføj emnet tekst til email : Hej
objFaxDocument.Subject = " Dagens fax "
14
Angiv egenskaberne for afsenderen og gemmer oplysningerne : Hej
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 fax server og output job-id , når det er returneret fra funktionen : Hej
jobid = objFaxDocument.ConnectedSubmit ( objFaxServer )
MsgBox ("The job ID er: " & jobid (0) ) < br >
16
Afbryd forbindelsen til fax server, så det kan bruges af andre og lukke VB subrutine : Hej
objFaxServer.Disconnect ()
Exit Sub < br >
17
Tilføj subrutine til at håndtere eventuelle fejl, der opstår : Hej
error_handler : Hej
' Implement fejlhåndtering i slutningen af din subrutine . Denne
' implementering er til demonstration formål
MsgBox ( "Fejl ved nummer: " & Hex ( Err.Number ) & " ," & Err.Description )
End Sub
Hvis der er nogen fejl , når du forsøger at sende en fax , vil denne kode udsende fejloplysninger som en pop- up -besked.
18
Gem VB filen og køre programmet . Faxen service vil blive kaldt, og beskeden vil blive sendt.
