Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Sending smtp emails
Message
From
17/11/2005 20:22:55
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
Sending smtp emails
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01070041
Message ID:
01070041
Views:
49
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
Next
Reply
Map
View

Click here to load this message in the networking platform