winsock发送邮件请教大家，谢谢！！！

winsock发送邮件请教大家，谢谢！！！发邮件时，已接收到354 Start mail input; end with <CRLF>.<CRLF>，发邮件内容时为何会出现“错误40006，所请求的事务或请求本身的错误协议或者错误连接状态“
请各位朋友予以帮助，释疑一下。
下面是我的代码：
......
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
dim sendout as string
Dim strDataToSend()     As String  
Dim strDataToSendend    As Long
....
Winsock1.SendData ("data" + vbCrLf)
    WaitFor ("354")strDataToSend = Split(sendout, vbCrLf)
strDataToSendend = UBound(strDataToSend)
    For i = 0 To strDataToSendend
    if sendquit = False then
    Winsock1.SendData strDataToSend(i) + vbCrLf
    Debug.Print strDataToSend(i) & vbCrLf
    DoEvents
    endif
    Next i
    Winsock1.SendData "." + vbCrLf
    WaitFor ("250")
.....
Private Sub Winsock1_SendComplete()
sendquit = False 
End Sub如 sendout较大(好几兆），就会出现错误：“错误40006，所请求的事务或请求本身的错误协议或者错误连接状态“ 或错误：“错误10053“
请您能给与帮助