Verificar arquivo existente para envio do e-mail.

Boa Tarde!

Por favor, possuo a tabela com o nome de cada arquivo, exemplo abaixo (Resumo):
arquivo1 arquivo2 arquivo3
08041-470 08041-471 08041-472
08041-290 08041-400 08041-401
08070-294 ; ;
08041-028 08055-028 08058-028

Com base nas informações acima(tabela) ele verifica na pasta se o arquvio esta disponivel, quando o arquivo nao existe o codigo nao cria o e-mail, preciso saber como faz para ele anexar os arquivos existentes e enviar o email???
Desde ja agradeço ajuda.


Public Sub ENVIAR()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim DB As DAO.Database
Dim TB As DAO.Recordset

Set DB = CurrentDb
Set TB = DB.OpenRecordset("Tbl_EMAIL")
Set TBA = DB.OpenRecordset("Tbl_Aux")
On Error GoTo trata
TB.MoveFirst

Do While Not TB.EOF

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)

With OutMail
.To = TB!CD_LOGIN_GESTOR
.Cc = TB!CD_LOGIN
.Subject = "Extrato de Horas por Colaborador - " & TB!Data & " - " & TB!DEPTO

.HTMLBody = "<font calibri color = 191970>" & "Caro Gestor (a)" & "<br><br>Segue extrato por colaborador sob sua gestão, dados referente ao mês de <font color = red><b><u> " & TB!mes
.HTMLBody = .HTMLBody & "</u></b></font><br><br>É importante o acompanhamento."
.HTMLBody = .HTMLBody & "<br><br>Horas até o dia <b><i>" & TB!nova_data & "."
.HTMLBody = .HTMLBody & "</b></i><br><br>Atenciosamente.<br><br>"

parte1 = TBA!aux & TB!arquivo1
parte2 = TBA!aux & TB!arquivo2
parte3 = TBA!aux & TB!arquivo3
parte4 = TBA!aux & TB!arquivo4
parte5 = TBA!aux & TB!arquivo5
parte6 = TBA!aux & TB!arquivo6
parte7 = TBA!aux & TB!arquivo7
parte8 = TBA!aux & TB!arquivo8
parte9 = TBA!aux & TB!arquivo9
parte10 = TBA!aux & TB!arquivo10


caminho1 = "caminho da rede\" & parte1 & ".xls"
caminho2 = "caminho da rede\" & parte2 & ".xls"
caminho3 = "caminho da rede\" & parte3 & ".xls"
caminho4 = "caminho da rede\" & parte4 & ".xls"
caminho5 = "caminho da rede\" & parte5 & ".xls"
caminho6 = "caminho da rede\" & parte6 & ".xls"
caminho7 = "caminho da rede\" & parte7 & ".xls"
caminho8 = "caminho da rede\" & parte8 & ".xls"
caminho9 = "caminho da rede\" & parte9 & ".xls"
caminho10 = "caminho da rede\" & parte10 & ".xls"

.Attachments.Add Caminho1
.Attachments.Add caminho2
.Attachments.Add caminho3
.Attachments.Add caminho4
.Attachments.Add caminho5
.Attachments.Add caminho6
.Attachments.Add caminho7
.Attachments.Add caminho8
.Attachments.Add caminho9
.Attachments.Add caminho10

.Display
End With

trata:
Set OutMail = Nothing

Set OutApp = Nothing

TB.MoveNext

Loop
End Sub

Veja o primeiro codigo;

http://maximoaccess.forumeiros.com/t913-fso-filesystemobject-para-manipularmos-arquivos

Boa Tarde!

JPAULO fiz a seguinte alteração, mas só abre os e-mails nao anexa nenhuma arquivo, pf, me ajude, abaixo a parte alterada.

caminho1 = "caminho da rede\" & parte1 & ".xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(caminho1) Then
.Attachments.Add caminho1

caminho2 = "caminho da rede\" & parte2 & ".xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(caminho2) Then
.Attachments.Add caminho2

caminho3 = "caminho da rede\" & parte3 & ".xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(caminho3) Then
.Attachments.Add caminho3

caminho4 = "caminho da rede\" & parte4 & ".xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(caminho4) Then
.Attachments.Add caminho4

caminho5 = "caminho da rede\" & parte5 & ".xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(caminho5) Then
.Attachments.Add caminho5

caminho6 = "caminho da rede\" & parte6 & ".xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(caminho6) Then
.Attachments.Add caminho6

caminho7 = "caminho da rede\" & parte7 & ".xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(caminho7) Then
.Attachments.Add caminho7

caminho8 = "caminho da rede\" & parte8 & ".xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(caminho8) Then
.Attachments.Add caminho8

caminho9 = "caminho da rede\" & parte9 & ".xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(caminho9) Then
.Attachments.Add caminho9

caminho10 = "caminho da rede\" & parte10 & ".xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(caminho10) Then
.Attachments.Add caminho10

Valeu!