por fin he encontrado la forma de enviar el correo, el codigo lo saque de un ejemplo de esta pag
http://www.controltotal.org/VB/tipos/Pinternet.htmPrivate Sub btnSend_Click()
Winsock1.RemoteHost = txHost
Winsock1.RemotePort = 25
Winsock1.Connect
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
' this is the main processing code for
' sending an email message
' the iState variable maintains the current
' state of the protocol exchange so that we
' know what to send next
Dim strData As String
Static iState As Integer
Dim iMsgNum As Integer
Dim szMsg As String
Dim I As Integer
Winsock1.GetData strData, vbString
iMsgNum = Val(Left(strData, InStr(strData, " ")))
Select Case iMsgNum
Case 220 ' initial message
Winsock1.SendData "HELO " & txHost & vbCrLf
txStatus = "Mail Server is ready..."
iState = 1
Case 221
If iState = 999 Then
txStatus = "Disconnected from mail server after error..."
Else
txStatus = "Disconnected from mail server..."
End If
iState = 0
Case 250
Select Case iState
Case 1:
Winsock1.SendData "MAIL FROM:<" & txFrom & ">" & vbCrLf
Debug.Print "MAIL FROM:<" & txFrom & ">" & vbCrLf
txStatus = "Sending FROM command..."
iState = 2
Case 2:
Winsock1.SendData "RCPT TO:<" & txTo & ">" & vbCrLf
Debug.Print "RCPT TO:<" & txTo & ">" & vbCrLf
txStatus = "Sending RCPT command..."
iState = 3
Case 3:
Winsock1.SendData "DATA" & vbCrLf
Debug.Print "DATA" & vbCrLf
txStatus = "Sending DATA command..."
iState = 4
Case 5:
Winsock1.SendData "QUIT" & vbCrLf
Debug.Print "QUIT" & vbCrLf
txStatus = "Sending Quit command to disconnecting from mail server..."
iState = 6
Winsock1.Close
End Select
Case 354
iState = 5
szMsg = txMessage
txStatus = "Sending mail message data..."
Winsock1.SendData "Subject: " & txSubject & vbCrLf
While szMsg <> ""
Winsock1.SendData Left(szMsg, InStr(szMsg, Chr(10)))
Debug.Print "Sending:" & Left(szMsg, InStr(szMsg, Chr(10)))
szMsg = Mid(szMsg, InStr(szMsg, Chr(10)) + 1)
Wend
Winsock1.SendData "." & vbCrLf
Case 500 To 599
Winsock1.SendData "QUIT" & vbCrLf
txStatus = "Error sending mail..."
Debug.Print "Error sending mail... quitting..."
iState = 999
End Select
End Sub