请问高手们:怎样编程实现在发信时smtp服务器认证

Question

helo 主机名
mail from:aaa<[email protected]>
rcpt to:bbb<[email protected]>
data
内容
.

Answer 1

delphi 6 的 indy 組件包 一切都會 OK!!! 快給分吧!!!

Answer 2

请问eastxiang,delphi6中的indy是自带的吗??delphi5中如何解决?我可加分????

Answer 3

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
  

Answer 4

我试了一下，不好用，没有成功客户创建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 

Answer 5

在帖子上搜' indy ' 有好多!, delphi6 已引進了 indy .delphi 5的用戶可能到
他的綱站上去下載組件包,一切OK!可以給分了吧!!!