Zakaždým, keď aktualizujete konkrétny hárok programu Excel, ak vždy potrebujete odoslať e-mailové upozornenie konkrétnym príjemcom, môžete použiť metódu uvedenú v tomto článku.
Niektorí používatelia požadujú riešenie, aby MS Excel automaticky odoslal e-mailové upozornenie programu Outlook konkrétnym osobám vždy, keď aktualizujú konkrétny pracovný hárok, pretože často zabudnú poslať takýto e-mail. Teraz vám v nasledujúcom poradíme, ako dosiahnuť túto funkciu pomocou kódu VBA.
Automatické odoslanie e-mailu pri aktualizácii konkrétneho pracovného hárka programu Excel
- V prvom rade získajte prístup k zdrojovému excelovému zošitu, ktorý obsahuje konkrétny pracovný hárok.
- Potom v okne MS Excel prejdite do ponuky „Súbor“ a vyberte „Možnosti“.
- Ďalej v okne „Možnosti programu Excel“ prepnite na kartu „Centrum dôveryhodnosti“ a kliknite na tlačidlo „Nastavenia centra dôveryhodnosti“.
- Následne sa v novom okne presuňte na záložku „Nastavenia makra“, pod ktorou by ste mali vybrať „Povoliť všetky makrá“.
- Potom prejdite na kartu „Možnosti ochrany osobných údajov“ a povoľte funkciu „Odstrániť osobné informácie z vlastností súboru pri uložení“.
- Potom kliknite na niekoľko „OK“, aby ste tieto nastavenia uložili.
- Po zálohovaní do zošita programu Excel prejdite na konkrétny pracovný hárok.
- Kliknite pravým tlačidlom myši na názov pracovného hárka v dolnom bočnom paneli a vyberte možnosť „Zobraziť kód“.
- Potom skopírujte nasledujúci kód VBA do projektu konkrétneho hárka.
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
- Potom by ste mali tento zošit uložiť ako zošit Excel s podporou makier.
- Najprv zatvorte okno „Microsoft Visual Basic for Applications“.
- Potom kliknite na „Súbor“ v ľavom hornom rohu.
- Ďalej vyberte „Uložiť ako“.
- V dialógovom okne vyberte v poli „Uložiť ako typ“ možnosť „Zošit s podporou makra Excelu“.
- Nakoniec kliknite na tlačidlo „Uložiť“.
- Nakoniec môžete tento zošit zavrieť.
- Teraz môžete otvoriť predtým uložený zošit Excel s podporou makier.
- Keď vykonáte akékoľvek zmeny v konkrétnom pracovnom hárku, dostanete správu s otázkou, či chcete poslať e-mailové upozornenie.
- Po kliknutí na tlačidlo „Áno“ sa preddefinovaným príjemcom odošle e-mail programu Outlook.
- Tento e-mail bude vyzerať ako na snímke obrazovky nižšie:
Opravte poškodený dátový súbor programu Outlook
Možno ste sa už niekedy stretli s poškodením súboru Excel. V skutočnosti je dátový súbor programu Outlook rovnako zraniteľný ako súbor programu Excel. Napríklad nesprávne zatvorenie programu Outlook môže ľahko viesť k poškodeniu súboru PST. Preto je nevyhnutné podniknúť kroky na ochranu súboru programu Outlook, vrátane pravidelného zálohovania údajov, ako aj prípravy robustného nástroja na opravu PST, ako napr. DataNumen Outlook Repair. Tento nástroj je dostatočne výkonný opraviť PST problémy a obnoviť údaje PST.
Úvod autora:
Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť sql a výhľadové softvérové produkty na opravu. Pre viac informácií navštívte www.datanumen. S