Visual Basic - programa para enviar correo electronico

espero me puedan ayudar amigo, mi problema es conseguir un fuente para enviar un correo electronico, he baja mucho pero ninguno trabaja bien, he baja ocx y dll como mailman y otros pero al configurar las referencia me da problemas, nesecito me ayuden por favor..
aqui esta mi correo [email protected]

ya abeis probado ha traves del outlook?

EnvioCorreo Electronico Automatico

Private Sub EnvioCorreo()
Dim ol As Outlook.Application
Dim msg As Outlook.MailItem
Set ol = New Outlook.Application
Set msg = ol.CreateItem(olMailItem)
msg.Recipients.Add ("[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

no comprobe el codigo que pusiste nesti
pero vale igual para el Outlook 11.0? es que lo de "librari" no me lo encuentro

HOLA EL CODIGO QUE TE PUSIERON ESTA BIEN SOLO TIENES QUE TENER BIEN CONFIGURADO EL OUTLOOK PARA PERMITIR QUE TE ENVIE LOS CORREOS

tyjghjgjj