Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0) 
    On Error Resume Next
    With OutMail
        .To = "кому"
        .From = "департамент"
        .SetOnBehalfOfName = "mail2@mail.ru" 
        .Subject = "информационное письмо"  
        .Body = "какой-то текст"
        .Send
    End With

   
   Sub SendMail()
    Dim OutApp As Object
    Dim OutMail As Object
    Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
        .To = "Mail1@mail.ru"
        .From = "Mail22mail.ru"
        .SetOnBehalfOfName = "mail1@mail.ru"
        .Subject = "что то"
        .Body = "что нибудь"
        .Send
    End With
End Sub

Dim objOL As Object
Dim objMail As Object

Set objOL = CreateObject("Outlook.Application")
        objOL.Session.Logon
        
        For Each oAccount In objOL.Session.Accounts
            If oAccount = "ruslo@gmail.com" Then
                Set objMail = objOL.CreateItem(0)
                On Error Resume Next
        With objMail
            .From = "ruslo@gmail.com"
            .To = "Cargo@cargo.mu"
            .Body = "Пришлите, пожалуйста. Спасибо!"
            .Subject = "Запрос"
                For i = 1 To kf
                  .Attachments.Add nam(i)
                Next i
            Set .SendUsingAccount = oAccount
            .Send
        End With
     End If
  Next

Set maillist = objnamespace.Folders("xxxx@mail.ru").Folders("Имя папки, в которой будем искать письма").Items
Rectime = "сюда вытягиваю из ячейки Excel время письма"

e = Format(Rectime, "ddddd hh:mm")
e = Format(DateAdd("n", -1, e), "ddddd hh:mm")
e1 = Format(DateAdd("n", 2, e), "ddddd hh:mm")
strfilter = "[ReceivedTime]>'" & e & "' and [ReceivedTime]<'" & e1 & "'"
Set filtered_items = maillist.Restrict(strfilter)
fitems = filtered_items.Count
If fitems >0 Then
    For i = 1 To Fitems
        If filtered_items(i).ConversationID = "ссылка на ячейку Excel" And Rectime = Cstr(filtered_items(i).ReceivedTime) Then
            Set olreply = filtered_items(i).Forward
            With olreply
                .SentOnBehalfOfName = "yyy@mail.ru"
                .To = "yyy@mail.ru"
                .Subject = "Тема письма"
                .Send '.Display
            End With
        End If
    Next
Else
    MsgBox "Письмо не найдено в папке Обработанные"
    Cancel = True
    Exit Sub
End If