dim. 29 mai 2016, 20h39
Koen
Pays-Bas
atoutfox.public.association
Re: VFPWinsock.prg
Merci Francis,
J'ai constructer une petit peut differente:
il y a une methode SendWinsockMail contenant
Local lnStartSeconds
Set Procedure To VFPwinsock
Thisform.SendingImage.Visible = .T.
oMail=Createobject("VFP_Winsock_Send_Mail")
oMail.SMTP_HOST = Thisform.cSMTPServer &&smtp.online.nl
oMail.From = Thisform.cSender
oMail.From_Name = Thisform.cFromName
oMail.To = Thisform.cReceiver
oMail.Subject = Thisform.cSubject
oMail.Message = Thisform.cMessage
oMail.Attachment = Thisform.cLogfile
Le form est equipe avec une bouton "Send"
le code ici:
Thisform.SendWinsockMail(@m.lcErrReturn, m.lcTo, m.lcSubject, m.lcBody, @m.aryAttach, m.lcCC, m.lcBCC, m.lcUserName, m.lcPassword, m.llOpenEmail)
If Empty(m.lcErrReturn)
Messagebox("'" + m.lcSubject + "' sent successfullly.", 64, "Send email via Winsock")
Else
Messagebox("'" + m.lcSubject + "' failed to be sent. Reason:" + Chr(13) + m.lcErrReturn, 64, "Send email via Winsock")
Endif
mais le parameter lcErrReturn est une logical.
Tousjours, en cas de envoyer ou non envoyer une .F.
Quest ce que je vais incorrecte ici?
Cordialement,
Koen
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000017651