Заполнение списка получателей OUTLOOK VBA

[Drug_prizrak]

Добрый день!
Пытаюсь сделать так что бы макрос по названию вложенного файла автоматически заполнял список получателей.
Вставить просто E-mail - не проблема, но вот если в списке контактов outlook есть список рассылки, то никак не получается его прикрутить...
Заранее спасибо тому, кто поможет решить данную проблему!

[Aleksandr H.]

Какое отношение имеет названия вложенного файла к списку получателей?

[Drug_prizrak]

Сообщение от Aleksandr H.

Какое отношение имеет названия вложенного файла к списку получателей?

Например вложенный файл имеет название "Мука", тогда список рассылки (либо группа контактов) тоже должен называться "Мука" и т.д. и т.п.

Список рассылки, либо группа контактов, это когда в Outlook, под одним именем находится группа получателей.

[Aleksandr H.]

Сообщение от Drug_prizrak

Вставить просто E-mail - не проблема,

Приведите код.
Вы можете из листа получить список вложений?

[Drug_prizrak]

Сообщение от Aleksandr H.

Приведите код.
Вы можете из листа получить список вложений?

Не из листа, а из созданного нового письма в OUTLOOK
(Я его создаю так: на нужный файл нажимаю правой кнопкой мышки -> Отправить -> Адресат)
а потом отрабатывает макрос...

Option Explicit
Sub Add_info()
  Dim myinspector As Outlook.Inspector
  Dim myItem As Outlook.MailItem
 
  Set myinspector = Application.ActiveInspector
  Set myItem = myinspector.CurrentItem
  Dim FNAme, FFName As String
  Dim LSubject, LEmail As String
  FNAme = ""
  FFName = ""
  
  If myItem.Attachments.Count = 1 Then
    FNAme = LCase(myItem.Attachments.Item(1).FileName)
    FFName = myItem.Attachments.Item(1).FileName

    If FNAme <> "" Then
      
      Select Case FNAme
        Case LCase("Отчет1.xlsb")
          LEmail = "Test1@mail.ru"
        Case LCase("Отчет2.xlsb")
          LEmail = "Test2@mail.ru"
      End Select
    
      myItem.Subject = "Отчет " & Chr(34) & Mid(FFName, 1, InStrRev(FFName, ".") - 1) & Chr(34)
      myItem.Recipients.Add (LEmail)
      End If
  End If
  
  Const sDELIM As String = vbLf
  If myItem.Attachments.Count > 1 Then
    FNAme = sDELIM & "Во вложении группа файлов" & sDELIM
  ElseIf FNAme <> "" Then
    FNAme = sDELIM & "Во вложении файл: " & Chr(171) & FFName & Chr(187) & sDELIM
  Else
    FNAme = sDELIM
  End If

  Dim strbody As String
      strbody = "Добрый день!" & sDELIM & _
                FNAme & _
                sDELIM & _
                "ФИО" & sDELIM & _
                "должность" & sDELIM & _
                "ООО " & Chr(34) & "ОО " & Chr(34) & "компания" & sDELIM & _
                "Тел. Раб. +00 (000) 000-00-00"
  myItem.Body = strbody
  Set myItem = Nothing
  Set myinspector = Nothing
End Sub