if nmsmtp1.ReplyNumber = 250 then label1.caption:=nmsmtp1.Transaction('auth login'); //开始认证 if nmsmtp1.ReplyNumber =334 then //返回值为334,让你输入用BASE64编码后的用户名 label1.caption:=nmsmtp1.Transaction('YWFhYWE=');// 用户名aaaaa if nmsmtp1.ReplyNumber =334 then // 返回值为334,让你输入用BASE64编码后的用户密码 label1.caption:=nmsmtp1.Transaction('MTIzNDU2'); //密码为123456 if nmsmtp1.ReplyNumber =235 then
我试了一下,不好用,没有成功客户创建socket连接服务器 服务器回送:220 smtp.263.net ESMTP 客户:EHLO <a>\r\n 服务器回送:250-smtp.263.net 250-PIPELINING 250-SIZE 10240000 250-ETRN 250-AUTH LOGIN 250 8BITMIME 客户:AUTH LOGIN\r\n 服务器回送:334 VXNlcm5hbWU6 客户:TG9zdFNweQ==(用户名的base64编码) 服务器回送:334 UGFzc3dvcmQ6 客户:cG9zdDcwNw==(密码的base64编码) 服务器回送:235 Authentication successful 客户:MAIL FROM:<[email protected]>\r\n 服务器回送:250 Ok 客户:RCPT TO:<[email protected]>\r\n 服务器回送:250 Ok 客户:DATA\r\n 服务器回送:354 End data with <CR><LF>.<CR><LF> 客户:From: <[email protected]> To: <[email protected]> Subject: test X-Priority: 1 X-Mailer: clientapp Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII ................... 客户:\r\n.\r\n 服务器回送:250 Ok: queued as D6D811C8DCC79 客户:QUIT\r\n 服务器回送:221 Bye
label1.caption:=nmsmtp1.Transaction('auth login'); //开始认证
if nmsmtp1.ReplyNumber =334 then //返回值为334,让你输入用BASE64编码后的用户名
label1.caption:=nmsmtp1.Transaction('YWFhYWE=');// 用户名aaaaa
if nmsmtp1.ReplyNumber =334 then // 返回值为334,让你输入用BASE64编码后的用户密码
label1.caption:=nmsmtp1.Transaction('MTIzNDU2'); //密码为123456
if nmsmtp1.ReplyNumber =235 then
服务器回送:220 smtp.263.net ESMTP
客户:EHLO <a>\r\n
服务器回送:250-smtp.263.net
250-PIPELINING
250-SIZE 10240000
250-ETRN
250-AUTH LOGIN
250 8BITMIME
客户:AUTH LOGIN\r\n
服务器回送:334 VXNlcm5hbWU6
客户:TG9zdFNweQ==(用户名的base64编码)
服务器回送:334 UGFzc3dvcmQ6
客户:cG9zdDcwNw==(密码的base64编码)
服务器回送:235 Authentication successful
客户:MAIL FROM:<[email protected]>\r\n
服务器回送:250 Ok
客户:RCPT TO:<[email protected]>\r\n
服务器回送:250 Ok
客户:DATA\r\n
服务器回送:354 End data with <CR><LF>.<CR><LF>
客户:From: <[email protected]>
To: <[email protected]>
Subject: test
X-Priority: 1
X-Mailer: clientapp
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
...................
客户:\r\n.\r\n
服务器回送:250 Ok: queued as D6D811C8DCC79
客户:QUIT\r\n
服务器回送:221 Bye
他的綱站上去下載組件包,一切OK!可以給分了吧!!!