Setiap kali anda mengemas kini lembaran kerja Excel tertentu, jika anda selalu perlu mengirim pemberitahuan e-mel kepada penerima tertentu, Anda dapat menggunakan metode yang diperkenalkan dalam artikel ini.
Sebilangan pengguna meminta penyelesaian untuk membiarkan MS Excel secara automatik mengirim pemberitahuan e-mel Outlook kepada orang tertentu setiap kali mereka mengemas kini lembaran kerja tertentu, di mana mereka sering lupa untuk menghantar e-mel seperti itu. Berikut ini, kami akan membimbing cara mencapai fungsi ini dengan kod VBA.
Menghantar E-mel secara automatik apabila Lembaran Kerja Excel Khusus Dikemas kini
- Pertama, dapatkan akses ke buku kerja Excel sumber yang mengandungi lembaran kerja tertentu.
- Kemudian, di tetingkap MS Excel, pergi ke menu 'Fail' dan pilih "Pilihan".
- Seterusnya, di tetingkap "Pilihan Excel", beralih ke tab "Pusat Kepercayaan" dan klik pada butang "Tetapan Pusat Kepercayaan".
- Selanjutnya, di tetingkap baru, beralih ke tab "Tetapan Makro", di mana Anda harus memilih "Aktifkan semua makro".
- Setelah itu, beralih ke tab "Pilihan Privasi" dan aktifkan "Hapus maklumat peribadi dari sifat fail semasa menyimpan".
- Kemudian, klik beberapa "OK" untuk menyimpan tetapan ini.
- Setelah kembali ke buku kerja Excel, akses lembaran kerja tertentu.
- Klik kanan pada nama lembaran kerja di bar sisi bawah dan pilih "Lihat Kod".
- Selepas itu, salin kod VBA berikut ke dalam projek lembaran 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
- Selepas itu, anda harus menyimpan buku kerja ini sebagai buku kerja Excel Macro-Enabled.
- Pertama, tutup tetingkap "Microsoft Visual Basic for Applications".
- Kemudian, klik "Fail" di sudut kiri atas.
- Seterusnya, pilih "Simpan Sebagai".
- Dalam kotak dialog, pilih "Buku Kerja Excel Macro-Enabled" dalam bidang "Simpan sebagai jenis".
- Terakhir, klik butang "Simpan".
- Akhirnya, anda boleh menutup buku kerja ini.
- Sekarang, anda boleh membuka buku kerja Excel yang didayakan makro yang disimpan sebelumnya.
- Apabila anda membuat perubahan pada lembaran kerja tertentu, anda akan mendapat mesej yang bertanya sama ada untuk menghantar pemberitahuan e-mel.
- Apabila anda mengklik butang "Ya", e-mel Outlook akan dihantar kepada penerima yang telah ditentukan.
- E-mel ini akan kelihatan seperti tangkapan skrin di bawah:
Membaiki Fail Data Outlook yang Rosak
Mungkin anda pernah mengalami kerosakan fail Excel. Sebenarnya, fail data Outlook sama rentan dengan fail Excel. Sebagai contoh, menutup Outlook yang tidak betul boleh menyebabkan kerosakan fail PST dengan mudah. Oleh itu, sangat mustahak untuk mengambil tindakan untuk melindungi fail Outlook, termasuk membuat sandaran data biasa serta menyiapkan alat memperbaiki PST yang kuat, seperti DataNumen Outlook Repair. Utiliti ini cukup kuat untuk membaiki PST mengeluarkan dan memulihkan data PST.
Pengenalan Pengarang:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com