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

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

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

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

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

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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 Macro-Enabled Workbook, см. скриншот:

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