SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Gaboto en Viernes 8 de Marzo de 2002, 22:18

Título: Re: fax desde vb
Publicado por: Gaboto en Viernes 8 de Marzo de 2002, 22:18
Conocen algun OCX o alguna dll para mandar fax por una aplicacion de visual basic??
Atte.
Gabriel
Título: Re: fax desde vb
Publicado por: chimps en Viernes 8 de Marzo de 2002, 23:24
No se si esto te va a sercir pero es lo unico que encontre:
http://www.planet-source-code.com/vb/sc ... 2&lngWId=1 (http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=552&lngWId=1)
Título: fax desde vb
Publicado por: HectorH en Miércoles 23 de Octubre de 2002, 17:42
La libreria Faxcom.dll tiene un conjunto de objetos que puedes usar para enviar un fax desde vb
Título: Re: fax desde vb
Publicado por: RadicalEd en Martes 4 de Enero de 2005, 18:57
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.