Option Explicit

Sub Send_Mail()
    Dim objOutlookApp As Object, objMail As Object
    Dim sTo As String, sSubject As String, sBody As String, sAttachment As String

    Application.ScreenUpdating = False
    On Error Resume Next
    'пробуем подключиться к Outlook, если он уже открыт
    Set objOutlookApp = GetObject(, "Outlook.Application")
    Err.Clear 'Outlook закрыт, очищаем ошибку
    If objOutlookApp Is Nothing Then
        Set objOutlookApp = CreateObject("Outlook.Application")
    End If
    objOutlookApp.Session.Logon
    Set objMail = objOutlookApp.CreateItem(0)   'создаем новое сообщение
    'если не получилось создать приложение или экземпляр сообщения - выходим
    If Err.Number <> 0 Then Set objOutlookApp = Nothing: Set objMail = Nothing: Exit Sub
    
    sTo = "AddressTo@mail.ru"    'Кому(можно заменить значением из ячейки - sTo = Range("A1").Value)
    sSubject = "Автоотправка"    'Тема письма(можно заменить значением из ячейки - sSubject = Range("A2").Value)
    sBody = "Привет от Excel-VBA"    'Текст письма(можно заменить значением из ячейки - sBody = Range("A3").Value)
    sAttachment = "C:\Temp\Книга1.xls"    'Вложение(полный путь к файлу. Можно заменить значением из ячейки - sAttachment = Range("A4").Value)
    
    'создаем сообщение
    With objMail
        .To = sTo 'адрес получателя
        .CC = "" 'адрес для копии
        .BCC = "" 'адрес для скрытой копии
        .Subject = sSubject 'тема сообщения
        .Body = sBody 'текст сообщения
        '.HTMLBody = sBody 'если необходим форматированные текст сообщения(различные шрифты, цвет шрифта и т.п.)
        .Attachments.Add sAttachment 'чтобы отправить активную книгу вместо sAttachment указать ActiveWorkbook.FullName
        .Send 'Display, если необходимо просмотреть сообщение, а не отправлять без просмотра
    End With

    Set objOutlookApp = Nothing: Set objMail = Nothing
    Application.ScreenUpdating = True
End Sub

=ЕСЛИОШИБКА(ЕСЛИ(ВПР(СЦЕПИТЬ(D$6;$V$3);Лист1!$E$2:$E$15;1;0)=СЦЕПИТЬ(D$6;'текущий месяц'!$V$3);"дрв");ЕСЛИ(D9=12;"д";(ЕСЛИ(D9=14;"дс";ЕСЛИ(D9="от";"нв";ЕСЛИ(D9="бс";"до";ЕСЛИ(D9="б";"б";ЕСЛИ(D9="";"мо";(ЕСЛИ(D9=0;"от"))))))))))

=ВРЕМЯ(ЧАС(E7)+2;МИНУТЫ(E7);СЕКУНДЫ(E7))

Sub Макрос1()
Dim ss As Range, uss As Range
For Each ss In Selection
If Not ss.Locked Then
If uss Is Nothing Then
Set uss = ss
Else
Set uss = Union(uss, ss)
End If
End If
Next
uss.Select
End Sub

Function CommandButton1_Click()
        MsgBox "Привет из формы Outlook"
End Function