Ako poslať virtuálne Basic Fax

Visual Basic ( VB ) je programovací jazyk používaný na vytváranie softvérových aplikácií . VB môže odoslať fax pomocou objektu knižnice s názvom FAXCOMEXLib . Veci , ktoré budete potrebovať
editore jazyka Visual Basic
Zápisník
Zobraziť ďalšie inštrukcie Cestuj 1

Nastaviť nové podprogram vo VB a volať objekty Fax knižnice a nastavte premenné :

Private Sub Form_Load ( )

Dim objFaxDocument ako New FAXCOMEXLib.FaxDocument

Dim objFaxServer As New FAXCOMEXLib.FaxServer

Dim objSender As FAXCOMEXLib . FaxSender

Dim JobID As Object
2

Nastaviť manipuláciu s chybovým kódom chytiť všetky chyby a zabrániť aplikáciu z pádu :

On Error GoTo Error_Handler

3

Pripojte sa k serveru objektu Fax : .

objFaxServer.Connect ( " " )
4

Otvorte Poznámkový blok
5

Zadajte faxové správy , ktorú chcete odoslať a uložiť ako súbor txt
6

Importovať text pre faxom , vrátane súboru txt , vytvorili v predchádzajúcich krokoch : ...

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

Nastavte názov faxu a úroveň priority :

objFaxDocument.DocumentName = " My Fax Name "

objFaxDocument.Priority = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptHIGH

V tomto prípade fax bude odoslaný ihneď , akonáhle je spustený kód .
8

Pridať faxové číslo , kde bude fax odoslaný :

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

Vymeňte číslica " 999999999 " príslušné faxové číslo .
9

Nastavte možnosť pripojenia faxu text faxové podanie , ak je zaslať e - mailom :

objFaxDocument.AttachFaxToReceipt = TRUE
spoločností 10

vyberte typ titulnej stránky : klipart

objFaxDocument.CoverPageType = FAXCOMEXLib.FAX_COVERPAGE_TYPE_ENUM.fcptSERVER

objFaxDocument.CoverPage = " generické "
11

Pridať e - mailovú adresu , kde fax príjem bude odoslaný a nastaviť typ príjmu na e - mail :

objFaxDocument.ReceiptAddress = " MyName@mydomain.com "

objFaxDocument.ReceiptType = FAXCOMEXLib.FAX_RECEIPT_TYPE_ENUM.frtMAIL

12

Naplánujte si čas , kedy fax by mali byť zaslané :

objFaxDocument.ScheduleType = FAXCOMEXLib.FAX_SCHEDULE_TYPE_ENUM.fstSPECIFIC_TIME

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

Pridať text predmetu pre e - mail :

objFaxDocument.Subject = " Dnešné fax "
klipart 14

Nastavte vlastnosti pre odosielateľa a uložte informácie :

objFaxDocument.Sender.Title = " Pan "

objFaxDocument.Sender.Name = " John Ryan "

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

objFaxDocument.Sender.ZipCode = " 44118 "

objFaxDocument.Sender.SaveDefaultSender ( )
15

Poslať dokument do faxu servera a výstup ID úlohy , ak je to vrátil z funkcie :

JobID = objFaxDocument.ConnectedSubmit ( objFaxServer )

MsgBox ( " ID práce je : " & JobID ( 0 ) )

16

Odpojiť z faxového servera , takže môže byť použitý niekým iným a zatvorte VB podprogram :

objFaxServer.Disconnect ( )

Exit Sub

17

Pridať podprogram spracovať chyby , ktoré sa vyskytujú :

Error_Handler :

'Vykonať manipuláciu na konci podprogramu chybu . Tento

" Implementácia je pre demonštračné účely

MsgBox ( " Chyba číslo : " & Hex ( err.number ) & " , " & Err.Description )

End Sub

Ak sa vyskytnú nejaké chyby pri pokuse o odoslanie faxu , tento kód vypíše informácie o chybe ako pop - up správy .
18

Uložte súbor VB a spustenie aplikácie . Faxové služby sa bude volať a správa bude odoslaná .

• Predchádzajúca strana: Ako si vyrobiť Key Gen v Vb 
• Ďalšia strana: Ako pridať objekt do ArrayList