Enviar E-mail
Por Alberto Rodríguez (#26) a las 16:18 del 21-08-2001  
 
Este sistema solo funciona desde win2000 pero te ahorra tener que localizar/comprar algun ActiveX para enviar emails: 

Basta con que te crees un programa parecido a: 

x = createobject("CDO.Message") 
x.To = "tuEmail@tudominio.com" 
x.Subject= "Saludos" 
x.TextBody = "Aquí estamos" 
x.Attachments.Add 

x.Send 


Y voila... 
 


Re: Enviar E-mail
Por Federico Jaramillo (#5302) a las 06:01 del 25-05-2002  
 
Esta es la rutina que yo utilizo y funciona en cualquier Windows. 

Procedure correo 
parameters xEnviarA,asunto,texto,xArchivo 
mapi_session = CREATEOBJECT("MSMAPI.MAPISESSION.1") 
mapi_message = CREATEOBJECT("MSMAPI.MAPIMESSAGES.1") 
mapi_session.signon() 
With mapi_message 
.MsgIndex=-1 
.RecipDisplayName = xEnviarA 
.MsgSubject = Alltrim(Asunto) 
.MsgNoteText = Alltrim(texto) 
.SessionID= mapi_session.SessionID 
If !Empty(xarchivo) 
.AttachmentIndex = 0 
.AttachmentPathName = xArchivo 
EndIf 
.send 
Endwith 
mapi_session.signoff() 
Release mapi_session 
Release mapi_message 
******************************** 
#define olMailItem 0 
#define CR CHR(13) 
oOutlook = CreateObject("Outlook.Application") 
oMailItem = oOutlook.CreateItem(olMailItem) 
WITH oMailItem 
.Subject = "Este es un ejemplo" 
.Body = "Mira este ejemplo de envio de eMail con Outlook desde Visual FoxPro!" 
.Recipients.Add("fejame@epm.net.co") 
.Save() 
.Send() 
********************************** 
ENDWITH 

endproc