Envio mail Access con outlook

[m10locura]

Gente,

Tengo un modulo que envia mails desde access, tengo un problema el envio lo hace al primer registro del campo "Email" , solo al primero... como puedo hacer para que envie a todos los contactos del campo Email?...

Ej: Yo tengo en la base un campo llamado Email, dentro de este varios registros con su respectivo mail, este modulo lo que debe hacer es, enviar a todos los registros que estan dentro de el campo email, el respectivo mail..

pero no logro hacer que recorra todos los registros, solo toma el primero..

CODIGO:

Sub EnvioCorreo()
Dim OutLookApp As Outlook.Application
Dim Msg As Outlook.MailItem
Dim Dire(3) As String
Dim X As Long
Dim Email As String
Dim Tabla As Recordset
Dim Db As Database
Dim Campo As String

Set Db = CurrentDb
Set Tabla = Db.OpenRecordset("Contacto")

Email = Tabla.Fields("Email").Value
Nombre = Tabla.Fields("Nombre").Value

Dire(1) = Email
Dire(2) = Email
'Dire(3) = Email

Set OutLookApp = New Outlook.Application
For X = 1 To 3
Set Msg = OutLookApp.CreateItem(olMailItem)
Msg.Subject = "Prueba.."
Msg.Body = "Hola... Este mensaje es para: , " & Nombre & ", "
Msg.To = Dire(X)
Msg.Send

Next X
'OutLookApp = Nothing
End Sub