Boa tarde, amigo.
Acredito que seu problema possa ser resolvido com esse código:
Dim sArqs(N) As String, i As Integer
sArqs(0) = "caminho\arquivo1"
sArqs(1) = "caminho\arquivo2"
...
sArqs(N) = "caminho\arquivoN"
'--- Anexa N arquivos ao e-mail ---
For i = 0 To UBound(sArqs)
MAPIMessages1.AttachmentIndex = i
MAPIMessages1.AttachmentPathName = sArqs(i)
MAPIMessages1.AttachmentPosition = i
Next i
...
Bom, é isso. Teste e nos diga o resultado.
JSFF
