1 Δημιουργήστε ένα νέο υπορουτίνα σε VB και καλούν τους Fax βιβλιοθήκη αντικειμένων και ρυθμίστε το μεταβλητές : 
 
 Private Sub Form_Load ( ) 
 
 Dim objFaxDocument Όπως New FAXCOMEXLib.FaxDocument 
 
 Dim objFaxServer Όπως New FAXCOMEXLib.FaxServer 
 
 Dim objSender Όπως FAXCOMEXLib . FaxSender 
 
 Dim jobID As Object 2 
 
 Ρύθμιση χειρισμού λάθους κώδικα για να προλάβουν τυχόν λάθη και εμποδίζουν την εφαρμογή από τη συντριβή : 
 
 On Error GoTo Error_Handler 
 
 Η 3 
 Συνδεθείτε με το αντικείμενο του διακομιστή Fax : . 
 
 objFaxServer.Connect ( "" ) 
 Η 
 4 Ανοίξτε το Σημειωματάριο 
 5 
 Πληκτρολογήστε το μήνυμα φαξ που θέλετε να στείλετε και να αποθηκεύσετε ως αρχείο txt 
 Η 6 
Εισαγωγή το κείμενο για το φαξ , με τη συμπερίληψη των txt, δημιουργήσατε στα προηγούμενα βήματα : . . . < br >
 objFaxDocument.Body = " c : \\ Fax \\ MyMessage.txt " 
 Η 7 
 Ορίστε το όνομα του φαξ και το επίπεδο προτεραιότητας : 
 
 objFaxDocument.DocumentName = "My Fax Name" 
 
 objFaxDocument.Priority = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptHIGH 
 
 Σε αυτήν την περίπτωση το φαξ θα αποσταλεί αμέσως μόλις εκτελείται ο κώδικας . 
 8 < p > Προσθέστε έναν αριθμό φαξ για όπου το φαξ θα αποσταλεί : 
 
 objFaxDocument.Recipients.Add ( " 999999999 " , " Wayne" ) 
 
 Αντικαταστήστε τα ψηφία " 999999999 " με το σχετικό αριθμό φαξ . 
 Η 
 9 Ρυθμίστε την επιλογή της προσκόλλησης του κειμένου φαξ σε μια λήψη φαξ , όταν μέσω e-mail : 
 
 objFaxDocument.AttachFaxToReceipt = True 
 Η 10 
 Επιλέξτε έναν τύπο της συνοδευτικής σελίδας : 
 
 objFaxDocument.CoverPageType = FAXCOMEXLib.FAX_COVERPAGE_TYPE_ENUM.fcptSERVER 
 
 objFaxDocument.CoverPage = " γενικές" 
 
 11 
 Προσθέστε τη διεύθυνση ηλεκτρονικού ταχυδρομείου , όπου η παραλαβή φαξ θα αποσταλεί και ορίστε τον τύπο παραλαβής για το ηλεκτρονικό ταχυδρομείο : 
 
 objFaxDocument.ReceiptAddress = " [email protected] " 
 
 objFaxDocument.ReceiptType = FAXCOMEXLib.FAX_RECEIPT_TYPE_ENUM.frtMAIL 
 < br > 12 
 Προγραμματίστε το χρόνο κατά τον οποίο πρέπει να αποσταλεί το φαξ : 
 
 objFaxDocument.ScheduleType = FAXCOMEXLib.FAX_SCHEDULE_TYPE_ENUM.fstSPECIFIC_TIME 
 
 objFaxDocument.ScheduleTime = CDate ( " 12:35:47 PM » ) 
 Η 13 
 Προσθέστε το κείμενο θέμα του email : 
 
 objFaxDocument.Subject = " η σημερινή φαξ " 
 Η 14 
 Ορίστε τις ιδιότητες για τον αποστολέα και να αποθηκεύσετε τις πληροφορίες : 
 
 objFaxDocument.Sender.Title = "Κος " 
 
 objFaxDocument.Sender.Name = " John Ryan " 
 
 objFaxDocument.Sender.Email = " [email protected] " 
 
objFaxDocument.Sender.ZipCode = " 44118 "
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα