Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Sending smtp emails
Message
De
17/11/2005 20:22:55
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Titre:
Sending smtp emails
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01070041
Message ID:
01070041
Vues:
51
Hi..

At http://fox.wikis.com/wc.dll?Wiki~SendSmtpEmail we can reach FUNCTION SendSmtpEmail

I tried to make it work, but doesn't with servers that require authentication..

the most far the I reach by now it is:
...
	this.GiveFeedBack( loFB, "Connected." )

	If  Empty(This.cPassword)
		If  Not this.Readwrite(Sock,"HELO " + Alltrim(strServ), 220)
			this.GiveFeedBack( loFB, "Failed HELO" )
			Exit && Leave Control Loop
		Endif
	ELSE
		If  Not this.ReadWrite(sock,"EHLO " + alltrim(strServ), 220)
			this.GiveFeedBack( loFB, "Failed EHLO" )
			Exit && Leave Control Loop
		Endif
		If  this.ReadWrite(sock,"AUTH LOGIN ",250)
            this.ReadWrite(sock,strconv(This.cUserName,13), 334)
            this.ReadWrite(sock,strconv(This.cPassword,13), 334)
			*If !this.Readwrite(Sock, Strconv(This.cUserName,13),250) And !this.Readwrite(Sock, Strconv(This.cPassword,13),250)
			*	Wait Window 'Username and Password are invalid.'
			*Endif
		Else
			Wait Window 'AUTH LOGIN not supported by smtp server.'
		Endif
	Endif

	If  Not this.Readwrite(Sock,"MAIL FROM: " + Alltrim(strFrom), 250)
		this.GiveFeedBack( loFB, "Failed MAIL" )
		Exit
	Endif
...
Please, can anyone help me and show what should I'm doing wrong

TIA

Claudio
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform