Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Como puedo cambiar el email client con VFP 7.0
Message
From
25/01/2004 06:57:48
 
 
To
23/01/2004 10:40:32
General information
Forum:
Visual FoxPro
Category:
Internet applications
Miscellaneous
Thread ID:
00869878
Message ID:
00870371
Views:
9
>Podria alguien del foro informarnos, como puedo cambiar el email client con VFP 7.0, o en donde podemos encontrar informacion al respecto, deseamos cambiar a Outlook express.

Puedes usar MAPI (hay controles ActiveX de MAPI que vienen con VFP más otros comerciales como Mabri).
O usar la excelente clase de MAPI de Nigel Coates (la puedes encontrar en http://www.nbcsoftware.com/freeware.html o Download #1034 aqui en UT).

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

No se porque buscas usar OE, que no es uno de los mejores logros de MS.

Si estas abierto a otras opciones:

Puedes usar COM Automation y Outlook.
http://fox.wikis.com/wc.dll?Wiki~AutomationExamples

Puedes usar CDO
http://fox.wikis.com/wc.dll?Wiki~AutomatedEmail
http://fox.wikis.com/wc.dll?Wiki~MethodsToSendReportByEmail

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 = "moehoward@3stooges.com"
.TO = "larryfine@3stooges.com"
.BCC = ""
.Subject = "Mi Asunto"
.TextBody = "Mensaje va aqui"
.Configuration.FIELDS("http://schemas.microsoft.com/cdo/configuration/sendusing").VALUE = cdoSendUsingPort
.Configuration.FIELDS("http://schemas.microsoft.com/cdo/configuration/smtpserver").VALUE = smtpserver
.Configuration.FIELDS("http://schemas.microsoft.com/cdo/configuration/smtpserverport").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 = "moehoward@3stooges.com"
loSMTP.cSenderName = "Moe Howard"
loSMTP.cRecipient = "larryfine@3stooges.com,groucho@marxbros.com"
loSMTP.cCCList = "chico@marxbros.com,harpo@marxbros.com"
loSMTP.cSubject = "Mi Asunto"
loSMTP.cMessage = "Mensaje va aqui"
loSMTP.cAttachment="c:\config.sys,c:\temp\vfpprog.prg"
loSMTP.SendMailAsync()


Nota: Has preguntado en la sección en inglés. Debes usar la sección en español para obtener respuestas.


Alex Feldstein, MCP, Microsoft MVP
VFP Tips: English - Spanish
Website - Blog - Photo Gallery


"Once again, we come to the Holiday Season, a deeply religious time that each of us observes, in his own way, by going to the mall of his choice." -- Dave Barry
Previous
Reply
Map
View

Click here to load this message in the networking platform