Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
VFP_Winsock_Send_Mail
Message
From
11/12/2009 10:51:07
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Troubleshooting
Title:
VFP_Winsock_Send_Mail
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Vista
Network:
Windows 2000 Server
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01438616
Message ID:
01438616
Views:
190
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
Next
Reply
Map
View

Click here to load this message in the networking platform