Comment envoyer un fax virtuel de base

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

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 = " MyName@mydomain.com "

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 = " myemailaddress@mydomain.com "

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é .