smtp 发邮件问题请教

dabie 2006-11-17 02:53:31

网上找了段代码调试了下没通过,请指教下，错误的地方我标出来了。
Sub SendEmail(MailServerName As String, FromName As String, _
FromEmailAddress As String, ToName As String, _
ToEmailAddress As String, EmailSubject As String, _
EmailBodyOfMessage As String)
Winsock1.LocalPort = 0
'端口设置为0,否则在启动程序的时候信就已经发出去了

If Winsock1.State = sckClosed Then
'如果Winsock关闭中
DateNow = Format(Date, "Ddd") & ", " & Format(Date, "dd Mmm YYYY") _
& " " & Format(Time, "hh:mm:ss") & "" & " -0600"
first = "MAIL FROM:" & Chr(32) & Trim(FromEmailAddress) & vbCrLf
'获得发件人地址
Second = "RCPT TO:" + Chr(32) + ToEmailAddress + vbCrLf
'收件人地址
Third = "Date:" + Chr(32) + DateNow + vbCrLf
'发件时间
Fourth = "From:" + Chr(32) + FromName + vbCrLf
' 发件人姓名
Fifth = "To:" + Chr(32) + ToNametxt + vbCrLf
' 收件人姓名
Sixth = "Subject:" + Chr(32) + EmailSubject + vbCrLf
' 邮件主题
Seventh = EmailBodyOfMessage + vbCrLf
' 邮件正文

Ninth = "X-Mailer: EBT Reporter v 2.x" + vbCrLf '发送邮件的软件名称,可以自定义
Eighth = Fourth + Third + Ninth + Fifth + Sixth ' 生成SMTP发送邮件所必须的模式
Winsock1.Protocol = sckTCPProtocol ' 设置发送的协议
Winsock1.RemoteHost = MailServerName ' 设置服务器地址
Winsock1.RemotePort = 25
'设置SMTP端口
Winsock1.Connect ' 连接

WaitFor ("220") '等待连接成功

StatusTxt.Caption = "Connecting...."
StatusTxt.Refresh

Winsock1.SendData ("HELO www.163.com" + vbCrLf)
'打招呼
WaitFor ("250")
StatusTxt.Caption = "Connected"
StatusTxt.Refresh
'连接成功
Winsock1.SendData (first) 'first="mail from: dabie1@163.com vbcrlf"
在这里就返回错误了回"500 error:bad syntax
在这里就返回错误了回"500 error:bad syntax
在这里就返回错误了回"500 error:bad syntax
在这里就返回错误了回"500 error:bad syntax

'发件人地址
StatusTxt.Caption = "Sending Message"
StatusTxt.Refresh
WaitFor ("250")
Winsock1.SendData (Second)
'收件人地址
WaitFor ("250")
Winsock1.SendData ("DATA" + vbCrLf)

WaitFor ("354")
Winsock1.SendData (Eighth + vbCrLf)
Winsock1.SendData (Seventh + vbCrLf)
Winsock1.SendData ("." + vbCrLf)
'发送邮件信息
WaitFor ("250")
Winsock1.SendData ("QUIT" & vbCrLf)

StatusTxt.Caption = "Disconnecting"
StatusTxt.Refresh
'发送完毕断开
WaitFor ("221")
Winsock1.Close
Else
MsgBox (Str(Winsock1.State))
End If

End Sub
谢谢指教下

...全文