发送邮件出的问题，大家帮忙~~~

代码：
Function SendMail(psTo As String, psFrom As String, psSubject As String, psBody As String) As Boolean
Dim lsMessage As String
Dim lsSep As String
lsMessage = "MAIL FROM: <" & psFrom & ">" & vbCrLf _
& "RCPT TO:<" & psTo & " > " & vbCrLf _
& "DATA" & vbCrLf _
& "DATE: " & Format$(Now, "dd mmm yy ttttt") & vbCrLf _
& "FROM: " & psFrom & vbCrLf _
& "TO: " & psTo & vbCrLf _
& "SUBJECT: " & psSubject & vbCrLf & vbCrLf _
& psBody & vbCrLf & "." & vbCrLf
socket.SendData (lsMessage)
End Function
还有一个按扭
Private Sub Command1_Click()
SendMail "[email protected]", " nickel", "123", "123"
End Sub
运行的时候说：所需事物或请求的错误协议或连接状态
是怎么回事啊？大家帮忙啊，谢谢了~~~