Jak poslat e-mailem připomenutí nebo oznámení, pokud je sešit aktualizován v aplikaci Excel?
V některých případech možná budete muset spustit e-mailové oznámení určenému příjemci, pokud jsou v sešitu, který jste odeslali, aktualizována data. Tento článek vám ukáže způsob, jak toho dosáhnout.
Pokud je sešit aktualizován kódem VBA, pošlete e-mail s připomenutím nebo oznámením
Pokud je sešit aktualizován kódem VBA, pošlete e-mail s připomenutím nebo oznámením
Pokud se sešit aktualizuje, odešlete e-mailem připomenutí nebo oznámení.
1. V sešitu otevřete zadaný list, který odešlete e-mailové upozornění na základě aktualizovaných údajů uvnitř.
2. Klepněte pravým tlačítkem na kartu listu a vyberte Zobrazit kód z nabídky pravého kliknutí. Viz screenshot:
2. V Microsoft Visual Basic pro aplikace zkopírujte a vložte následující kód do okna kódu. Viz screenshot:
Kód VBA: Pošlete e-mail s připomenutím nebo oznámením, pokud je sešit aktualizován
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
Poznámka: Nahraďte e-mailovou adresu řádkovou e-mailovou adresou příjemce .To = "E-mailová adresa". A podle potřeby změňte pole Cc, Subject i body v kódu VBA.
3. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.
4. Po úpravě buňky v listu a Kutools pro Excel Zobrazí se dialogové okno, jak je uvedeno níže. Pokud chcete k e-mailu připojit aktualizovaný sešit, klikněte na ikonu Ano knoflík. Pokud ne, klikněte na ikonu Ne .
5. Poté se automaticky vytvoří e-mail s připojeným aktualizovaným sešitem nebo bez něj. A všechna zadaná pole jsou také uvedena v e-mailu. Klikněte prosím na Poslat tlačítko pro odeslání.
Poznámka: Kód VBA funguje, pouze když používáte Outlook jako svůj e-mailový program.
Související články:
- Jak automaticky odesílat e-maily na základě hodnoty buňky v aplikaci Excel?
- Jak odeslat e-mail prostřednictvím aplikace Outlook, když je sešit uložen v aplikaci Excel?
- Jak odeslat e-mail, pokud je určitá buňka upravena v aplikaci Excel?
- Jak poslat e-mail, když kliknete na tlačítko v aplikaci Excel?
- Jak poslat e-mail, pokud byl v aplikaci Excel splněn termín splatnosti?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!