谁能教我怎么用VB发送E-MAIL?
我现在用winsock发送的代码如下:
Private Sub cmdSend_Click()
With wskSmtp
If .State <> sckClosed Then .Close
.Protocol = sckTCPProtocol
.RemoteHost = "smtp.163.com"
.RemotePort = 25
.Connect
End With
End Sub
Private Sub wskSmtp_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
strData = "helo a" & vbCrLf & _
"mail from:<>" & vbCrLf & _
"rcpt to:<" & txtTo.Text & ">" & vbCrLf & _
"data" & vbCrLf & _
"From:" & Chr(34) & txtName.Text & Chr(34) & "<" & txtFrom.Text & ">" & vbCrLf & _
"To:" & txtTo.Text & vbCrLf & _
"Subject:" & txtSubject.Text & vbCrLf & _
txtBody.Text & vbCrLf & vbCrLf & "." & vbCrLf & _
"quit" & vbCrLf
wskSmtp.SendData strData
wskSmtp.GetData strData, bytesTotal
Debug.Print strData
End Sub
不知道为什么发送不了!?
请高手帮帮我!