' Add files as attachement
Set objAttachments = objMessage.Attachments
For i = LBound(tabFiles) To UBound(tabFiles)
If Not (IsNull(tabFiles(i)) Or tabFiles(i) = "") Then
' Test file exist
If fso.fileexists(tabFiles(i)) Then
' Add attachement
objAttachments.Add Right(tabFiles(i), Len(tabFiles(i)) - InStrRev(tabFiles(i), "\")), 0, , tabFiles(i)
End If
End If
Next