• Viernes 8 de Noviembre de 2024, 22:56
« anterior próximo »
Páginas: [1]

Autor Tema:  Re: Enviar FAx  (Leído 1025 veces)

Ronstone

  • Miembro activo
  • **
  • Mensajes: 29
    • Ver Perfil
    • http://annyronny.iespana.es
Re: Enviar FAx
« en: Viernes 21 de Marzo de 2003, 02:59 »
0
Como puede enviar un fax a traves de mi linea telefonica o recivir un fax en mi computadora mi telefono es normal, Si alguien sabe o teoiene un codigo se lo  agradeceria muchisimo:hippi:
Saludos RonStone...

HurryCrack

  • Miembro MUY activo
  • ***
  • Mensajes: 206
    • Ver Perfil
Enviar FAx
« Respuesta #1 en: Sábado 22 de Marzo de 2003, 17:57 »
0
Yo tengo el mismo problema pero me lo agraba la conexion que tengo, una conexion por cable modem, con lo cual no tengo ni modem fax ni telefono ...........

RadicalEd

  • Moderador
  • ******
  • Mensajes: 2430
  • Nacionalidad: co
    • Ver Perfil
Re: Enviar FAx
« Respuesta #2 en: Martes 4 de Enero de 2005, 18:55 »
0
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.  
El pasado son solo recuerdos, el futuro son solo sueños
Páginas: [1]
« anterior próximo »