| Pregunta: | 3251 - COMO ENVIAR UN EMAIL DESDE VFP6 |
| Autor: | Victor F. Rodriguez |
| Deseo saber dos cosas: 1) Como puedo, por programa, enviar un email desde VFP6, sin que se pare preguntando Send... 2) Como puedo cambiar, desde VFP, la pagina WEB que se abre cuando me entro en INTERNET? Gracias | |
| Respuesta: | GABRIEL QUINTANAR ARTEAGA |
| te envio un programita que envia 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 theNameSpace.Logoff ==============================================0 este otro programita es para tu segunda pregunta * ubclassing the Internet Explorer. IF type (´oie´)=´U´ PUBLIC oie oie=createobject(´internetexplorer.application´) ENDIF oie.navigate("www.lawebdelprogramador.com") oie.visible= .t. ========= espero te sirva esto | |