Visual Basic - Archivos Adjunto con Outlook

Hola que tal a todos , necesito que me ayuden con una duda, en una aplicacione de Access, tengo una forma donde manejo el TO. CC, CCO, Subject, y el Cuerpo del mensaje del mail, tambien controlo los archivos adjuntos del mail pero solo para uno solo, como le hago para poder seleccionar varios archivos y adjuntarlos a la vez. y mandar un mail desde access con varios archivos .

Saludos a todos y espero su respuesta...

Rosy, a ver si este codigo te sirve:

En declaraciones:
Type Attach
Acount As Integer
Aname As String
Aposition As Integer
Apath As String
End Type

Global Attachments(1 To 10) As Attach
Global Counter

Ahora pon este codigo en tu formulario usando un File List box:
Private Sub File1_Click()
Counter = Counter + 1
Attachments(Counter).Acount = Counter
Attachments(Counter).Aname = File1.FileName
Attachments(Counter).Apath = Dir1.Path + "\" + File1.FileName
Attachments(Counter).Aposition = Counter
End Sub

Rem Attachment
If Counter < 1 Then
Else
For A = 1 To Counter
MAPIMessages1.MsgIndex = -1
MAPIMessages1.AttachmentIndex = Attachments(A).Acount - 1
MAPIMessages1.AttachmentName = Attachments(A).Aname
MAPIMessages1.AttachmentPathName = Attachments(A).Apath
MAPIMessages1.AttachmentType = 0
Next A
End If

Saludos desde Lima