如何在收件人打开您的Excel附件时收到电子邮件通知？

在通过Excel文件附件发送重要信息时，了解收件人是否已打开文件会很有帮助。使用VBA，您可以创建一段代码，当收件人打开工作簿时，自动向您发送电子邮件通知。本指南将向您展示如何在Excel中设置此功能，使您能够在附件被访问时收到确认。

使用VBA代码在Excel附件被打开时触发电子邮件通知

使用VBA代码在Excel附件被打开时触发电子邮件通知

在发送此Excel文件之前，您应按以下步骤创建代码：

1. 按住ALT + F11键以打开Microsoft Visual Basic for Applications窗口。

2. 然后双击VBAProject部分下的ThisWorkbook以打开一个空白模块，然后将以下代码复制并粘贴到模块中：

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文件并激活代码时，系统将自动向您发送一封提示邮件，告诉您是谁打开了文件，如下图所示：