A mi me sucedió lo mismo, no encontré nada que funcionara para lo que no
fuera Outlook.
Aca les paso lo que encontré y fui 'armando' a mi medida.
**************************
PROCEDURE ENVIOMAIL
PARAMETER cArch1, cArc2, cMail
**************************
oOutLook = Createobject("Outlook.Application")
oEmail = oOutLook.CreateItem(0)
oEmail.Display
With oEmail
.Recipients.Add(ALLTRIM(cMail))
.Subject = "TRANSFERENCIA DE MERCADERIA"
.Importance = 1
.Body = "Mensaje dentro del email "
.Attachments.Add(cArch1)
.Attachments.Add(cArch2)
.Send
EndWith
Release oEmail
Release oOutLook
Return
Utilizo 3 parametros, los 2 primeros son los archivos que voy a transferir
(con el path correspondiente, ej. C:\Empresa\sistema\archivo.pdf) y el
ultimo es la dirección de correo.
En mi caso solamente envio 2 archivos, no me puse a corregirlo ya que lo
necesitaba resolver rápidamente, pero creo que lo mejor es armar una matriz
con los archivos que hicieran falta enviar.
Este código que encontré me pareció muy fácil y comodo para entender.
Saludos.
Ricardo Moscarda
3ROM
De: usuarios_fox@yahoogrupos.com.mx [mailto:usuarios_fox@yahoogrupos.com.mx]
En nombre de Javier Trueba Pozos
Enviado el: domingo, 15 de mayo de 2011 14:56
Para: usuarios_fox@yahoogrupos.com.mx
Asunto: [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]
[Se han eliminado los trozos de este mensaje que no contenían texto]
Nenhum comentário:
Postar um comentário