Visual Basic - Enviar E-mail sin abrir outloock

Hola nesecito enviar varios email sin que el usuario se de cuenta
Ayudenme Gracias

Chaoooooo..........

WOW

está algo rudo eso, por ahí en internet hay códigos que dicen "supuestame" hacerlo, colocando el proveedor de correo, login y password, lo he usado pero jamas funcionan.

yo que tu subiría a un servidor FTP, es super sencillo y cualquiera puede acceder allí

si consigues hacer lo de los correos por favor dame pistas, es interesante el proceso

un besote

Quiero ganarme el beso...
la logica es asi:
primero se conecta un winsock al puerto 25 de un servidor de correo electronico (smtp.terramail.com)
y luego se envia la direccion a la que se desea remitir (debe ser una cuenta de ese servidor)
por ultimo se cierra el puerto y BUM.

Sub MandarMail(ByVal MailServerName As String, _
ByVal FromEmailAddress As String, _
ByVal ToEmailAddress As String, _
ByVal EmailBodyOfMessage As String)
'Se conecta al puerto 25 del servidor de correo y manda un mail
*** continua ...

continuacion..

Winsock1.LocalPort = 0
If Winsock1.State = sckClosed Then
Winsock1.Protocol = sckTCPProtocol
Winsock1.RemoteHost = MailServerName
Winsock1.RemotePort = 25
Winsock1.Connect
WaitFor ("220")
Winsock1.SendData ("HELO yo" + vbCrLf)
WaitFor ("250")
Winsock1.SendData ("mail from:" + Chr(32) + FromEmailAddress + vbCrLf)
WaitFor ("250")
Winsock1.SendData ("rcpt to:" + Chr(32) + ToEmailAddress + vbCrLf)
WaitFor ("250")
Winsock1.SendData ("data" + vbCrLf)
WaitFor ("354")
Winsock1.SendData (EmailBodyOfMessage + vbCrLf + vbCrLf)
Winsock1.SendData ("." + vbCrLf)
WaitFor ("250")
Winsock1.SendData ("quit" + vbCrLf)
WaitFor ("221")
Winsock1.Close
End If