Enviar reportes por email

Hola espero que alguien me pueda ayudar estoy trabajando en un proyecto y necesito enviar los reportes por email puden darme un código para pode hacerlo desde un formulario haciendo clic en un botón de comando

1 Respuesta

Respuesta
1
Te envío un programita que envía un mail utilizando outlook espero te sirva
strProfile = "Quintanar"
strPassword = "Quintana"
strRecipient = "Baltazar Galvan"
strSubject = "Este es un mensaje enviado por Visual fox pro"
strBody = "BORRAME"
theApp = CreateObject("Outlook.Application")
theNameSpace = theApp.GetNameSpace("MAPI")
theNameSpace.Logon(strProfile , strPassword)
*theApp.UserProperties.Add("Priority", olText)
tHEApp.ActiveExplorer.CurrentFolder
Theapp.DISPLAY
theMailItem = theApp.CreateItem(0)
theMailItem.Recipients.Add( strRecipient )
theMailItem.Subject = strSubject
theMailItem.Body = strBody
theMailItem.Attachments.Add(´i:\samples\beep.bak´) && si quieres enviar archivo adjunto
TheMailItem. Send
Gracias Tango tu código creo que me va ser de mucha utilidad.
Pero si pudieras mandarme algo más como poder enviar un archivo desde foxpro así una dirección de correo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas