Mandar un archivo por email
Agradeciendo de antemano su ayuda. Tiempo atrás me enviaron una rutina para enviar archivos a una cuenta de email, desgraciadamente la extravíe...
Esta es una parte, creo!
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="repemail.txt" && archivo que quiero mandar
theMailItem = theApp.CreateItem(0)
If TYPE("theMailItem")=="O"
theMailItem.Recipients.ADD(MEMAIL)
theMailItem.Subject = "Relacion entre "+tituloarch
theMailItem.Attachments.ADD(LARCHIVO) && si quieres enviar archivo adjunto
theMailItem.SEND
Endif
Asume que envía pero no hace nada...
Gracias nuevamente
Esta es una parte, creo!
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="repemail.txt" && archivo que quiero mandar
theMailItem = theApp.CreateItem(0)
If TYPE("theMailItem")=="O"
theMailItem.Recipients.ADD(MEMAIL)
theMailItem.Subject = "Relacion entre "+tituloarch
theMailItem.Attachments.ADD(LARCHIVO) && si quieres enviar archivo adjunto
theMailItem.SEND
Endif
Asume que envía pero no hace nada...
Gracias nuevamente
1 respuesta
Respuesta de falvarez
1