Visual Basic (VB ) est un langage de programmation utilisé pour créer des applications logicielles . VB peut envoyer un fax en utilisant une bibliothèque d'objets appelé FAXCOMEXLib . Choses que vous devez
Visual Basic éditeur
Notepad
Voir Plus Instructions
1
mettre en place un nouveau sous-programme en VB et appellent les objets de la bibliothèque de fax et de définir la variables:
Private Sub Form_Load ( )
Dim objFaxDocument As New FAXCOMEXLib.FaxDocument
objFaxServer As New FAXCOMEXLib.FaxServer
objSender As FAXCOMEXLib . FaxSender
JobID As Object
2
Créée Code d'erreur de manipulation pour intercepter les erreurs et empêcher l'application de s'écraser :
On Error GoTo Error_Handler
3
Connectez-vous à l'objet serveur de fax: .
objFaxServer.Connect ("")
4
Open Notepad
5
Entrez le message de fax que vous souhaitez envoyer et enregistrer dans un fichier txt
6
Importer le texte du fax, en incluant le fichier txt , créé dans les étapes précédentes : . . .
objFaxDocument.Body = " c: \\ Fax \\ mon_message.txt "
7
Définir le nom pour le fax et le niveau de priorité :
objFaxDocument.DocumentName = «Ma Fax Name"
objFaxDocument.Priority = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptHIGH
Dans ce cas, le fax sera envoyé immédiatement une fois que le code est exécuté .
8 < p > Ajouter un numéro de fax où les fax sera envoyé :
objFaxDocument.Recipients.Add ( " 999999999 ", " Wayne" )
Remplacer les chiffres « 999999999 » avec le numéro du télécopieur .
9
Réglez l'option de joindre le texte du fax à une réception de fax, quand il est envoyé par courriel :
objFaxDocument.AttachFaxToReceipt = True
10
Choisissez une housse type de page :
objFaxDocument.CoverPageType = FAXCOMEXLib.FAX_COVERPAGE_TYPE_ENUM.fcptSERVER
objFaxDocument.CoverPage =
«générique»
11
Ajouter l'adresse électronique où l' réception de fax sera envoyé et définir le type de réception pour le courrier électronique :
objFaxDocument.ReceiptAddress = " [email protected] "
objFaxDocument.ReceiptType = FAXCOMEXLib.FAX_RECEIPT_TYPE_ENUM.frtMAIL
< br > 12
programmer l'heure à laquelle le fax doit être envoyé :
objFaxDocument.ScheduleType = FAXCOMEXLib.FAX_SCHEDULE_TYPE_ENUM.fstSPECIFIC_TIME
objFaxDocument.ScheduleTime = CDate ( " 12:35:47 »)
13
Ajouter le texte soumis à l' email:
objFaxDocument.Subject =" fax "
14
d'aujourd'hui définir les propriétés de l'expéditeur et enregistrer les informations :
objFaxDocument.Sender.Title = " M. "
objFaxDocument.Sender.Name = " John Ryan "
objFaxDocument.Sender.Email = " [email protected] "
objFaxDocument.Sender.ZipCode =" 44118 "
objFaxDocument.Sender.SaveDefaultSender ()
15
envoyer le document au fax serveur et la sortie de l' ID de l'emploi , quand il est retourné à partir de la fonction:
JobID = objFaxDocument.ConnectedSubmit ( objFaxServer )
MsgBox (" l'ID de travail est :" & JobID (0))
16
déconnecter du serveur de fax de sorte qu'il peut être utilisé par quelqu'un d'autre et fermer le sous-programme VB:
objFaxServer.Disconnect ()
Exit Sub < br >
17
Ajouter le sous-programme pour gérer les erreurs qui se produisent :
Error_Handler :
' erreur implémenter la gestion à la fin de votre routine . Cette mise en œuvre
' est pour la démonstration des fins
MsgBox (" Numéro d'erreur :" & Hex ( Err.Number ) & "," & Err.Description )
End Sub Photos
S'il ya des erreurs lorsque l'on tente d'envoyer un fax , ce code va afficher les informations d'erreur comme un message pop-up .
18
Enregistrez le fichier VB et exécuter l'application . Le service de télécopie sera appelée et le message sera envoyé .
