Wie erhalten Sie eine E-Mail-Benachrichtigung, wenn ein Empfänger Ihren Excel-Anhang öffnet?
Wenn Sie wichtige Informationen in einer Excel-Datei als Anhang versenden, kann es hilfreich sein zu wissen, ob der Empfänger die Datei geöffnet hat. Mit VBA können Sie einen Code erstellen, der automatisch eine E-Mail-Benachrichtigung an Sie sendet, sobald der Empfänger die Arbeitsmappe öffnet. Dieser Leitfaden zeigt Ihnen, wie Sie diese Funktion in Excel einrichten, sodass Sie immer dann eine Bestätigung erhalten, wenn auf die angehängte Datei zugegriffen wird.
E-Mail-Benachrichtigung auslösen, wenn ein Excel-Anhang mit VBA-Code geöffnet wird
E-Mail-Benachrichtigung auslösen, wenn ein Excel-Anhang mit VBA-Code geöffnet wird
Hinweis: Diese Methode ist nur verfügbar, wenn Sie Outlook als Ihr E-Mail-Programm verwenden.
Bevor Sie diese Excel-Datei senden, sollten Sie einen Code wie folgt erstellen:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Doppelklicken Sie dann auf ThisWorkbook im Abschnitt VBAProject, um ein leeres Modul zu öffnen, und kopieren Sie den folgenden Code in das Modul:
VBA-Code: Senden Sie eine E-Mail, wenn die Excel-Datei geöffnet wird:
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
Hinweis: Im obigen Code sollten Sie die E-Mail-Adresse durch Ihre eigene Adresse ersetzen, an die Sie die Benachrichtigungs-E-Mail erhalten möchten, und ändern Sie den Betreff entsprechend Ihren Bedürfnissen.
3. Speichern Sie diese Arbeitsmappe dann im Dateityp „Excel-Makrofähige Arbeitsmappe“, siehe Screenshot:
4. Senden Sie anschließend eine Nachricht mit diesem Dateianhang an die gewünschten Empfänger. Wenn die Empfänger die Excel-Datei herunterladen und öffnen und der Code aktiviert wird, wird Ihnen automatisch eine E-Mail gesendet, die Ihnen mitteilt, wer die Datei geöffnet hat, wie im folgenden Screenshot dargestellt:
Beste Büroproduktivitätswerkzeuge
Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
- Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!