刚学VB写了个发E-Mail的，其实就是想看看能不能发出去，可他就是发不出去，唉……忍了……

Private Sub Form_Load()
Text1.Text = "shitian_8569@hotmail.com"
End Sub

Private Sub Command1_Click()
Winsock1.LocalPort = 0
Winsock1.Protocol = sckTCPProtocol
Winsock1.RemoteHost = "smtp.email.msn.com"
Winsock1.RemotePort = 25
Winsock1.Connect
End Sub

Private Sub Winsock1_Connect()
Winsock1.SendData "HELO " & vbCrLf
Winsock1.SendData "MAIL FROM:" & Trim(Text1.Text) & vbCrLf
Winsock1.SendData "RCPT TO:" & Trim(Text1.Text) & vbCrLf
Winsock1.SendData "DATA" & vbCrLf
Winsock1.SendData "Subject:" & "发不出去啊！！！！！！哈哈哈哈哈哈" & vbCrLf
Winsock1.SendData "." & vbCrLf
Winsock1.SendData "QUIT" & vbCrLf
End Sub

哪位大侠有空看看给弄下，只要能发就成，上面那个就是我信箱……

呵呵，如果这个程序这么少的步骤就可以发邮件的话，恐怕世界上的垃圾邮件都赛地上的蚂蚁了（不用登录就可以直接发邮件)。

现在的邮件发送服务器必须要登录才能让你发邮件的，你的程序少了个登录步骤。
而且登录也巨麻烦，用户名和密码都必须加密成 md5 才能登录，可不是明文这么简单
研究加密算法中

恩！恩！是地！ 偶刚学一点一点来！哈哈哈哈！
这回加上了！可弄啦老长时间啦还是发不了啊！！！！！！
Private Sub Command1_Click()

Winsock1.LocalPort = 0
Winsock1.Protocol = sckTCPProtocol
Winsock1.RemoteHost = "mail.hotmail.com"
Winsock1.RemotePort = 25

Winsock1.Connect

End Sub

-----------------------------------------------------------------

Private Sub Command1_Click()

Dim strMailName As String
Dim strMailUsername As String
Dim strMailPassword As String
Dim strMailForm As String
Dim strRcptTo As String

strMailUsername = "VXNlcm5hbWU6" & Chr(32) & "c2hpdGFvXzEwOTY0" & vbCrLf
strMailPassword = "UGFzc3dvcmQ6" + Chr(32) + "这个是我经过Base64编码转换后的密码！保密！嘿嘿" + vbCrLf
strMailForm = "MAIL FROM:" & Chr(32) & "shitian_8569@hotmail.com" & vbCrLf
strRcptTo = "RCPT TO:" & Chr(32) & "shitian_8569@hotmail.com" & vbCrLf

Winsock1.SendData "HELO " & "shitian_8569" & vbCrLf
Winsock1.SendData "AUTH LOGIN" & vbCrLf
Winsock1.SendData (strMailUsername)
Winsock1.SendData (strMailPassword)
Winsock1.SendData (strMailForm)
Winsock1.SendData (strMail)
Winsock1.SendData "DATA" & vbCrLf
Winsock1.SendData "Subject:" & "我苦啊" & vbCrLf
Winsock1.SendData "." & vbCrLf
Winsock1.SendData "QUIT" & vbCrLf

End Sub

我是看着服务器返回的代码进行下一部操作，可还是发不了，哈哈哈哈哈............

我弄出来啦 能发了 这个帖子没用可以删啦