Svaki put kada ažurirate određeni Excel radni list, ako uvijek trebate poslati obavijest e-poštom određenim primateljima, možete koristiti metodu predstavljenu u ovom članku.
Neki korisnici traže rješenje da dozvoli MS Excel-u da automatski pošalje Outlook obavještenje putem e-pošte određenim osobama svaki put kada ažuriraju određeni radni list, jer često zaborave poslati takav email. Sada ćemo u nastavku pokazati kako postići ovu funkciju pomoću VBA koda.
Automatsko slanje e-pošte kada se određeni Excel radni list ažurira
- Na prvom mjestu, dobijte pristup izvornoj Excel radnoj knjizi koja sadrži određeni radni list.
- Zatim u prozoru MS Excel-a idite na meni 'Datoteka' i odaberite "Opcije".
- Zatim, u prozoru "Excel opcije", prebacite se na karticu "Centar za pouzdanost" i kliknite na dugme "Postavke centra za pouzdanost".
- Nakon toga, u novom prozoru, prijeđite na karticu "Postavke makroa", ispod koje biste trebali odabrati "Omogući sve makroe".
- Nakon toga idite na karticu „Opcije privatnosti“ i omogućite funkciju „Ukloni lične podatke iz svojstava datoteke prilikom spremanja“.
- Zatim kliknite nekoliko "OK" da sačuvate ove postavke.
- Nakon vraćanja na Excel radnu svesku, pristupite određenom radnom listu.
- Kliknite desnim tasterom miša na naziv radnog lista u donjoj bočnoj traci i izaberite „Prikaži kod“.
- Nakon toga kopirajte sljedeći VBA kod u projekat određenog 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
- Nakon toga, trebalo bi da sačuvate ovu radnu svesku kao Excel radnu svesku sa omogućenim makroima.
- Prvo zatvorite prozor „Microsoft Visual Basic za aplikacije“.
- Zatim kliknite na "File" u lijevom gornjem uglu.
- Zatim odaberite "Sačuvaj kao".
- U dijaloškom okviru, odaberite “Excel Macro-Enabled Workbook” u polju “Save as type”.
- Na kraju kliknite na dugme „Sačuvaj“.
- Konačno, možete zatvoriti ovu radnu svesku.
- Sada možete otvoriti prethodno sačuvanu Excel radnu svesku sa omogućenim makroima.
- Kada izvršite bilo kakve promjene na određenom radnom listu, dobit ćete poruku u kojoj se traži da pošaljete obavještenje putem e-pošte.
- Kada kliknete na dugme „Da“, Outlook e-pošta će biti poslata unapred definisanim primaocima.
- Ovaj email će izgledati kao na slici ispod:
Popravite oštećenu Outlook datoteku podataka
Možda ste se ikada susreli s oštećenjem Excel datoteke. Zapravo, Outlook datoteka sa podacima je ista ranjiva kao i Excel datoteka. Na primjer, nepropisno zatvaranje Outlooka može lako dovesti do oštećenja PST datoteke. Stoga je bitno poduzeti radnje za zaštitu Outlook datoteke, uključujući pravljenje redovnih sigurnosnih kopija podataka, kao i pripremu robusnog alata za popravak PST-a, kao što je DataNumen Outlook Repair. Ovaj uslužni program je dovoljno moćan da popraviti PST probleme i oporaviti PST podatke.
Uvod za autora:
Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql fix i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com