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

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]