初识WinSock控件,下面的邮件代码,没研究透,请高手请点一二。
初识WinSock控件,下面的邮件代码,没研究透,请高手请点一二。
代码:
Private Sub SendMail()
Dim MailServer As String '发件服务器
Dim UserName As String, UserPass As String '发件人登陆名/密码
Dim Verification As String '验证信息
Dim FromMail As String, FromName As String '寄件人地址/名字
Dim ToMail As String, ToName As String '收件人地址/名字
Dim MailSubject As String '邮件主题
Dim MailMessage As String '邮件内容
Winsock1.SendData ("helo smtp.yeah.net" + vbCrLf)
Winsock1.SendData ("auth login" + vbCrLf) '如此验证登陆,是否正确,不清楚。
Winsock1.SendData (UserName + vbCrLf)
Winsock1.SendData (UserPass + vbCrLf)
Winsock1.SendData (Verification + vbCrLf) '猜想,应该是要这么写,但不知道是否正确。
Winsock1.SendData ("mail from: " + FromMail + vbCrLf)
Winsock1.SendData ("rcpt to: " + ToMail + vbCrLf)
Winsock1.SendData ("data" + vbCrLf)
Winsock1.SendData ("Subject: " + MailSubject + vbCrLf)
Winsock1.SendData (MailMessage + vbCrLf)
Winsock1.SendData ("." + vbCrLf)
Winsock1.SendData ("quit" + vbCrLf)
End Sub
服务器反回信息:
220 yeah.net Anti-spam GT for Coremail System (yeah[20141016])
250 OK
334 dXNlcm5hbWU6
困惑……
220 如何验证?
334 是啥意思?