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]
1 Respuesta
Respuesta de maxlopez80
1