Visual Basic - Correo automatico

Hola queria saber de que forma puedo programar en el boton aceptar de un programa el envio del contenido de dos text box por correo electronico, de forma automatica y sin abrir outlook.

EnvioCorreo Electronico Automatico

Private Sub Command1_Click()
Dim ol As Outlook.Application
Dim msg As Outlook.MailItem
Set ol = New Outlook.Application
Set msg = ol.CreateItem(olMailItem)
msg.Recipients.Add ("mailto:[email protected]")
msg.Subject = "Saludos"
msg.Attachments.Add "C:\yo.jpg"
msg.Send
If ol.Explorers.Count < 1 Then
ol.Quit
End If
End Sub

NO OLVIDES EN PROYECTO/REFERENCIAS
PONER
MICROSOFT OUTLOOK 9.0 Objet librari

Muchas gracias, lo voy a probar y despues te aviso si anduvo

a ver si hago memoria, creo que lo que yo pregunte habia sido: como puedo programar en el boton enviar de un programa el contenido de dos text box SIN USAR OUTLOOK, por favor el que sepa responda. Gracias

Puedes utilizar MAPI. En http://my.execpc.com/~dg/tutorial/howmapi/howmapi.htm tienes un pequeño tutorial.

También puedes utilizar SMTP, fijate en http://www.freevbcode.com/ShowCode.Asp?ID=109
que tienes un ejemplo.