Sub main_code(replace_text, attach_path)
    Set dic_mail = CreateObject("VBScript.RegExp")
    dic_mail.Pattern = "(From:)(.*?)(\<)(.*?)(\>)"
    
    Dim NewMail As mailItem, oInspector As Inspector
    Set oInspector = Application.ActiveInspector
    If oInspector Is Nothing Then
        MsgBox "Нет открытого письма!"
    Else
        Set NewMail = oInspector.CurrentItem
        If NewMail.Sent Then
            MsgBox "Это сообщение нельзя откорректировать!"
        Else
            old_subj = NewMail.Subject
            'проверяем, есть ли в письме строка вида From:...[mailto:...]
            Set objMatches = dic_mail.Execute(NewMail.Body)
            If objMatches.Count = 0 Then
                MsgBox "В текущем письме не удается найти фразу" & vbCrLf & "From:...[mailto:...] !"
            Else
                
                cur_mail = Trim(objMatches.Item(0).submatches(3))
                'прописываем e-mail получателя
                NewMail.To = cur_mail
                'прописываем тему письма
                NewMail.Subject = "Ответ на Ваше письмо или запрос данных"
                'удаляем подпись
                Call del_sign(NewMail)
                'в начало письма вставляем таблицу
                NewMail.HTMLBody = uf_html.tb_html & vbCrLf & NewMail.HTMLBody
                'заменяем ###### в таблице на нужный текст
                NewMail.HTMLBody = Replace(NewMail.HTMLBody, "######", replace_text)
                'если переменная attach_path содержит какой-либо путь - то добавляем вложения
                If IsEmpty(attach_path) = False And attach_path <> "" Then NewMail.Attachments.Add attach_path
            End If
        End If
    End If
End Sub
Private Sub CommandButton85_Click()
    replace_text = "Прежние условия работы вернутся сразу, как только можно будет считать, что условно на 100 рублей сейчас и на 100 рублей через месяц можно будет купить одинаковое число товара." & _
    " Кто сейчас может работать по отсрочке – те компании, которые заложили эти риски в стоимость товара, например повысили цены на 50-70-100% и спустили сейчас на 10-15-20%, то есть риски повышения УЖЕ заложены в стоимости товара и Вы переплачиваете в любом случае. Занимаются “дергатней”. В отличие от этих компаний, мы максимально стабильны и предсказуемы, у нас было только 1 повышение цен на 24%, что является исключительно мягким сценарием, а до этого цены у нас менялись аж 2 года назад в апреле 2020 года на 10%. Как только стабилизация в экономике наступит, безусловно все прежние условия вернутся (мы их даже из карточек клиентов пока не меняем, в счетах прописывается отсрочка)"
    'attach_path = "C:\Users\Ryzen5\Desktop\price-list.xls"
    Call main_code(replace_text, attach_path)
    Unload Me
End Sub

Private Sub CommandButton86_Click()

    replace_text = "Запрос на формирование акта сверки получил " & _
        "и перенаправил его в бухгалтерию, спасибо, ждите ответ (это может " & _
            "занять определенное время, но ответим обязательно)."
    'attach_path = "C:\Dropbox\work\.arkhipov26@yandex.ru\21\m_Сохранить_прайс.bas"
    Call main_code(replace_text, attach_path)
    Unload Me
    Call duplicate
        
     
    'ЗДЕСЬ НУЖНО ДОПИСАТЬ ВЫЗОВ КНОПКИ CommandButton85_Click()
    
End Sub