200分求教SMTP认证的怪问题，各位大侠们请赐教！（分不够再加）

Question

小弟写了一个发送邮件的程序，其中SMTP认证模块如下
....  .... ....
'打开对话(在此之前服务器地址，端口都已经正确初始化)
wsock.SendData "EHLO " + wsock.RemoteHost + vbCrLf 
wsock.SendData "AUTH LOGIN " + vbCrLf
wsock.SendData Base64EncodeStr(Trim(txtUser.Text)) + vbCrLf
wsock.SendData Base64EncodeStr(Trim(txtPass.Text)) + vbCrLf
....  .... ....
当程序连接一个LOTUS DOMINO服务器时一切正常，该模块的返回信息依次是：
         334 VXNlcm5hbWU6
         334 UGFzc3dvcmQ6
         235 Authentication successful可问题怪就怪在，当程序连接一个EXCHANGE（2003）服务器时却死活通不过验证（这里保证输入的用户名和密码都是正确的），返回信息如下：
         334 VXNlcm5hbWU6
         500 5.3.3 Unrecognized command
         500 5.3.3 Unrecognized command多次试验未果，心急如焚，望各位大侠能不吝赐教！谢谢！

Answer 1

有些邮件服务器是不用用户认证的,是不是对方的EXCHANGE服务器没有开通验证功能? 你试试不执行验证直接开始发送邮件数据的代码吧

Answer 2

EXCHANGE服务器开通了验证功能，如果不验证直接执行“Mail From:”会提示：
454 5.7.3 Client was not authenticated.
实在是着急，各位大侠发表高见啊，分绝对不是问题！

Answer 3

得到334 VXNlcm5hbWU6的信息明明是提示输入用户名的，但系统为什么把下面的输入内容当成是SMTP命令来解析呢（从返回信息500 5.3.3 Unrecognized command可以看出他是把输入内容当成是命令来识别了呀）？焦急等待种，各位高手继续支招啊！！！！！

Answer 4

试试这样吧,发个空的用户密码,看他有什么反应.
wsock.SendData "AUTH LOGIN " + vbCrLf
wsock.SendData vbCrLf
wsock.SendData vbCrLf

Answer 5

看了一下你的信息发现对方不认AUTH LOGIN 这个命令!
wsock.SendData "AUTH LOGIN " + vbCrLf 建议在DOS模式下用telnet命令连接到服务器,然后执行help 命令查看一下对方支持什么命令
有可能是 "AUTO"  或 "LONIN" 任意一个单词就可以了

Answer 6

EXCHANGE服务器是支持AUTH LOGIN的，HELP命令返回信息里包含AUTH。
而且在DOS模式下这些命令都认识的，
      输入         AUTH LOGIN      返回 334 VXNlcm5hbWU6（等待输入用户名）
      输入用户名                   返回 334 UGFzc3dvcmQ6（等待输入密码）
      输入密码                     返回 认证结果这到底是怎么回事啊，555... ...

Answer 7

我已经在winsock空件的DataArrival时间里写了取返回数据的代码了呀。现在的问题是：同样的程序在连接DOMINO服务器是正常的，但连接EXCHANGE服务器时就死活不能验证啊！！！！！

Answer 8

对于Exchange确实有点问题，即使认证通过了，然后到传输邮件内容时会出现莫明其妙的错误，偶试着拦截掉OE(Outlook Express)的发送内容，是可以滴，不知道是否客户端信息也模仿OE就可以，没做进一步测试。
其实在很多时候确实可以使用OE来测试的，也就是用程序在本机监听端口，然后把OE的服务器地址设为本机的，然后让OE连自己的程序，同时程序记录相关传入的命令，然后程序再连接远程服务器，做个转发，然后再把传回的内容做记录，最后转发给OE。

Answer 9

Auth Login
之后需要等待一条确认指令，然后再传输入用户名一密码。

Answer 10

unsigned(僵哥（当程序语言成为普及滴第三语言之后……）) 兄：
能说的具体点吗？我具体怎么拦截OE的发送命令（格式）啊？还有啊，我现在却是是在“AUTH LOGIN”命令返回之后才发的用户名和密码啊，为什么还是通不过验证呢？ 我有一点不明白的是：他（EXCHANGE）为什么会把我在AUTH LOGIN 后输入的用户名和密码当成是SMTP命令来解析呢？请多指教，谢谢！！！

