Visual Basic (VB) ist eine Programmiersprache verwendet werden, um Software-Anwendungen zu erstellen. VB kann per Fax unter Verwendung einer objektorientierten Bibliothek namens FAXCOMEXLib . Things You
Visual Basic-Editor Notepad

brauchen anzeigen Weitere Anweisungen
1

eine neue Subroutine in VB Set und rufen Sie die Fax -Bibliothek Objekte und stellen Sie die Variablen :

private Sub Form_Load () Dim

objFaxDocument As New FAXCOMEXLib.FaxDocument

Dim As New objFaxServer FAXCOMEXLib.FaxServer

Dim objSender Wie FAXCOMEXLib . FaxSender

Dim JobID As Object
2

bis Fehlerbehandlung Code Set , um eventuelle Fehler zu fangen und verhindern, dass die Anwendung zum Absturz :

On Error GoTo error_handler

3

der Fax -Server-Objekt Verbindung: .

objFaxServer.Connect ("")
4

Notepad öffnen
5

Geben Sie die Fax -Nachricht Sie senden möchten, und als txt-Datei speichern
6

Import der Text für das Fax , indem der txt -Datei, in den vorherigen Schritten erstellt : . . .

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

Legen Sie den Namen für das Fax und die Prioritätsstufe :

objFaxDocument.DocumentName = " Mein Fax Name "

objFaxDocument.Priority = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptHIGH

In diesem Fall wird das Fax sofort gesendet werden, sobald der Code ausgeführt wird .
8

Fügen Sie eine Faxnummer , wo das Fax gesendet werden soll :

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

Ersetzen Sie die Ziffern " 999999999 " mit der entsprechenden Faxnummer .
9

setzen Sie die Option zum Anbringen des Fax Text an ein Fax -Empfang, wenn es per e-Mail ist :

objFaxDocument.AttachFaxToReceipt = True
10

Wählen Sie ein Deckblatt Typ :

objFaxDocument.CoverPageType = FAXCOMEXLib.FAX_COVERPAGE_TYPE_ENUM.fcptSERVER

objFaxDocument.CoverPage = "generic "
11

Fügen Sie die E-Mail Adresse an, an die Faxempfang wird gesendet und die Quittung für E-Mail -Typ eingestellt :

objFaxDocument.ReceiptAddress = " MyName@mydomain.com "

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

Planen Sie den Zeitpunkt, zu dem das Fax gesendet werden soll :

objFaxDocument.ScheduleType = FAXCOMEXLib.FAX_SCHEDULE_TYPE_ENUM.fstSPECIFIC_TIME

objFaxDocument.ScheduleTime = CDate ( " 12.35.47 " ) auf Twitter 13

Fügen Sie den Betreff-Text der E-Mail :

objFaxDocument.Subject = " Die heutige fax "
14

Legen Sie die Eigenschaften für den Absender und speichern Sie die Informationen :

objFaxDocument.Sender.Title = " Herr "

objFaxDocument.Sender.Name = " John Ryan "

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

objFaxDocument.Sender.ZipCode =" 44118 "

objFaxDocument.Sender.SaveDefaultSender ()
15

senden Sie das Dokument an den Fax Server und Ausgabe der Job-ID , wenn es von der Funktion zurückgegeben:

JobID = objFaxDocument.ConnectedSubmit ( objFaxServer )

MsgBox (" der Job ist: " & JobID (0))
16

aus dem Fax -Server zu trennen , so dass es von jemand anderem verwendet werden kann, und schließen Sie das VB Unterprogramm :

objFaxServer.Disconnect ()

Exit Sub
seite 17

in der Subroutine , um alle Fehler , die auftreten, zu behandeln :

error_handler :

' Implement Fehlerbehandlung am Ende der Unterroutine . This and

' Umsetzung ist für Demonstrationszwecke

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

End Sub

Wenn Fehler vorhanden sind , wenn Sie versuchen , ein Fax zu senden, wird dieser Code ausgeben die Fehlerinformationen als Pop -up-Meldung .
18

Speichern Sie die Datei VB und Ausführen der Anwendung . Der Fax-Service wird aufgerufen und die Nachricht gesendet werden soll.