Visual Basic ( VB ) är ett programmeringsspråk som används för att skapa program . VB kan skicka ett fax med ett föremål bibliotek kallat FAXCOMEXLib . Saker du behöver Review, Visual Basic Redaktör Anteckningar
Visa fler instruktioner
1
Konfigurera en ny subrutin i VB och kalla objekten faxbibliotek och ställ in variabler :
Private Sub Form_Load ( ) katalog
Dim objFaxDocument Som Ny FAXCOMEXLib.FaxDocument
Dim objFaxServer Som ny FAXCOMEXLib.FaxServer
Dim objSender Som FAXCOMEXLib . FaxSender
Dim jobid As Object
2
Ställ in kod Felhantering att fånga eventuella fel och hindrar programmet från att krascha :
On Error GoTo Error_Handler
3
Anslut till faxservern objektet : .
objFaxServer.Connect ( " " )
4
Öppna Anteckningar
5
Ange faxmeddelande du vill skicka och spara som en txt-fil
6
Importera texten för fax , genom att bland annat txt-fil , skapas i föregående steg : . . .
objFaxDocument.Body = " c : \\ FAX \\ MyMessage.txt "
7
Ange namn för fax och prioritetsnivå :
objFaxDocument.DocumentName = " Min faxnamn "
objFaxDocument.Priority = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptHIGH
i detta fall faxet kommer att skickas direkt när koden körs .
8
Lägg till ett faxnummer för när faxet ska skickas :
objFaxDocument.Recipients.Add ( " 999999999 " , " Wayne " ) katalog
Ersätt siffrorna " 999999999 " med det aktuella faxnumret .
9
Ställ in alternativet att fästa fax text till ett fax kvitto, när det är emailed :
objFaxDocument.AttachFaxToReceipt = Sant
10
Välj typ försättsblad :
objFaxDocument.CoverPageType = FAXCOMEXLib.FAX_COVERPAGE_TYPE_ENUM.fcptSERVER
objFaxDocument.CoverPage = " generiska "
11
Lägg den e-postadress där fax kvitto ska skickas och ange kvittotyp för e-post :
objFaxDocument.ReceiptAddress = " [email protected] "
objFaxDocument.ReceiptType = FAXCOMEXLib.FAX_RECEIPT_TYPE_ENUM.frtMAIL
12
Schemalägg tid som faxet ska skickas :
objFaxDocument.ScheduleType = FAXCOMEXLib.FAX_SCHEDULE_TYPE_ENUM.fstSPECIFIC_TIME
objFaxDocument.ScheduleTime = CDate ( " 12:35:47 " )
13
Lägg motivet text för epost :
objFaxDocument.Subject = " Dagens fax "
14
Ange egenskaperna för avsändaren och spara informationen :
objFaxDocument.Sender.Title = " Mr "
objFaxDocument.Sender.Name = " John Ryan "
objFaxDocument.Sender.Email = " [email protected] "
objFaxDocument.Sender.ZipCode = " 44118 "
objFaxDocument.Sender.SaveDefaultSender ( )
15
Skicka dokumentet till fax server och utgång på jobb-ID , när den returneras från funktionen :
jobid = objFaxDocument.ConnectedSubmit ( objFaxServer ) katalog
MsgBox ( " The Job -ID är : " & jobid ( 0 ) )
16
Koppla ur Fax servern så att den kan användas av någon annan och stäng VB subrutinen :
objFaxServer.Disconnect ( ) katalog
Exit Sub
17
Lägg subrutinen för att hantera eventuella fel som uppstår :
Error_Handler :
" Implement felhantering i slutet av din subrutin . Denna
genomförande är för demonstration ändamål
MsgBox ( " Fel nummer : " & Hex ( Err.Number ) & " , " & Err.Description ) katalog
End Sub
Om det finns några fel när du försöker skicka ett fax , kommer denna kod mata den felinformation som ett popup-meddelande .
18
Spara VB -filen och kör programmet . Faxet tjänsten kommer att kallas och meddelandet ska skickas .
