當收件者開啟 Excel 附件時如何收到電子郵件通知？

在傳送 Excel 文件附件中的重要資訊時，了解收件人是否已開啟該文件會很有幫助。使用 VBA，您可以建立一個程式碼，一旦收件者開啟工作簿，就會觸發自動電子郵件通知傳送給您。本指南將向您展示如何在 Excel 中設定此功能，以便您在存取附加文件時收到確認。

使用 VBA 程式碼開啟 Excel 附件時觸發電子郵件通知

使用 VBA 程式碼開啟 Excel 附件時觸發電子郵件通知

發送此Excel文件之前，您應該創建如下代碼：

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 然後雙擊 的ThisWorkbook 在 VBA項目 部分以打開空白模塊，然後將以下代碼複製並粘貼到模塊中：

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文件並激活代碼時，系統會自動向您發送一封提示電子郵件，並告訴您該文件是由誰打開的顯示的屏幕截圖：