求过路的大师，老师，高手随便帮小弟一下

问题源码如下：Option ExplicitPrivate Sub CmdClose_Click()  If Winsock1.State = 7 Then    Winsock1.SendData "Quit"   '断开与Smtp服务器的连接"
    Winsock1.Close
  
  End If
  
  End Sub'Text1用于显示邮件发送信息,比如服务器返回.Private Sub ComSend_Click()  Text1.Text = ""
  
  If Winsock1.State = 7 Then
  
    Exit Sub
  
  End If
  Winsock1.LocalPort = 0                    '设置本地网络端口
Winsock1.Protocol = sckTCPProtocol        '设置网络使用的协议
Winsock1.RemoteHost = "smtp.3126.com"     'smtp服务器地址
Winsock1.RemotePort = 25                  'smtp服务器端口
Winsock1.Connect                          '开始与SMTP服务器连接End SubPrivate Sub Timer1_Timer()  Me.Caption = Winsock1.StateEnd SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)  Dim Dataa As String
  
  Winsock1.GetData Dataa, vbString, 5000
  
  
  Text1.Text = Text1.Text & Dataa & vbCrLf
  
  
  If Dataa = "220 3126.com VernalMail 5.0 (Anti Spam & Virus) [2005-12-26] ESMTP Server Ready" & vbCrLf Then
  
    Text1.Text = Text1.Text & "========================通过1========================" & vbCrLf & vbCrLf
    Winsock1.SendData "Helo: weiyulin" & vbCrLf
    
  ElseIf Dataa = "250 3126.com" & vbCrLf Then
    
    Text1.Text = Text1.Text & "========================通过2========================" & vbCrLf & vbCrLf
    Winsock1.SendData "MAIL FROM: <[email protected]>" & vbCrLf
  
  ElseIf Dataa = "250 ok" & vbCrLf Then
  
    Text1.Text = Text1.Text & "========================通过3========================" & vbCrLf & vbCrLf
    Winsock1.SendData "RCP TO:<[email protected]>" & vbCrLf
'    Winsock1.SendData "RCP TO:[email protected]" & vbCrLf
'    Winsock1.SendData "RCP TO: [email protected]" & vbCrLf  Else
  
      Text1.Text = Text1.Text & "========================拒绝0========================" & vbCrLf & vbCrLf
      Winsock1.Close
  
  End If
End Sub
问题：在发送以下代码时服务器总时拒绝,试了N种方法，不能解决。求高手随便帮忙。
     Winsock1.SendData "RCP TO:<[email protected]>" & vbCrLf
'    Winsock1.SendData "RCP TO:[email protected]" & vbCrLf
'    Winsock1.SendData "RCP TO: [email protected]" & vbCrLf