Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
VFP_Winsock_Send_Mail
Message
De
11/12/2009 10:51:07
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Problèmes
Titre:
VFP_Winsock_Send_Mail
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Vista
Network:
Windows 2000 Server
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01438616
Message ID:
01438616
Vues:
191
I wrote an app in vfp sp2. The user can enter an email addess and email a file using

thisform.sendmail(lcfrom , lcto , file.pdf).
On my machine, windows xp 2000 sp4, it works.
On the vista machines, it doesn't work.

Here's the code.
Maybe I need the smtp_host? Could that be it?

Any help would be greatly appreciated.



set proc to vfpwinsock additive

o = CREATEOBJECT("VFP_Winsock_Send_Mail")
o.smtp_host = ""
o.from = lcfrom
o.from_name = ""
o.TO = lcto
o.Subject = "Proposal"
o.Message = "Attached is your proposal package " + ALLTRIM(JUSTFNAME(lcattach)) + "."
o.attachment = lcattach
IF not o.send()
lcmessage = MESSAGEBOX(PROPER(JUSTFNAME(ALLTRIM(lcattach))) + ' was not sent. Error: ' + o.erreur,0+16+0, APPNAME_LOC)

o=Null
release procedure vfpWinsock
ELSE
lcmessage = MESSAGEBOX(PROPER(JUSTFNAME(ALLTRIM(lcattach))) + ' was sent successfully...',0+64+0, APPNAME_LOC)

o=Null
release procedure vfpWinsock
ENDIF
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform