ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: VFPWinsock.prg   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

dim. 29 mai 2016, 20h39

Koen
Pays-Bas 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
20 087 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3