Para enviar correos utiliza la libreria cdonts.dll. Creo que viene por defecto en windows sino es así dimelo y te la envio.
Tienes que hacer lo siguiente:
1º/ Añade la referencia Microsoft CDO for NTS 1.2 Library (sino te aparece es que no tienes la libreria cdonts.dll en la carpeta system32 de windows y tendrías que copiarla y registrarla con regsvr32 cdonts.dll).
2º/ Añade las siguiente líneas de código:
Private Sub cmdEnviar_Click ()
Dim oMail As New CDONTS.NewMail
Dim Sender As String
Dim Recipient As String
Dim titulo As String
Dim Texto As String
oMail.BodyFormat = 0 'Indicas el formato del cuerpo
oMail.MailFormat = 0 'Indicas el formato del email
oMail.AttachFile Ficheros 'Aquí agregas los ficheros que desees al email
Sender = "GARCI_20@hotmail.com" ' Email de quien envia
Recipient = "GARCI_20@hotmail.com" ' Email de destino
titulo = "Prueba" 'Título del email
Texto = "<html><body>Hola</body></html>"
'Envio el correo
oMail.Send Sender, Recipient, titulo, Texto
'Destruyo el objeto y libero memoria
Set oMail = Nothing
End Sub
