Kevin,

Look to commands EHLO, AUTH and his RFC description.

I'm sorry, I have not functional example for VFP.

MartinJ

>Ok, but that doesn't answer the question of how to authenticate myself
>to the server...
>
>
>
>
>
>>Hi Kevin...
>>
>>SMTP server doesn't commands USER and PASSWORDS.
>>
>>SMTP commands and RFC
>>
>>MartinJ
>>
>>>I'm trying to create a small form to send an email using Winsock.
>>>The form is here http://www.marois-consulting.com/stuff/emailform.zip
>>>
>>>In the code below, the line with the arrow causes Comcast to respond with:
>>>

>>>250 comcast.net
>>>530 Authentication required
>>>

>>>
>>>The next line after that causes Comcast to respond with:
>>>

>>>500 Command unrecognized
>>>

>>>
>>>My guess is that I am not sending the right commands to login. I'm open to any suggestions.
>>>Thanks
>>>
>>>
>>>
>>>

>>>#INCLUDE winsockdemo.h
>>>
>>>LOCAL nPauseCounter, cRetVal, cUserName, cPassword, cServerName
>>>LOCAL cUserName, cPassword, cSender, cRecipient, cSubject, cMsgBody
>>>nPauseCounter = 0
>>>
>>>
>>>DECLARE Sleep ;
>>>	IN Win32API;
>>>	INTEGER nMilliSeconds
>>>
>>>
>>>WITH ThisForm
>>>
>>>	** Clear the status box and the log
>>>	.txtStatus.Value 	= ""
>>>	.edtLog.Value 		= ""
>>>
>>>	** Get values from the form
>>>	cServerName		= ALLTRIM(.txtServerName.Value)
>>>	cUserName			= ALLTRIM(.txtUserName.Value)
>>>	cPassword			= ALLTRIM(.txtPassword.Value)
>>>	cSender  			= "<" + ALLTRIM(.txtFromAddress.Value) + ">"
>>>	cRecipient		= "<" + ALLTRIM(.txtToAddress.Value) + ">"
>>>	cSubject			= ALLTRIM(.txtSubject.Value)
>>>	cMsgBody			= ALLTRIM(.edtBodyText.Value)
>>>
>>>	** Set up the winsock control
>>>	.oWinSock.Protocol 		= PROTCOL_TCP
>>>	.oWinsock.RemoteHost 	= cServerName
>>>	.oWinsock.LocalPort 	= LOCAL_PORT
>>>	.oWinsock.RemotePort 	= REMOTE_PORT
>>>
>>>	** Attempt to connect
>>>	.oWinsock.Object.Connect()
>>>	
>>>	** Pause for half a second
>>>	=Sleep(nSleepDelay)
>>>	
>>>	** Display a message
>>>	.edtLog.Value = .edtLog.Value + "Waiting for socket to be connected.." + CRLF
>>>	
>>>	** If not connected, pause while a connection is attempted
>>>	DO WHILE .oWinsock.State # sckConnected AND nPauseCounter <= 10
>>>		=INKEY(.5)
>>>		nPauseCounter = nPauseCounter + 1
>>>	ENDDO
>>>	
>>>	** If the socket is connected...
>>>	IF .oWinsock.State = sckConnected
>>>
>>>		** Initiate connection and login to the mail server
>>>		cRetVal = .SendSMTPData("HELO kevin@marois-consulting.com")
>>>		cRetVal = .SendSMTPData("MAIL FROM:" + cSender)                && <==========
>>>		cRetVal = .SendSMTPData("USER:" + cUserName)
>>>		cRetVal = .SendSMTPData("PASS:" + cPassword)
>>>		cRetVal = .SendSMTPData("RCPT TO:" + cRecipient)
>>>		cRetVal = .SendSMTPData("DATA")
>>>
>>>		** Format the mail message
>>>		cRetVal = .SendSMTPData("From:" + + ALLTRIM(.txtFromAddress.Value), TRUE)
>>>		cRetVal = .SendSMTPData("To:" + ALLTRIM(.txtToaddress.Value), TRUE)
>>>		cRetVal = .SendSMTPData("Subject: " + cSubject, TRUE)
>>>		cRetVal = .SendSMTPData("", TRUE)
>>>		cRetVal = .SendSMTPData(cMsgBody, TRUE)
>>>		cRetVal = .SendSMTPData(".", TRUE)
>>>		
>>>		** Finish the connection
>>>		cRetVal = .SendSMTPData("QUIT")
>>>		
>>>	ELSE
>>>		.edtLog.Value = .edtLog.Value + "Unable to send mail Socket State " + STR(.oWinsock.State,2) + CRLF
>>>		.edtLog.Refresh
>>>	ENDIF
>>>	
>>>ENDWITH
>>>
>>>CLEAR DLLS
>>>
>>>RETURN
>>>