Private Sub Send_Letters_Click()
Dim ola As Outlook.Application
Dim itm As Outlook.MailItem
Dim DisplayText As String
Dim Address As String
Dim fname As String
...
Set ola = Outlook.Application

'------Нижеследующие строки - тело цикла по списку адресатов
Set itm = ola.CreateItem(olMailItem)
DisplayText =...' - добавляю ФИО в кавычках в адрес для полноты картины
Address = DisplayText &  " <"  & HyperlinkPart(...здесь ячейка с е-адресом..., acDisplayText) &  ">" 
itm.Recipients.Add Address '-в письмо добавляется адрес
itm.Subject = ...
itm.Body = ...
fname = HyperlinkPart(...)'-извлекаю адресную часть гиперссылки на файл вложения
itm.Attachments.Add fname ' - добавляю вложение
itm.Send
 

Private Sub AttachmentPath_DblClick(Cancel As Integer)
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Show
If (fd.Show = - 1 ) Then
Me.AttachmentPath = fd.SelectedItems( 1 ) &  "#"  & fd.SelectedItems( 1 ) &  "#" 
Else
Cancel = True
End If
End Sub