Visual Basic - Correo Electronico

Necesito saber como enviar un correo electronico desde mi aplicacion de forma automatica, saludos y gracias.

aca tienes un ejemplo

EnvioCorreo

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

Prueba con ASPEmail, el sitio para bajarlo se llama igual