А я сделал вот как (может кому понадобится - пользуйтесь)
Через WinSock

Private Sub Form_Load()
With wsk
.Protocol = sckTCPProtocol
.RemoteHost = "АДРЕС_SMTP-СЕРВЕРА"
End With
End Sub

Private Sub cmdSend_Click()
wsk.Close
wsk.Connect
End Sub

Private Sub wsk_Connect()
Dim Data As String

Data = "HELO " & wsk.LocalHostName & vbCrLf
wsk.SendData Data

Data = "MAIL FROM: <ЧТО-НИБУДЬ>" & vbCrLf
wsk.SendData Data

Data = "RCPT TO: <АДРЕС>" & vbCrLf
wsk.SendData Data

wsk.SendData "DATA" & vbCrLf
Data = "From: " & wsk.LocalIP & vbCrLf & "To: Кому" & vbCrLf & "Subject: Тема" & wsk.LocalIP & vbCrLf & vbCrLf & rtb.Text & vbCrLf
wsk.SendData Data

Data = "." & vbCrLf
wsk.SendData Data

Data = "QUIT" & vbCrLf
wsk.SendData Data

MsgBox "Отправлено!", vbInformation, Caption
Unload Me
End Sub

Private Sub wsk_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Сообщение не было отправлено! Ошибка: " & vbCrLf & Description, vbExclamation, Caption
End Sub

Что нужно:
WinSock (обозвать wsk)
Command (обозвать cmdSend)
RichTextBox (обозвать rtb)
Вроде всё...