Envio mail Access con outlook 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
