Visual Basic ( VB ) es un lenguaje de programación utilizado para crear aplicaciones de software. VB puede enviar un fax con una biblioteca de objetos llamados FAXCOMEXLib . Cosas que necesitará
Visual Basic editor
Bloc de notas
Ver Más instrucciones
1

establecer un nuevo subprograma en VB y llamar a los objetos de la biblioteca de fax y establecer el variables:

Private Sub Form_Load ( )

objFaxDocument Dim As New FAXCOMEXLib.FaxDocument

objFaxServer Dim As New FAXCOMEXLib.FaxServer

objSender As FAXCOMEXLib . FaxSender

JobID Dim As Object
2

Configurar código de manejo de errores para detectar los errores y evitar que la aplicación se bloquee :

On Error GoTo Error_Handler

3

Conecta con el objeto de servidor de fax : .

objFaxServer.Connect ("" )
4

Bloc de notas abierto
5

Introduzca el mensaje de fax al que desea enviar y guardar como un archivo txt
6

Importar el texto del fax, incluyendo el archivo txt, creado en los pasos anteriores : . . .

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

Establece el nombre para el fax y el nivel de prioridad :

objFaxDocument.DocumentName = "Mi Fax Name"

objFaxDocument.Priority = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptHIGH

En este caso, el fax se enviará inmediatamente una vez que se ejecuta el código .
8

Agregar un número de fax donde se enviará el fax :

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

Reemplace los dígitos " 999 999 999 " con el número de fax .
9

Ajuste la opción de adjuntar el texto fax a un fax recibido , cuando es enviado por correo electrónico :

objFaxDocument.AttachFaxToReceipt = True
10

Elija una cubierta tipo de página :

objFaxDocument.CoverPageType = FAXCOMEXLib.FAX_COVERPAGE_TYPE_ENUM.fcptSERVER

objFaxDocument.CoverPage =
"genérico " página 11

Añada la dirección de correo electrónico en el recepción fax se enviará y establecer el tipo de recibo por correo electrónico :

objFaxDocument.ReceiptAddress = " MyName@mydomain.com "

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

programar la hora a la que el fax debe enviarse :

objFaxDocument.ScheduleType = FAXCOMEXLib.FAX_SCHEDULE_TYPE_ENUM.fstSPECIFIC_TIME

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

Agregar el texto del asunto del correo electrónico :

objFaxDocument.Subject =" de hoy fax "
14

Establecer las propiedades para el remitente y guardar la información :

objFaxDocument.Sender.Title = "Mr. "

objFaxDocument.Sender.Name = " John Ryan "

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

objFaxDocument.Sender.ZipCode =" 44118 "

objFaxDocument.Sender.SaveDefaultSender ()
15

Enviar el documento al fax servidor y salida de la identificación del trabajo , cuando se devuelve desde la función :

JobID = objFaxDocument.ConnectedSubmit ( objFaxServer )

MsgBox ( " la identificación del trabajo es: " & ID de Tarea ( 0 ) )
16

Desconectarse del servidor de fax para que pueda ser usada por alguien más y cerrar el subprograma VB :

objFaxServer.Disconnect ()

Exit Sub < br > Página 17

Añadir a la subrutina para manejar cualquier error que se produzca :

Error_Handler :

' error implementar el control al final de la subrutina . Esta aplicación

"es para propósitos de demostración

MsgBox ( " Número de error : "& Hex ( Err.Number ) &", "& Err.Description )

End Sub

Si se produce algún error al intentar enviar un fax , este código aparece la información de error como un mensaje emergente.
18

Guarde el archivo VB y ejecutar la aplicación . El servicio de fax será llamado y el mensaje será enviado.