Information générale
Titre:
VFP_Winsock_Send_Mail
Versions des environnements
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
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement