Es posible con vfp6 enviar email sin utilizar outlook ??

22/03/2005 - 23:09 por Jose Luis Lopez | Informe spam
Hola

Me dicen que utilizando aspxp.mail puedo enviar email directamente desde
vfp6 , es esto posible ? en donde lo encuentro y como se utiliza ? es gratis
??

Gracias

Jose Luis
 

Leer las respuestas

#1 Alex Feldstein
23/03/2005 - 20:24 | Informe spam
On Tue, 22 Mar 2005 17:09:37 -0500, "Jose Luis Lopez"
wrote:

Me dicen que utilizando aspxp.mail puedo enviar email directamente desde
vfp6 , es esto posible ? en donde lo encuentro y como se utiliza ? es gratis
??



Sin Outlook puedes enviar usando MAPI, o SMTP o CDO o programas
externos como Blat o como el que mencionas (que no conozco)

Ver:
http://fox.wikis.com/wc.dll?Wiki~SendMapiEmail

Ejemplo de CDOSYS: (viene con Win2K y WinXP, CDONTS viene con NT).

#DEFINE cdoSendUsingPort 2
#DEFINE smtpserverport 25
#DEFINE smtpserver "mail.yourmailserver.net"

LOCAL loMsg
loMsg = NEWOBJECT("CDO.Message")
WITH loMsg
.FROM = ""
.TO = ""
.BCC = ""
.Subject = "Mi Asunto"
.TextBody = "Mensaje va aqui"

.Configuration.FIELDS("http://schemas.microsoft.com/cdo/co...sing").VALUE
= cdoSendUsingPort

.Configuration.FIELDS("http://schemas.microsoft.com/cdo/co...rver").VALUE
= smtpserver

.Configuration.FIELDS("http://schemas.microsoft.com/cdo/co...port").VALUE
= smtpserverport
.Configuration.FIELDS.UPDATE
.SEND
ENDWITH
loMsg = NULL



Ejemplo de SMTP, con la clase wwIPStuff de Rick Strahl,
(http://www.west-wind.com/wwIPStuff.asp) para email (hace mucho mas
que eso):
Set Procedure to wwUtils
Set Classlib to wwIPStuff.Vcx
local loSMTP
loSMTP = CreateObject("wwIPStuff")
loSMTP.cMailServer = "mail.yourmailserver.net"
loSMTP.cSenderEmail = ""
loSMTP.cSenderName = "Moe Howard"
loSMTP.cRecipient = ","
loSMTP.cCCList = ","
loSMTP.cSubject = "Mi Asunto"
loSMTP.cMessage = "Mensaje va aqui"
loSMTP.cAttachment="c:\config.sys,c:\temp\vfpprog.prg"
loSMTP.SendMailAsync()




Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(address munged with ROT-13)

Blog: http://www.bloglines.com/blog/AlexFeldstein
Website: http://feldstein.net

Preguntas similares