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 = " [email protected] "
objFaxDocument.ReceiptType = FAXCOMEXLib.FAX_RECEIPT_TYPE_ENUM.frtMAIL
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 = " [email protected] "
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
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.