VBA Создания письма с атачами из MS Outlook

[mrMad-Cat]

Добрый день.

Цель:
1. Кнопка запуска макроса в MS Outlook 2010
2. Вылазит окошко с местом для ввода текста и кнопкой "Создать письмо"
3. После нажатия кнопки создается письмо с присоедененными файлами которые подбираются исходя из введеного текста XXX в пункте 2.

Вот сам макрос создания письма (работает, но если можно что-то улучшить/исправить/сократить - буду очень рад):

Sub PORT()

    Set objOutlookMsg = Application.CreateItem(olMailItem)
    With objOutlookMsg

    .To = "mail1@mail.com;" & " mail2@mail.com;" & " mail3@mail.com;" & " mail4@mail.com;" & " mail10@mail.com;"
    .CC = "mail11@mail.com"
    .Subject = "Тема"
    .Body = ""
    
    Set objOutlookAttach = .Attachments.Add("C:\Users\...\Desktop\XXX файл1.xlsx")
    Set objOutlookAttach = .Attachments.Add("C:\Users\...\Desktop\XXX файл2.xlsx")
    
    For Each objOutlookRecip In .Recipients
    objOutlookRecip.Resolve
    Next
    
    .Display
    
    End With

End Sub

Вот форма:
form.gif

Проблемы:
1. Как задать фиксированого отправителя? .From не работает
2. Как сделать макрос чтобы объеденить все это? То есть при на жатии на кнопку макроса открыть форму, нажатием на кнопку передать текст ХХХ в код создания письма и использоват это ХХХ в имени файла.

Очень презнателен за любые ваши ответы.

ЗЫ: я так понял что отдельного форума под Outlook нету - по-этому запостил тут. Сорри если не туда.

[mrMad-Cat]

Что много буков?
Ну хорошо, с первым вопросом я разобрался:

    .SentOnBehalfOfName = "mail@mail.com.ua"

Как вызвать мою фомру я тоже понял:

Sub PORT()

    DataForm.Show
    
End Sub

Пойдем дальше.
Я нажимаю на форме на кнопке 2 раза и открывается "VbaProject.OTM DataForm (Code)". Я так понимаю я сюда должен переместить свой макрос?

Private Sub CommandButton1_Click()

    Set objOutlookMsg = Application.CreateItem(olMailItem)
    With objOutlookMsg
    
    .SentOnBehalfOfName = "mail@mail.com"
    .To = "mail1@mail.com;" & "mail1@mail.com;" 
    .CC = "mail3@mail.com;"
    .Subject = "Тема"
    .Body = ""
    
    Set objOutlookAttach = .Attachments.Add("адрес\XXX файл1.xlsx")
    Set objOutlookAttach = .Attachments.Add("адрес\XXX файл2.xlsx")
    
    For Each objOutlookRecip In .Recipients
    objOutlookRecip.Resolve
    Next
    
    .Display
    
    End With

End Sub

В результате при запуске макроса вылазит окно ошибки "Run-time error... Открыто диалоговое окно. Закройте его и повторите попытку".
Куда копать?

[mrMad-Cat]

Когда задаешь вопросы - переосмысливаешь проблему и сам находишь решение.
Суть была в том что нужно закрыть форму так как она носит модальный характер.
Делается это добавлением перед остальным кодом "Unload DataForm".

Переходим к последнему моменту: передать введенный текст в форме в адрес атачей. Я так понимаю что нужно объявить переменную куда и запихнуть это. Только как это сделать пока не знаю. Продолжаю знакомится с VBA...

Но если кто-то всетаки решит помочь то я буду очень не против

[mrMad-Cat]

Все оказалось проще чем я думал

Set objOutlookAttach = .Attachments.Add("адрес\" & TextBox.Value & " файл1.xlsx")

Всем спасибо!