Visual Basic - Enviar mail con visual.

Hola, he visto por ahi que se puede enviar mails desde visual. Pues ahora necesitaria hacerlo pero no se muy bien como empezar, no llevo mucho programando y necesito ayuda, lo que quiero es lo siguiente: tengo un programa que me genera distintos achivos txt y los mete en un direcctorio se llaman: Al063610.txt, Al080184.txt, etc. el numero de archivos puede variar de 0 a 500. Los dos primeros caracteres son siempre los mismos y el resto es un numero de cliente. En una base de datos tengo asociado un numero de cliente con su direccion de email.
Necesito que mediante un programita envie por email los archivos de los que he hablado antes cada uno a su respectiva direccion de correo.
Necesito un poco de ayuda o algo de codigo para empezar.

Muchas gracias

Aquí tienes un tutorial de como enviar mail por medio de los controles MAPISession y MAPIMessages:
http://my.execpc.com/~dg/tutorial/howmapi/howmapi.htm
y si deseas utilizar el outlook puedes empezar con esto:
Private Sub EnviarUnFichero(ByVal RutaFich As String, Optional SiEnlace As Boolean, Optional Docu As String)
''Codigo para envia un correo electronico con datos adjuntos.
Dim Miaplicacion As Outlook.Application, MiMensaje As Outlook.MailItem
Dim Receptor As Recipient, ArchivosAEnviar As String
Dim VNombreFichero As String, Ruta As String, RutaFisFichero As String
Dim i As Long, Seleccionados As Integer
Dim Fichero As String
SiErrorOutlook = False
On Error GoTo ControlarError
Seleccionados = 0
Obtener_Path_y_Fichero RutaFisFichero, VNombreFichero, Ruta
If RutaFich <> "" Then
Set Miaplicacion = CreateObject("outlook.application")
Set MiMensaje = Miaplicacion.CreateItem(olMailItem)
If SiEnlace = True Then
MiMensaje.Subject = " Ubicacion del Documento: '" & Docu & "'."
MiMensaje.Body = "El documento se encuentra en: '" & RutaFich & "'."
MiMensaje.Display
Else
MiMensaje.Attachments.Add (RutaFich)
Obtener_Path_y_Fichero RutaFich, VNombreFichero, "" '(VE) 6/5/2003
MiMensaje.Subject = " Entrega del Documento : " & VNombreFichero '(VE) 6/5/2003
MiMensaje.Display
End If

Set MiMensaje = Nothing
Set Miaplicacion = Nothing
End If
Espero y te sirva!!!