Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Проверка факта отправки файла (сообщения) электронной почтой
 
Здравствуйте!
Отправка файла электронной почтой осуществляется макросом:

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

Открывшееся окно отправки со вложенным файлом можно отправить, а можно просто закрыть.
Возможно ли проверить факт отправки этого сообщения?
 
Пока не нажмете Отправить - нет. Это уже надо в Outlook отслеживать.
А можно сразу вместо .Display указать .Send - тогда точно узнаете отправлено или нет. Если ошибка - значит не отправлено.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
можно поискать в отправленных..
Живи и дай жить..
 
Это если стоит галка: Сохранять копии отправленных сообщений в папку "Отправленные"
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
А есть возможность её поставить программно перед отправкой?
 
Конечно, Юр. Можно все :-)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Цитата
The_Prist пишет:
Пока не нажмете Отправить - нет. Это уже надо в Outlook отслеживать.
А можно сразу вместо .Display указать .Send - тогда точно узнаете отправлено или нет. Если ошибка - значит не отправлено.
Спасибо!
Страницы: 1
Читают тему (гостей: 1)
Наверх