Hot Fox: [usuarios_fox] RE: (no subject)

domingo, 15 de maio de 2011

[usuarios_fox] RE: (no subject)

Hola.

Respecot a los archivos adjuntos, yo lo estoy manejando de esta forma (que encontré por ahí, me parece que en portalfox).

Funciona bien pero solo coun outlook 2003.

Espero sea de utilidad.

Cualquier duda o comentario, con toda confianza estoy a sus órdenes.

Si alquien tiene por ahí algo mas "universal" que no requiera de outlook es muy bien venida.

Los que he encontrado que no requieren outlook no los he conseguido hacer funcionar.

   *-- Datos del Mail
   lcPerfil = "Prueba"
   lcContrasenia = "prueba"

   lcDestinatario = ALLTRIM(email_del_destinatario)

   lcTema = "Asunto" + TTOC(DATETIME())
   lcCuerpo = "Se adjuntan archivos correspondientes al CFD. XML y PDF."
   lcCuerpo = lcCuerpo + "Saludos."
   *-- Creo objetos Outlook y NameSpace
   loOutlook = CREATEOBJECT("Outlook.Application")
   loNameSpace = loOutlook.GetNameSpace("MAPI")
   *-- Ejecuto los métodos
   loNameSpace.Logon(lcPerfil , lcContrasenia)
   loMailItem = loOutlook.CreateItem(0)
   loMailItem.Recipients.ADD(lcDestinatario)
   loMailItem.Subject = lcTema
   loMailItem.Body = lcCuerpo
   *: Se adjuntan archivos (2)

   IF FILE(SYS(5)+SYS(2003)+"\Data\XML\CFD_" + ALLTRIM(SERIE) + ALLTRIM(STR(FOLIO)) + ".xml")
    loMailItem.Attachments.Add(SYS(5)+SYS(2003)+"\Data\XML\CFD_" + ALLTRIM(SERIE) + ALLTRIM(STR(FOLIO)) + ".xml")
   ENDIF
   IF FILE(SYS(5)+SYS(2003)+"\Data\PDF\PDF_" + ALLTRIM(SERIE) + ALLTRIM(STR(FOLIO)) + ".pdf")
    loMailItem.Attachments.Add(SYS(5)+SYS(2003)+"\Data\PDF\PDF_" + ALLTRIM(SERIE) + ALLTRIM(STR(FOLIO)) + ".pdf")
   ENDIF
   loMailItem.Send
   loNameSpace.Logoff
   loNameSpace = .NULL.
   loOutlook = .NULL.

[Se han eliminado los trozos de este mensaje que no contenían texto]