Visual Basic - Enviar Correo Masivo Con Adjunto

Hola, mi deseo es crear una subrutina en la que pueda enviar correro masivo con un archivo adjunto, tengo un archivo de texto, txt, que tiene las direcciones, el txt presenta esta estructura.

[email protected]
[email protected]
[email protected]
....
....

Lo que busco es enviar a todos un correo electronico con un mismo archivo adjunto (para todos el mismo)

Salu2

Listo!
Quedó así:

Sub Atodos()
Dim oOutlook, ItemCorreo As Object, i As Integer
For i = 1 To 3
Set oOutlook = CreateObject("Outlook.Application")
Set ItemCorreo = oOutlook.CreateItem(0)
ItemCorreo.Recipients.Add Cells(i, 1)
ItemCorreo.Subject = Cells(i, 2)
ItemCorreo.body = Cells(i, 3)
ItemCorreo.Attachments.Add "c:\MiArchivo.txt"
ItemCorreo.send
Set oOutlook = Nothing
Next
End Sub

Esto es en Ecel VB, y no cuesta nada pasarlo a VB, se debe tener instalado Outlook.

me dice que el componente activeX no puede crear el objeto
y me marca
Set oOutlook = CreateObject("Outlook.Application")

si podes ayudame lo estuve buscando todo el dia
gracias de antemano

Tatayayan, me funciona correctamente, pero sólo envia el correo a los tres primeos de la lista de excell. ¿que falta para que envíe al resto?
¿es posible incluir un texto en Asunto? Ej.: "Documento solicitado"
¿es posible incluir una firma en el correo?
te agradezco la respuesta.

Saludos

solucionado el tema de los tres primeros

Saludos

ok, resuelto. i2 e i3

gracias

Estimado amigo podrías compartir el código por favor mi correo [email protected]

dcisulpa este codigo lo estas poniendo en un botonm en la form o como lo estas poniendo, gracias saludos