Answer 11

unsigned的意思是?
wsock.SendData "EHLO " + wsock.RemoteHost + vbCrLf 
doevents
wsock.SendData "AUTH LOGIN " + vbCrLf
doevents
wsock.SendData Base64EncodeStr(Trim(txtUser.Text)) + vbCrLf
doevents
wsock.SendData Base64EncodeStr(Trim(txtPass.Text)) + vbCrLf
doevents

Answer 12

加了doevents试了还是不行啊，5。

Answer 13

根据你贴出来的信息,对方应该是首先不认AUTH LOGIN  这个命令吧,你对比一下是不是这样?
wsock.SendData "EHLO " + wsock.RemoteHost + vbCrLf => 334 VXNlcm5hbWU6
wsock.SendData "AUTH LOGIN " + vbCrLf => 500 5.3.3 Unrecognized command
wsock.SendData Base64EncodeStr(Trim(txtUser.Text)) + vbCrLf => 500 5.3.3 Unrecognized command
wsock.SendData Base64EncodeStr(Trim(txtPass.Text)) + vbCrLf  

Answer 14

不好意思，是我发贴时忽略了（多写了一行），对方的EXCHANGE服务器实际上确实是支持AUTH LOGIN的wsock.SendData "AUTH LOGIN " + vbCrLf
wsock.SendData Base64EncodeStr(Trim(txtUser.Text)) + vbCrLf
wsock.SendData Base64EncodeStr(Trim(txtPass.Text)) + vbCrLf
....  .... ....
当程序连接一个LOTUS DOMINO服务器时一切正常，该模块的返回信息依次是：
         334 VXNlcm5hbWU6
         334 UGFzc3dvcmQ6
         235 Authentication successful可问题怪就怪在，当程序连接一个EXCHANGE（2003）服务器时却死活通不过验证（这里保证输入的用户名和密码都是正确的），返回信息如下：
         334 VXNlcm5hbWU6
         500 5.3.3 Unrecognized command
         500 5.3.3 Unrecognized command

Answer 15

SMTP是个会话过程, 象你的代码这样:wsock.SendData "EHLO " + wsock.RemoteHost + vbCrLf 
wsock.SendData "AUTH LOGIN " + vbCrLf
wsock.SendData Base64EncodeStr(Trim(txtUser.Text)) + vbCrLf
wsock.SendData Base64EncodeStr(Trim(txtPass.Text)) + vbCrLf一下子把所有命令全发送给了SMTP Server, 对于有些SMTP Server来说, 它也许能缓存你所有的命令, 然后逐条执行, 执行后返回执行结果, 再继续逐条执行。而对于有些SMTP Server来说, 可能会丢弃某次接收到的数据中的多余部分, 这时就会出现问题。正如楼主所说：而且在DOS模式下这些命令都认识的，
      输入         AUTH LOGIN      返回 334 VXNlcm5hbWU6（等待输入用户名）
      输入用户名                   返回 334 UGFzc3dvcmQ6（等待输入密码）
      输入密码                     返回 认证结果这是因为在DOS模式下，你总是每次只发一条命令，等服务器返回执行结果后，再发下一条命令的。这和你现在代码所实现的是不同的。
这条回复说中了要点：回复人： unsigned(僵哥（当程序语言成为普及滴第三语言之后……）) ( ) 信誉：100  2005-06-08 14:07:00  得分: 0   
   Auth Login
之后需要等待一条确认指令，然后再传输入用户名一密码。
  
 

Answer 16

楼主可能省略了等待的代码没贴出来吧!
如果这是楼主在程序中的代码的话那的确会有问题,上面已经提到过了,必须等待回应后才能下一条命令
wsock.SendData "EHLO " + wsock.RemoteHost + vbCrLf 
wsock.SendData "AUTH LOGIN " + vbCrLf
wsock.SendData Base64EncodeStr(Trim(txtUser.Text)) + vbCrLf
wsock.SendData Base64EncodeStr(Trim(txtPass.Text)) + vbCrLf应该在每句之间加一个等待的语句
do while ...
   doevents
loop

Answer 17

