Enviar Archivos por email
Buan dia Maxlopez80
Anteriormente uno de los expertos me envío una rutina para poder enviar un archivo por email, desgraciadamente la extravíe, vi que a otra persona con problemas le enviaste algo parecido, agradeceira me enviaras a mi una copia
Esta es parte ---creo--- de la rutina que me enviaron, solo que asume que envía el correo pero no llega al destinatario...
tituloarch="Datos de Empresa"
theApp = CREATEOBJECT("Outlook.Application")
theNameSpace = theApp.GetNameSpace("MAPI")
theNameSpace.Logon()
MEMAIL="[email protected]" &&cliente.email && direccion a la que quiero mandar
LARCHIVO="c:\margarita\repemail.txt" && archivo que quiero mandar
theMailItem = theApp.CreateItem(0)
If TYPE("theMailItem")=="O"
theMailItem.Recipients.ADD(MEMAIL)
theMailItem.Subject = "Relacion entre "+larchivo
theMailItem.Attachments.ADD(LARCHIVO) && si quieres enviar archivo adjunto
theMailItem.SEND
Endif
Te agradezco de antemano tu ayuda, mi e-mail es: [email protected]
Anteriormente uno de los expertos me envío una rutina para poder enviar un archivo por email, desgraciadamente la extravíe, vi que a otra persona con problemas le enviaste algo parecido, agradeceira me enviaras a mi una copia
Esta es parte ---creo--- de la rutina que me enviaron, solo que asume que envía el correo pero no llega al destinatario...
tituloarch="Datos de Empresa"
theApp = CREATEOBJECT("Outlook.Application")
theNameSpace = theApp.GetNameSpace("MAPI")
theNameSpace.Logon()
MEMAIL="[email protected]" &&cliente.email && direccion a la que quiero mandar
LARCHIVO="c:\margarita\repemail.txt" && archivo que quiero mandar
theMailItem = theApp.CreateItem(0)
If TYPE("theMailItem")=="O"
theMailItem.Recipients.ADD(MEMAIL)
theMailItem.Subject = "Relacion entre "+larchivo
theMailItem.Attachments.ADD(LARCHIVO) && si quieres enviar archivo adjunto
theMailItem.SEND
Endif
Te agradezco de antemano tu ayuda, mi e-mail es: [email protected]
Respuesta de maxlopez80
1
Te envío este mismo código por mail
Espero que les sea de utilidad.
Saludos desde Argentina,
Alberto H.López
Local pcPara, pcAsunto, pcCuerpo, paFichEnviar, plMostrarDialogo
IF EMPTY(pcPara)
pcPara = "[email protected]" && Destinetario de Ejemplo
ENDIF
IF EMPTY(pcAsunto)
pcAsunto = "<Primer Mail>" && Asunto de ejemplo
ENDIF
IF EMPTY(pcCuerpo)
pcCuerpo = "Este es un mensaje de prueba" && Cuerpo de Ejemplo
ENDIF
IF EMPTY(paFichEnviar)
paFichEnviar = "c:\autoexec.bak" && attachment de Ejemplo
ENDIF
LOCAL oform
oform = CreateObject("form")
oform.addobject("Session1","olecontrol","MSMAPI.mapiSession")
IF TYPE('oform.Session1') <> 'O'
MESSAGEBOX('No se ha podido instanciar la aplicación de correo.', 64, 'Atención')
RELEASE oform
RETURN .F.
Endif
Oform. Addobject("Message1","olecontrol","MSMAPI.mapiMessages")
IF TYPE('oform.Message1') <> 'O'
MESSAGEBOX('No se ha podido instanciar la aplicación de correo.', 64, 'Atención')
RELEASE oform
RETURN .F.
ENDIF
oform.Session1.LogonUI = .t.
*- Si no se pone la propiedad a .F. y en OUTLOOK está puesto trabajar sin conexión
*- se cuelga
oform.Session1.DownloadMail=.f.
oform.Session1.signon
oform.Message1.sessionid = oform.Session1.sessionid
oform.Message1.compose
oform.Message1.RecipDisplayName = pcPara
oform.Message1.msgsubject = pcAsunto
oform.Message1.msgnotetext = pcCuerpo
*- Si no es un array, lo crea
IF TYPE('paFichEnviar[1]') = 'U'
LOCAL lcFileEnviar
lcFileEnviar = paFichEnviar
DIMENSION paFichEnviar(1)
paFichEnviar(1) = lcFileEnviar
ENDIF
LOCAL lnContFiles
lnContFiles = 1
FOR lnCount = 1 TO ALEN(paFichEnviar,1)
*- Si existen los archivos
IF FILE(paFichEnviar(lnContFiles))
oform.Message1.AttachmentIndex = lnContFiles - 1
oform.Message1.AttachmentPathName = paFichEnviar(lnContFiles)
oform.Message1.AttachmentPosition = lnContFiles - 1
lnContFiles = lnContFiles + 1
ENDIF
ENDFOR
oform.Message1.send(plMostrarDialogo)
Oform. Session1. Signoff
Release oform
Espero que les sea de utilidad.
Saludos desde Argentina,
Alberto H.López
Local pcPara, pcAsunto, pcCuerpo, paFichEnviar, plMostrarDialogo
IF EMPTY(pcPara)
pcPara = "[email protected]" && Destinetario de Ejemplo
ENDIF
IF EMPTY(pcAsunto)
pcAsunto = "<Primer Mail>" && Asunto de ejemplo
ENDIF
IF EMPTY(pcCuerpo)
pcCuerpo = "Este es un mensaje de prueba" && Cuerpo de Ejemplo
ENDIF
IF EMPTY(paFichEnviar)
paFichEnviar = "c:\autoexec.bak" && attachment de Ejemplo
ENDIF
LOCAL oform
oform = CreateObject("form")
oform.addobject("Session1","olecontrol","MSMAPI.mapiSession")
IF TYPE('oform.Session1') <> 'O'
MESSAGEBOX('No se ha podido instanciar la aplicación de correo.', 64, 'Atención')
RELEASE oform
RETURN .F.
Endif
Oform. Addobject("Message1","olecontrol","MSMAPI.mapiMessages")
IF TYPE('oform.Message1') <> 'O'
MESSAGEBOX('No se ha podido instanciar la aplicación de correo.', 64, 'Atención')
RELEASE oform
RETURN .F.
ENDIF
oform.Session1.LogonUI = .t.
*- Si no se pone la propiedad a .F. y en OUTLOOK está puesto trabajar sin conexión
*- se cuelga
oform.Session1.DownloadMail=.f.
oform.Session1.signon
oform.Message1.sessionid = oform.Session1.sessionid
oform.Message1.compose
oform.Message1.RecipDisplayName = pcPara
oform.Message1.msgsubject = pcAsunto
oform.Message1.msgnotetext = pcCuerpo
*- Si no es un array, lo crea
IF TYPE('paFichEnviar[1]') = 'U'
LOCAL lcFileEnviar
lcFileEnviar = paFichEnviar
DIMENSION paFichEnviar(1)
paFichEnviar(1) = lcFileEnviar
ENDIF
LOCAL lnContFiles
lnContFiles = 1
FOR lnCount = 1 TO ALEN(paFichEnviar,1)
*- Si existen los archivos
IF FILE(paFichEnviar(lnContFiles))
oform.Message1.AttachmentIndex = lnContFiles - 1
oform.Message1.AttachmentPathName = paFichEnviar(lnContFiles)
oform.Message1.AttachmentPosition = lnContFiles - 1
lnContFiles = lnContFiles + 1
ENDIF
ENDFOR
oform.Message1.send(plMostrarDialogo)
Oform. Session1. Signoff
Release oform
