Jak wysłać e-mail z przypomnieniem lub powiadomieniem, jeśli skoroszyt jest aktualizowany w programie Excel?
W niektórych przypadkach może być konieczne wyzwolenie powiadomienia e-mail do określonego odbiorcy, jeśli w wysłanym skoroszycie są zaktualizowane dane. Ten artykuł pokaże Ci, jak to osiągnąć.
Wyślij przypomnienie e-mailem lub powiadomienie, jeśli skoroszyt zostanie zaktualizowany kodem VBA
Wyślij przypomnienie e-mailem lub powiadomienie, jeśli skoroszyt zostanie zaktualizowany kodem VBA
Wykonaj następujące czynności, aby wysłać e-mail z przypomnieniem lub powiadomieniem, jeśli skoroszyt zostanie zaktualizowany.
1. W skoroszycie otwórz określony arkusz, w którym wyślesz powiadomienie e-mail na podstawie zaktualizowanych danych w środku.
2. Kliknij prawym przyciskiem myszy kartę arkusza i wybierz Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy. Zobacz zrzut ekranu:
2. w Microsoft Visual Basic for Applications window, skopiuj i wklej następujący kod do okna kodu. Zobacz zrzut ekranu:
Kod VBA: wyślij e-mail z przypomnieniem lub powiadomieniem, jeśli skoroszyt jest aktualizowany
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
Dim xYesOrNo As Integer
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xYesOrNo = MsgBox("Want to attach updated workbook in email?", vbInformation + vbYesNo, "KuTools For Excel")
If xYesOrNo = 6 Then ActiveWorkbook.Save
If xYesOrNo = 6 Then xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.cc = ""
.Subject = "email notification test"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
If xYesOrNo = 6 Then .Attachments.Add xName
.Display
End With
xMailItem = Nothing
xOutApp = Nothing
End Sub
Note: Zastąp adres e-mail w wierszu adresem e-mail odbiorcy .To = "Adres e-mail". I zmień Cc, Subject, a także pola treści w kodzie VBA, jak potrzebujesz.
3. wciśnij inny + Q klucze do zamknięcia Microsoft Visual Basic for Applications okno.
4. Po edycji komórki w arkuszu, a Kutools dla programu Excel pojawi się okno dialogowe, jak pokazano poniżej. Jeśli chcesz załączyć zaktualizowany skoroszyt do wiadomości e-mail, kliknij plik Tak przycisk. Jeśli nie, kliknij Nie przycisk.
5. Następnie wiadomość e-mail jest tworzona automatycznie z załączonym zaktualizowanym skoroszytem lub bez niego. Wszystkie określone pola są również wymienione w wiadomości e-mail. Proszę kliknąć Wyślij przycisk, aby go wysłać.
Note: Kod VBA działa tylko wtedy, gdy używasz Outlooka jako programu pocztowego.
Podobne artykuły:
- Jak automatycznie wysyłać wiadomości e-mail na podstawie wartości komórki w programie Excel?
- Jak wysłać wiadomość e-mail za pośrednictwem programu Outlook, gdy skoroszyt jest zapisany w programie Excel?
- Jak wysłać wiadomość e-mail, jeśli określona komórka zostanie zmodyfikowana w programie Excel?
- Jak wysłać wiadomość e-mail, jeśli przycisk zostanie kliknięty w programie Excel?
- Jak wysłać wiadomość e-mail, jeśli termin został osiągnięty w programie Excel?
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!