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.

sam. 04 juin 2016, 18h09

Koen
Pays-Bas Pays-Bas

atoutfox.public.association

Re: VFPWinsock.prg

Bonjour,
Merci GLS, Merci Francis,

Cétait plus simple que jávais prevu, changement du code en

<VFP>
#Define SENDING_SUCCES "Is sent"
#Define SENDING_FAILED "Was not sent"
#Define WINSOCKMAILING "Email sent using the Winsock-protocol"

lcErrCatch = Thisform.SendWinsockMail()
If Empty(m.lcErrCatch)
Messagebox("'" + (m.lcSubject) + "' " + SENDING_SUCCES , 64 , WINSOCKMAILING)
Else
lnAnswer = Messagebox( m.lcMessageText, 4+48+0, WINSOCKMAILING, 0 )
Endif
....
</VFP>

donne le résultat recherché.

Merci,

Koen


Permalink : http://www.atoutfox.org/nntp.asp?ID=0000017658
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