收件人打开附件Excel文件时如何发送电子邮件？

我们大多数人可能会向客户发送一些带有Excel文件附件的重要邮件，因此我们需要知道收件人是否已收到该邮件并打开了文件附件。 在这种情况下，您可以为Excel附件文件创建VBA代码，当收件人打开工作簿并激活该代码时，系统会自动向您发送一封提示电子邮件。

收件人使用VBA代码打开附件Excel文件时发送电子邮件

收件人使用VBA代码打开附件Excel文件时发送电子邮件

发送此Excel文件之前，您应该创建如下代码：

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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文件并激活代码时，系统会自动向您发送一封提示电子邮件，并告诉您该文件是由谁打开的显示的屏幕截图：

备注：仅当您将Outlook用作邮件程序时，此方法才可用。