Wie sende ich eine E-Mail, wenn die Excel-Datei des Anhangs von den Empfängern geöffnet wird?
Die meisten von uns senden möglicherweise einige wichtige Nachrichten mit einem Excel-Dateianhang an ihre Kunden. Daher müssen wir wissen, ob der Empfänger die Nachricht erhalten und den Dateianhang geöffnet hat. In diesem Fall können Sie einen VBA-Code für Ihre Excel-Anhangsdatei erstellen. Wenn der Empfänger die Arbeitsmappe öffnet und den Code aktiviert, wird automatisch eine E-Mail an Sie gesendet.
Senden Sie eine E-Mail, wenn die Excel-Datei des Anhangs von den Empfängern mit VBA-Code geöffnet wird
Bevor Sie diese Excel-Datei senden, sollten Sie einen Code wie folgt erstellen:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Doppelklicken Sie dann DiesesWorkbook unter dem VBAProjekt Abschnitt, um ein leeres Modul zu öffnen, und kopieren Sie dann den folgenden Code und fügen Sie ihn in das Modul ein:
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
Note: Im obigen Code sollten Sie die E-Mail-Adresse in Ihre eigene Adresse ändern, an die Sie die sofortige E-Mail erhalten möchten, und den Betreff nach Ihren Wünschen ändern.
3. Speichern Sie dann diese Arbeitsmappe als Excel Makroaktivierte Arbeitsmappe Dateiformat, siehe Screenshot:
4. Senden Sie dann eine Nachricht mit diesem Dateianhang an die Empfänger, die Sie benötigen. Wenn die Empfänger diese Excel-Datei herunterladen und öffnen und den Code aktivieren, wird automatisch eine E-Mail an Sie gesendet, in der Sie darüber informiert werden, dass die Datei von wem wie folgt geöffnet wurde Screenshot gezeigt:
Note: Diese Methode ist nur verfügbar, wenn Sie Outlook als E-Mail-Programm verwenden.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!