Private Function SendEmailUsingOutlook(ByVal Email$, ByVal MailText$, Optional ByVal Subject$ = "", _
                    Optional ByVal AttachFilename As Variant) As Boolean
     ' функция производит отправку письма с заданной темой и текстом на адрес Email
    ' с почтового ящика, настроенного в Outlook для отправки писем "по-умолчанию"
    ' Если задан параметр AttachFilename, к отправляемому письму прикрепляется файл (файлы)

     On Error Resume Next: Err.Clear
     Dim OA As Object: Set OA = CreateObject("Outlook.Application")
     If OA Is Nothing Then MsgBox "Не удалось запустить OUTLOOK для отправки почты", vbCritical: Exit Function

     With OA.CreateItem(0)   'создаем новое сообщение
        .To = Email$: .Subject = Subject$: .Body = MailText$
         If VarType(AttachFilename) = vbString Then .Attachments.Add AttachFilename
         If VarType(AttachFilename) = vbObject Then    ' AttachFilename as Collection
            For Each file In AttachFilename: .Attachments.Add file: Next
         End If
         For i = 1 To 100000: DoEvents: Next    ' без паузы не отправляются письма без вложений
        Err.Clear: .Send
         SendEmailUsingOutlook = Err = 0
     End With
     Set OutApp = Nothing
End Function

    ' Отправка электрической почтой
    
    SendMail = Лист3.Cells(61, 17).Value  'Здесь у меня адрес почты с листа берется
    'отправляем письмо с 1 вложением
    attach$ = iUser & MyDoc & "ЗАЯВКА\" & FName & ".xlsx"            'ThisWorkbook.FullName    ' прикрепляем текущий файл Excel
    res = SendEmailUsingOutlook(SendMail, "Hello Word!" & Chr(13) & Chr(13) & "This message created by Microsoft Excel" & Chr(13) & Chr(13)& Chr(13) & Chr(13) & "____________________" & Chr(13) & "Designed by OOO ""Рога и копыта""                  (с) MTO-vlg  2013-2015", "#ЗАКАЗ#", attach$)
     If res Then Debug.Print "Письмо 2 отправлено успешно" Else Debug.Print "Ошибка отправки"

Sub Macros()
    Dim fileAttach As Outlook.Attachment
    
    Dim newMail As Outlook.MailItem
    Set newMail = Application.CreateItem(olMailItem)

    UserForm1.Show ' здесь сначала вызываем форму с полями и кнопкой для ввода обязательных данных
    
    ' а здесь как-то нужно через кнопку выгрузить эти данные полей с формы

    With newMail
        .Subject = "123123" + Format(Date, "dd.mm.yyyy (dddd)")
        .To = "mail@ru"
        .BodyFormat = olFormatHTML
        .htmlBody = htmlBody
        .Display
    End With
    Set newMail = Nothing
End Sub