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

Preguntas similare

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
Respuesta Responder a este mensaje
#2 Jose Luis Lopez
24/03/2005 - 00:12 | Informe spam
Alex muchisimas gracias

Jose Luis



"Alex Feldstein" escribió en el mensaje
news:
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...ion/sendus
ing").VALUE
= cdoSendUsingPort




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




.Configuration.FIELDS("http://schemas.microsoft.com/cdo/co...ion/smtpse
rverport").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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida