不用CDONTS发送e-mail

代码A

Private m_recd As Boolean
Private m_bytes As Long

Friend Property Get Received() As Boolean
Received = m_recd
End Property

Friend Property Let Received(var As Boolean)
m_recd = var
End Property

Friend Property Get TotalBytes() As Long
TotalBytes = m_bytes
End Property


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
m_bytes = bytesTotal
m_recd = True
End Sub