General information
Title:
VFP_Winsock_Send_Mail
Environment versions
Network:
Windows 2000 Server
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
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only