Setiap kali Anda memperbarui lembar kerja Excel tertentu, jika Anda selalu perlu mengirim pemberitahuan email ke penerima tertentu, Anda dapat menggunakan metode yang diperkenalkan dalam artikel ini.
Beberapa pengguna meminta solusi untuk membiarkan MS Excel secara otomatis mengirim pemberitahuan email Outlook ke orang tertentu setiap kali mereka memperbarui lembar kerja tertentu, karena mereka sering lupa mengirim email semacam itu. Sekarang, berikut ini, kami akan memandu cara mencapai fungsi ini dengan kode VBA.
Kirim Email Secara Otomatis saat Lembar Kerja Excel Tertentu Diperbarui
- Pertama-tama, dapatkan akses ke buku kerja Excel sumber yang berisi lembar kerja tertentu.
- Kemudian, di jendela MS Excel, buka menu 'File' dan pilih "Options".
- Selanjutnya, di jendela "Opsi Excel", alihkan ke tab "Pusat Kepercayaan" dan klik tombol "Pengaturan Pusat Kepercayaan".
- Selanjutnya, di jendela baru, geser ke tab "Pengaturan Makro", di mana Anda harus memilih "Aktifkan semua makro".
- Setelah itu, buka tab "Opsi Privasi" dan aktifkan fitur "Hapus informasi pribadi dari properti file saat disimpan".
- Kemudian, klik beberapa "OK" untuk menyimpan pengaturan ini.
- Setelah mencadangkan ke buku kerja Excel, akses lembar kerja tertentu.
- Klik kanan pada nama lembar kerja di bilah sisi bawah dan pilih "Lihat Kode".
- Setelah itu, salin kode VBA berikut ke dalam proyek lembar tertentu.
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
- Setelah itu, Anda harus menyimpan buku kerja ini sebagai buku kerja Excel Macro-Enabled.
- Pertama, tutup jendela "Microsoft Visual Basic for Applications".
- Kemudian, klik "File" di sudut kiri atas.
- Selanjutnya, pilih "Simpan Sebagai".
- Di kotak dialog, pilih "Buku Kerja Berkemampuan Makro Excel" di bidang "Simpan sebagai tipe".
- Terakhir, klik tombol "Simpan".
- Akhirnya, Anda dapat menutup buku kerja ini.
- Sekarang, Anda bisa membuka buku kerja Excel yang telah disimpan sebelumnya dengan makro aktif.
- Saat Anda membuat perubahan apa pun di lembar kerja tertentu, Anda akan mendapatkan pesan yang menanyakan apakah Anda harus mengirim pemberitahuan email.
- Saat Anda mengklik tombol "Ya", email Outlook akan dikirim ke penerima yang telah ditentukan.
- Email ini akan terlihat seperti screenshot di bawah ini:
Perbaiki File Data Outlook yang Rusak
Mungkin Anda pernah mengalami korupsi file Excel. Sebenarnya, file data Outlook sama rentannya dengan file Excel. Misalnya, menutup Outlook dengan tidak benar dapat menyebabkan kerusakan file PST dengan mudah. Oleh karena itu, penting untuk mengambil tindakan untuk melindungi file Outlook, termasuk membuat cadangan data reguler serta menyiapkan alat perbaikan PST yang tangguh, seperti DataNumen Outlook Repair. Utilitas ini cukup kuat untuk memperbaiki PST masalah dan memulihkan data PST.
Pengantar Penulis:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com