多谢各位兄弟的支持，现在问题已经解决。大概原因是：原先是在winsock空件的“dataarrival”的事件中接收数据的，后来怎么都调不通，实在没辙了就自己写了个延时函数（outputdelay）、接收数据函数(GetReturnInfo(iwaittime as integer,strcommand as string) as boolean)手工判断并接收（返回数据）,问题就解决了。下面贴出部分源码，请各位大侠指正：'1.连接SMTP服务器
wsock.Connect
outputdelay 50
If GetReturnInfo(10, "220") = False Then
   txtmsg.Text = "邮件服务器连接不上..."
   Exit Sub
Else
  txtmsg.Text = txtmsg.Text + strReturn + vbCrLf
End If'2.打开通讯会话
wsock.SendData "EHLO " + wsock.RemoteHost + vbCrLf
outputdelay 50
If GetReturnInfo(10, "250") = False Then
   txtmsg.Text = txtmsg.Text + vbCrLf + "无法打开通讯会话..."
   Exit Sub
Else
   txtmsg.Text = txtmsg.Text + strReturn + vbCrLf
End If'3.发送登录认证命令
wsock.SendData "AUTH LOGIN " + vbCrLf
outputdelay 50
If GetReturnInfo(10, "334") = False Then
   txtmsg.Text = txtmsg.Text + vbCrLf + "没有返回输入用户名提示..."
Exit Sub
Else
   txtmsg.Text = txtmsg.Text + strReturn + vbCrLf
End If
'4.输入用户名
wsock.SendData Base64EncodeStr(Trim(txtUser.Text)) + vbCrLf
outputdelay 50
If GetReturnInfo(10, "334") = False Then
   txtmsg.Text = txtmsg.Text + vbCrLf + "没有返回输入密码提示..."
Exit Sub
Else
   txtmsg.Text = txtmsg.Text + strReturn + vbCrLf
End If
'5.输入密码
wsock.SendData Base64EncodeStr(Trim(txtPass.Text)) + vbCrLf
outputdelay 50
If GetReturnInfo(10, "235") = False Then
   txtmsg.Text = txtmsg.Text + vbCrLf + strReturn + vbCrLf + "用户名/密码输入有误，
   无法通过验证..."
Exit Sub
Else
   txtmsg.Text = txtmsg.Text + strReturn + vbCrLf
End If
'6.'发送发送方地址
wsock.SendData "MAIL FROM:" + Trim(txtFrom.Text) + vbCrLf
outputdelay 50
If GetReturnInfo(10, "250") = False Then
   txtmsg.Text = txtmsg.Text + vbCrLf + strReturn + vbCrLf + "发送方地址发送有误..."
Exit Sub
Else
   txtmsg.Text = txtmsg.Text + strReturn + vbCrLf
End If'7.发送接收方地址
Form1 - 2
wsock.SendData "RCPT TO:" + Trim(txtTo.Text) + vbCrLf
outputdelay 50
If GetReturnInfo(10, "250") = False Then
   txtmsg.Text = txtmsg.Text + vbCrLf + strReturn + vbCrLf + "接收方地址发送有误..."
Exit Sub
Else
   txtmsg.Text = txtmsg.Text + strReturn + vbCrLf
End If'8.发送消息体
wsock.SendData "DATA" + vbCrLf
outputdelay 50
If GetReturnInfo(10, "354") = False Then
   txtmsg.Text = txtmsg.Text + vbCrLf + strReturn + vbCrLf + "发送数据命令有误..."
Exit Sub
Else
   txtmsg.Text = txtmsg.Text + strReturn + vbCrLf
End If
'9.发送邮件数据
wsock.SendData mData + vbCrLf
wsock.SendData strContent + vbCrLf
wsock.SendData "." + vbCrLf
If GetReturnInfo(10, "250") = False Then
   txtmsg.Text = txtmsg.Text + vbCrLf + strReturn + vbCrLf + "邮件数据发送有误..."
Exit Sub
Else
   txtmsg.Text = txtmsg.Text + strReturn + vbCrLf
End Iftxtmsg.Text = txtmsg.Text + vbCrLf + "恭喜，邮件发送成功^_^"
wsock.Close
End Sub

Answer 18

最近，smtp协议一些大型的邮件服务商增加了一个验证机制,导致以前的[邮件发送/群发]都不好用了。谁知道啊？