Forum AtoutFox : 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
>
>
> .
>