Vsakič, ko posodobite določen Excelov delovni list, če morate vedno poslati e-poštno obvestilo določenim prejemnikom, lahko uporabite metodo, predstavljeno v tem članku.
Nekateri uporabniki prosijo za rešitev, ki omogoča MS Excelu samodejno pošiljanje Outlookovih e-poštnih obvestil določenim osebam vsakič, ko posodobijo določen delovni list, pri čemer pogosto pozabijo poslati takšno e-pošto. Zdaj bomo v nadaljevanju vodili, kako doseči to funkcijo s kodo VBA.
Samodejno pošlji e-pošto, ko je določen Excelov delovni list posodobljen
- Najprej pridobite dostop do izvornega Excelovega delovnega zvezka, ki vsebuje določen delovni list.
- Nato v oknu MS Excel pojdite v meni »Datoteka« in izberite »Možnosti«.
- Nato v oknu »Možnosti programa Excel« preklopite na zavihek »Center zaupanja« in kliknite gumb »Nastavitve centra zaupanja«.
- Nato se v novem oknu pomaknite na zavihek »Nastavitve makrov«, pod katerim izberite »Omogoči vse makre«.
- Po tem se obrnite na zavihek »Možnosti zasebnosti« in omogočite funkcijo »Odstrani osebne podatke iz lastnosti datoteke ob shranjevanju«.
- Nato večkrat kliknite »V redu«, da shranite te nastavitve.
- Po podpori v Excelov delovni zvezek odprite določen delovni list.
- Desni klik na ime delovnega lista v spodnji stranski vrstici in izberite »Ogled kode«.
- Po tem kopirajte naslednjo kodo VBA v projekt določenega lista.
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
- Po tem morate ta delovni zvezek shraniti kot Excelov delovni zvezek z omogočenimi makri.
- Najprej zaprite okno »Microsoft Visual Basic for Applications«.
- Nato v levem zgornjem kotu kliknite »Datoteka«.
- Nato izberite »Shrani kot«.
- V pogovornem oknu izberite »Excelov delovni zvezek z omogočenimi makri« v polju »Shrani kot vrsto«.
- Nazadnje kliknite gumb »Shrani«.
- Končno lahko zaprete ta delovni zvezek.
- Zdaj lahko odprete predhodno shranjen Excelov delovni zvezek z omogočenimi makri.
- Ko naredite kakršne koli spremembe v določenem delovnem listu, boste prejeli sporočilo z vprašanjem, ali želite poslati e-poštno obvestilo.
- Ko kliknete gumb »Da«, bo Outlookovo e-poštno sporočilo poslano vnaprej določenim prejemnikom.
- To e-poštno sporočilo bo videti kot spodnji posnetek zaslona:
Popravite poškodovano Outlookovo podatkovno datoteko
Morda ste že kdaj naleteli na poškodovano datoteko Excel. Pravzaprav je Outlookova podatkovna datoteka enako ranljiva kot Excelova datoteka. Na primer, nepravilno zapiranje Outlooka lahko hitro povzroči poškodbo datoteke PST. Zato je bistveno, da sprejmete ukrepe za zaščito Outlookove datoteke, vključno z rednim varnostnim kopiranjem podatkov in pripravo robustnega orodja za popravilo PST, kot je npr. DataNumen Outlook Repair. Ta pripomoček je dovolj močan, da popravilo PST težave in obnoviti podatke PST.
Uvod avtorja:
Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z sql popravek in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com