For i = 1 To 10 'Es un loop para enviar muchos correos
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Fetch
.Compose
.RecipAddress = Rst("mail" + tabla(i)) 'tabla es mi recordset aqui se puede poner la direccion en texto
.RecipType = 1 'Dirigido directamente a la direccion especificada
.MsgSubject = "Reporte Generado Para XX" 'Tema del Mensaje
.MsgNoteText = "Reporte Generado Para " 'Texto del Mensaje
.AttachmentIndex = 0
.AttachmentName = "RepVentasInv.xls" ' Nombre del Archivo Adjunto
.AttachmentPathName = App.Path & "\" & "RepVentasInv.xls" 'Ruta y nombre del Archivo Adjunto
.AttachmentIndex = 1
.AttachmentName = "Ventas.xls" ' Otro Nombre de Archivo
.AttachmentPathName = App.Path & "\Ventas.xls" ' y la dire del otro archivo
.Send False 'Enviar el Mensaje
End With
Next