Enviar Correos sin Servidor de Correos

[The_Pretorian]

Buenas tardes amigos del Foro:
Seguramente otra vez les este consultando lo mismo, en lo personal busque y revise cada ejemplo que me brindaron, pero sinceramente no tuve suerte en hacerlos funcionar.
No contamos con servidor de correos en la empresa, contamos con un Hosting que nos brinda cuentas de correos con sus respectivos valores para SMTP y POP3.
Dichas cuentas estan configuradas en el OutLook Express de algunas maquinas. Pero me piden un aplicativo que permita el envio de correos con un archivo adjunto, todos los dias... los nombres y correos estaran en una tablita la cual se podra indicar a quienes se les envia o no, y sus respectivos archivos listos para ser atachados a cada correo.
Seguramente alguno de UD ya tuvo experiencia con este tipo de aplicativos, espero puedan compartir su experiencia.
Muchas gracias de antemano...
Atte
Jorge Diaz

[The_Pretorian]

Buenos Dias amigos del Foro
Espero me pueda ayudar a entender el por que no me funciona el siguiente codigo....

Dim strFile As String
MAPISession1.SignOn
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Compose
.RecipIndex = 0
.RecipAddress = "[email protected]"
.RecipDisplayName = "[email protected]"
strFile = Dir$("c:\Archivo01.txt", vbNormal)
.MsgNoteText = .MsgNoteText & " Hola "
.AttachmentIndex = .AttachmentCount
.AttachmentPathName = strFile
.AttachmentName = strFile
.AttachmentType = mapData
.AttachmentPosition = 0
.Send True
End With
MAPISession1.SignOff

Muchas Gracias de antemano
Jorge Diaz