Pokaždé, když aktualizujete konkrétní list aplikace Excel, pokud vždy potřebujete odeslat e-mailové upozornění konkrétním příjemcům, můžete použít metodu uvedenou v tomto článku.
Někteří uživatelé požadují řešení, aby aplikace MS Excel automaticky odeslala e-mailové upozornění aplikace Outlook konkrétním osobám pokaždé, když aktualizují konkrétní list, protože často zapomenou odeslat takový e-mail. Nyní si v následujícím poradíme, jak dosáhnout této funkce pomocí kódu VBA.
Automatické odeslání e-mailu při aktualizaci konkrétního listu aplikace Excel
- Nejprve získejte přístup ke zdrojovému sešitu aplikace Excel, který obsahuje konkrétní list.
- Poté v okně MS Excel přejděte do nabídky „Soubor“ a vyberte „Možnosti“.
- Dále se v okně „Možnosti Excelu“ přepněte na kartu „Centrum důvěryhodnosti“ a klikněte na tlačítko „Nastavení centra důvěryhodnosti“.
- Následně se v novém okně přesuňte na záložku „Nastavení maker“, pod kterou vyberte „Povolit všechna makra“.
- Poté přejděte na kartu „Možnosti ochrany osobních údajů“ a povolte funkci „Při uložení odebrat osobní údaje z vlastností souboru“.
- Poté klikněte na několik „OK“ pro uložení těchto nastavení.
- Po zálohování do sešitu aplikace Excel otevřete konkrétní list.
- Klikněte pravým tlačítkem na název listu v dolním postranním panelu a vyberte „Zobrazit kód“.
- Poté zkopírujte následující kód VBA do projektu konkrétního listu.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nConfirmation As Integer
Dim objNewWorkbook As Excel.Workbook
Dim objNewWorksheet As Excel.Worksheet
Dim objOutlookApp As Object
Dim objMail As Object
nConfirmation = MsgBox("Do you want to send an email notification about the sheet updating now?", vbInformation + vbYesNo, "Mail Sheet Updates")
If nConfirmation = vbYes Then
ActiveWorkbook.Save
On Error Resume Next
Set objOutlookApp = CreateObject("Outlook.Application")
Set objMail = objOutlookApp.CreateItem(olMailItem)
'Change the email details as per your needs
With objMail
.To = "test@datanumen.com"
.Subject = "Email Notifying Sheet Updates"
.Body = "Hi," & vbCrLf & vbCrLf & "The worksheet " & Chr(34) & ActiveWorkbook.Sheets(1).Name & Chr(34) & " in this Excel workbook attachment is updated."
'Attach this workbook
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
End If
End Sub
- Poté byste měli tento sešit uložit jako sešit Excel s podporou maker.
- Nejprve zavřete okno „Microsoft Visual Basic for Applications“.
- Poté klikněte na „Soubor“ v levém horním rohu.
- Dále zvolte „Uložit jako“.
- V dialogovém okně zvolte v poli "Uložit jako typ" "Sešit s podporou maker Excelu".
- Nakonec klikněte na tlačítko „Uložit“.
- Nakonec můžete tento sešit zavřít.
- Nyní můžete otevřít dříve uložený sešit Excel s podporou maker.
- Když v konkrétním listu provedete jakékoli změny, zobrazí se zpráva s dotazem, zda odeslat e-mailové upozornění.
- Po kliknutí na tlačítko „Ano“ bude předdefinovaným příjemcům odeslán e-mail aplikace Outlook.
- Tento e-mail bude vypadat jako snímek obrazovky níže:
Opravte poškozený datový soubor aplikace Outlook
Možná jste se někdy setkali s poškozením souboru Excel. Ve skutečnosti je datový soubor aplikace Outlook stejně zranitelný jako soubor aplikace Excel. Například nesprávné zavření aplikace Outlook může snadno vést k poškození souboru PST. Proto je nezbytné podniknout kroky k zabezpečení souboru aplikace Outlook, včetně pravidelného zálohování dat a přípravy robustního nástroje pro opravu PST, jako je např. DataNumen Outlook Repair. Tento nástroj je dostatečně výkonný opravit PST problémy a obnovit data PST.
Úvod autora:
Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně oprava sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com