Здравствуйте!
Отправка файла электронной почтой осуществляется макросом:

Sub SendWR ()

Dim fileToSend As Variant

ChDir ThisWorkbook.Path & "\ Недельные отчёты\"
fileToSend = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx", Title:="Выбор файла недельного отчета для отправки"
If fileToSend = False Then
check = True
MsgBox "Файл для отправки не выбран!", 48, "ВНИМАНИЕ!"
Exit Sub
End If
' Отправка отчёта электронной почтой
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Dim objAttach As Outlook.Attachments
Dim MailingAddresses As String
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
Set objAttach = objMail.Attachments

Call AdrOnSheet ' Сборка адресов с листа "Доп"

With objMail
.To = MailingAddresses
.Body = "Недельный отчёт"
.Subject = "Недельный отчёт "
.Display
End With
objAttach.Add (fileToSend)
Set objMail = Nothing
Set objOL = Nothing
Set objAttach = Nothing
ThisWorkbook.Sheets("Доп" .Range("E12"  = Date ' Здесь нужна проверка отправки сообщения

End Sub

Открывшееся окно отправки со вложенным файлом можно отправить, а можно просто закрыть.
Возможно ли проверить факт отправки этого сообщения?