Jak wysłać wiadomość e-mail po otwarciu załącznika Excel przez odbiorców?
Większość z nas może wysłać do naszych klientów ważne wiadomości z załącznikiem w formacie Excel, dlatego musimy wiedzieć, czy odbiorca otrzymał wiadomość i otworzył załącznik. W takim przypadku możesz utworzyć kod VBA dla pliku załącznika programu Excel, gdy odbiorca otworzy skoroszyt i aktywuje kod, automatycznie zostanie wysłana wiadomość e-mail z monitem.
Wyślij wiadomość e-mail po otwarciu załącznika Excel przez odbiorców z kodem VBA
Wyślij wiadomość e-mail po otwarciu załącznika Excel przez odbiorców z kodem VBA
Przed wysłaniem tego pliku Excel należy utworzyć kod w następujący sposób:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Następnie kliknij dwukrotnie Ten zeszyt pod Projekt VBA , aby otworzyć pusty moduł, a następnie skopiuj i wklej następujący kod do modułu:
Kod VBA: wyślij wiadomość e-mail po otwarciu pliku 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: W powyższym kodzie należy zmienić adres e-mail na własny adres, na który ma być wysyłany monit, oraz zmienić temat w zależności od potrzeb.
3. Następnie zapisz ten skoroszyt jako Skoroszyt Excel z włączoną obsługą makr format pliku, patrz zrzut ekranu:
4. A następnie wyślij wiadomość z tym załącznikiem do potrzebnych odbiorców, gdy odbiorcy pobiorą i otworzą ten plik Excela i aktywują kod, zostanie automatycznie wysłana wiadomość e-mail z monitem z informacją, że plik został otwarty przez następujące osoby zrzut ekranu pokazany:
Note: Ta metoda jest dostępna tylko wtedy, gdy używasz programu Outlook jako programu pocztowego.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!