Перейти к основному содержанию
 

Как получать уведомление по электронной почте, когда получатель открывает вложение Excel?

Автор: Сяоян Последнее изменение: 2024 июля 11 г.

При отправке важной информации в виде вложения в файл Excel может быть полезно знать, открыл ли получатель файл. С помощью VBA вы можете создать код, который будет автоматически отправлять вам уведомление по электронной почте, как только получатель откроет книгу. Это руководство покажет вам, как настроить эту функцию в Excel, что позволит вам получать подтверждение при каждом доступе к вложенному файлу.

Запуск уведомления по электронной почте при открытии вложения Excel с помощью кода VBA


стрелка синий правый пузырь Запуск уведомления по электронной почте при открытии вложения Excel с помощью кода VBA

Примечание: Этот метод доступен только при использовании Outlook в качестве почтовой программы.

Перед отправкой этого файла Excel вы должны создать следующий код:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Затем дважды щелкните Эта рабочая тетрадь под ВБАПроект раздел, чтобы открыть пустой модуль, а затем скопируйте и вставьте в модуль следующий код:

Код 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

Скриншот вставленного кода в окно VBA в Excel

Внимание: В приведенном выше коде вы должны изменить адрес электронной почты на свой собственный адрес, на который вы хотите получать приглашение по электронной почте, и изменить тему по своему усмотрению.

3. Затем сохраните эту книгу как Excel Macro-Enabled Workbook формат файла, см. снимок экрана:

Снимок экрана, показывающий, как сохранить книгу как книгу Excel с поддержкой макросов

4. А затем отправьте сообщение с этим вложенным файлом нужным получателям, когда получатели загрузят и откроют этот файл Excel и активируют код, вам будет автоматически отправлено электронное письмо с подсказкой, в котором сообщается, что файл был открыт кем-то следующим образом показан снимок экрана:

Снимок экрана, показывающий электронное письмо, полученное при открытии файла получателем

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!