SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Kye80 en Miércoles 26 de Junio de 2002, 22:37

Título: Re: Fax con VB
Publicado por: Kye80 en Miércoles 26 de Junio de 2002, 22:37
Estoy planteándome hacer programa para enviar texto a un fax. Estoy buscando algún documento que me informe como funciona el protocolo del fax, pero no lo he conseguido. Espero que alguno de vosotros me puede echar una mano indicándome donde puedo encontrar esa información.

Aunque tengo un poco de experiencia usando el ms/comm, no tengo ni P.I. del esfuerzo que supone comunicarte con un fax sin usar nigún producto de terceros.

Pd.

si a alguno de vosotros le interesa el tema podríamos colaborar.
Título: Re: Fax con VB
Publicado por: pablod en Jueves 27 de Junio de 2002, 05:32
Si tenes un cliente de fax instalado con Outlook, podes utilizar los controles MAPI.
Y en donde se pone la direccion de mail pones lo siguiente:

MAPIMessages1.RecipDisplayName = "[FAX:myfaxname@111 1111]".

Espero que te funcione, pero acordate que funciona solo con un Outlook que tenga el servicio de fax instalado.
Título: Fax con VB
Publicado por: Kye80 en Domingo 30 de Junio de 2002, 21:25
Bueno, ya he encontrado un poco de información para conseguir enviar faxes.

Ya tengo la referencia de los comados at fax y he estado practicando. Sin embargo, no he econtrado ningún documehto que expliquen, o no lo he savido leer.  como y en que formato se envia la información al fax remoto.
Título: Re: Fax con VB
Publicado por: RadicalEd en Martes 4 de Enero de 2005, 18:58
CONSTE EL CODIGO NO ES MIO, SOLO LO DEJO PARA QUE LO APRENDAN
Enviar Faxes Utilizando los controles de VB

Utilizaremos para ello los controles MAPI Messages y MAPI Session para crear un mensaje de Exchange.
Si en el campo de la dirección e-mail empiezas por "Fax: " y continuas con el nº de fax, conseguirás enviar el mensaje a través del servicio MS Fax.

Ten cuidado de utilizar un perfil de Exchange que solo incluya el servicio Fax, no el Internet Mail, porque si no intentará enviarlo por los dos sistemas.
Código: Text
  1.  
  2. MAPISession1.LogonUI = False
  3. wPerfil = "Configuraciones de MS Exchange"
  4. MAPISession1.UserName = wPerfil
  5. MAPISession1.SignOn
  6. MAPIMessages1.SessionID = MAPISession1.SessionID
  7. Sesion = True
  8. lblEstado = "Creando mensaje..."
  9. MAPIMessages1.ComposeMAPIMessages1.MsgSubject = ""
  10. ' No utilizar el campo de texto. Lo intenta imprimir con el Word como
  11. ' segunda hoja y falla dando error WordBasic nº 124 (teniendo instalado el Parche)
  12. MAPIMessages1.MsgNoteText = "Este es el texto de la prueba....."
  13. MAPIMessages1.RecipIndex = 0
  14. MAPIMessages1.RecipIndex = NumDestino
  15. MAPIMessages1.RecipType = mapToList
  16. MAPIMessages1.RecipDisplayName = Data1.Recordset.Fields(1)
  17. MAPIMessages1.RecipAddress = "Fax:" & Data1.Recordset.Fields(0)
  18. MAPIMessages1.AttachmentIndex = I
  19. MAPIMessages1.AttachmentPosition = I
  20. MAPIMessages1.AttachmentPathName = wPath
  21. MAPIMessages1.AttachmentName = wName
  22. lblEstado = "Enviando mensaje..."
  23. MAPIMessages1.Send
  24. MAPISession1.SignOff
  25.