受信者が添付Excelファイルを開いたときにメールを送信するにはどうすればよいですか？

私たちのほとんどは、Excelの添付ファイル付きの重要なメッセージをクライアントに送信する可能性があるため、受信者がメッセージを受信して​​添付ファイルを開いたかどうかを知る必要があります。 この場合、Excel添付ファイルのVBAコードを作成できます。受信者がブックを開いてコードをアクティブ化すると、プロンプトメールが自動的に送信されます。

添付ファイルのExcelファイルが受信者によってVBAコードで開かれたときに電子メールを送信します

添付ファイルのExcelファイルが受信者によってVBAコードで開かれたときに電子メールを送信します

このExcelファイルを送信する前に、次のようにコードを作成する必要があります。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 次にダブルクリックします このワークブック 下 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

Note：上記のコードでは、メールアドレスをプロンプトメールを受信したい自分のアドレスに変更し、必要に応じて件名を変更する必要があります。

3。 次に、このワークブックを次のように保存します Excelマクロが有効なブック ファイル形式、スクリーンショットを参照してください：

4。 次に、このファイルを添付したメッセージを必要な受信者に送信します。受信者がこのExcelファイルをダウンロードして開き、コードをアクティブ化すると、プロンプトメールが自動的に送信され、ファイルが次のように誰によって開かれたかが通知されます。示されているスクリーンショット：

Note：この方法は、メールプログラムとしてOutlookを使用している場合にのみ使用できます。