Ребята, подскажите пж. Есть в табличке Access адреса, на которые необходимо отправить файлики. Напротив каждого адреса в соседней колонке храниться название файла, который необходимо отправить на этот адрес. Один файл может отправляться на несколько адресов в одном письме. Подскажите, как грамотно написать условие на аттач и выбор адресанта, чтобы поочередно создавались письма и отправлялись друг за дружкой. Пока есть только это:

Private Sub Кнопка24_Click()


Dim OutlookApp As Object
Dim SM As Object
Dim objItem As Object
Dim objMail As MailItem
Dim OutSlctn As Outlook.Selection

Set OutlookApp = CreateObject("Outlook.Application")
Set OutSlctn = OutlookApp.ActiveExplorer.Selection

Set SM = OutlookApp.CreateItem(olMailItem)

SM.To = "test@mail.ru"
SM.Subject = "тема письма"
SM.Body = "text"



On Error Resume Next
SM.Display
SM.Send

Set SM = Nothing
End If

Set OutlookApp = Nothing



End Sub

путь к каталогу с этими файликами храниться в переменной p_adr_out