Как настроить уведомление по электронной почте о том, что получатель открыл ваше вложение в формате Excel?
При отправке важной информации во вложении Excel бывает крайне полезно знать, открыл ли получатель файл. С помощью VBA можно настроить автоматическую отправку вам уведомления по электронной почте сразу после открытия книги получателем. В этом руководстве показано, как реализовать такую функцию в Excel, чтобы вы получали подтверждение каждый раз, когда к вложенному файлу осуществляется доступ.
Отправка уведомления по электронной почте при открытии вложения Excel с помощью кода VBA
Отправка уведомления по электронной почте при открытии вложения Excel с помощью кода VBA
Примечание: Этот метод доступен только при использовании Outlook в качестве почтовой программы.
Перед отправкой этого файла Excel необходимо создать следующий код:
1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
2. Затем дважды щелкните элемент ThisWorkbook в разделе VBAProject, чтобы открыть пустой модуль, и вставьте в него следующий код:
Код VBA: отправка письма при открытии файла Excel:
Private Sub Workbook_Open()
'Updateby Extendoffice
Dim olkObj As Object
Dim olkEm As Object
Dim strbody As String
Set olkObj = CreateObject("Outlook.Application")
Set olkEm = olkObj.CreateItem(0)
strbody = "Hi there" & vbNewLine & vbNewLine & _
ThisWorkbook.Name & vbNewLine & _
"was opened by" & vbNewLine & _
Environ("username")
On Error Resume Next
With olkEm
.To = ""
.CC = ""
.BCC = ""
.Subject = "File opened"
.Body = strbody
.Send
End With
On Error GoTo 0
Set olkEm = Nothing
Set olkObj = Nothing
End Sub
Примечание: В приведённом выше коде замените «Адрес электронной почты» на свой собственный адрес, на который вы хотите получать уведомления, а также измените тему письма по своему усмотрению.
3. Затем сохраните эту книгу как Книгу Excel с поддержкой макросов (тип файла). См. скриншот:
4. Отправьте сообщение с этим файлом во вложении нужным получателям. Как только получатели загрузят и откроют файл Excel и активируют код, вам автоматически придёт уведомление по электронной почте с указанием того, кто именно открыл файл, как показано на следующем скриншоте:
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек