Bagaimana cara memeriksa alamat penerima sebelum mengirim melalui Outlook?

Dalam beberapa kesempatan, Anda mungkin melewatkan menambahkan beberapa penerima penting ke dalam kolom To, CC, atau BCC saat mengirim E-mail melalui Outlook. Di sini, saya bisa memperkenalkan metode untuk memeriksa apakah alamat email tertentu telah ditambahkan sebelum mengirim melalui Outlook.

Periksa alamat sebelum mengirim dengan kode VBA

Balas ke Semua mengecualikan Diriku dalam pandangan

Saat kami menggunakan Balas ke semua fungsi di Outlook, kami dapat menambahkan akun kami ke bidang Ke juga jika email yang Anda terima berisi dua lagi akun Anda. Dalam hal ini, Anda mungkin ingin menghapus akun Anda dari bidang Kepada dan CC. Ktools untuk Outlook's Nama saya dapat membantu Anda menyelesaikan pekerjaan ini dengan cepat. Hanya perlu satu klik, semua akun myselft di Outlook akan dihapus dari kolom To dan CC. Klik untuk percobaan gratis 45 hari!

Kutools for Outlook: dengan puluhan add-in Outlook praktis, bebas untuk mencoba tanpa batasan dalam 45 days.

Periksa alamat sebelum mengirim dengan kode VBA

Di sini saya memiliki dua kode yang dapat membantu Anda menyelesaikan pekerjaan ini, Anda dapat memilih siapa pun yang Anda butuhkan.

1. tekan Alt + F11 keys untuk diaktifkan Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik dua kali ThisOutlookSession dari Project1 panel untuk membuka editor kode, salin dan tempel kode di bawah ini ke editor.

VBA: periksa alamat penerima di bidang Ke sebelum mengirim

Private Sub Application_ItemSend (ByVal Item Sebagai Objek, Cancel As Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Sebagai Variant Dim xAddress Sebagai String Dim xRecipient Sebagai Penerima Dim xPrompt Sebagai String Dim xYaTidak Sebagai Integer Dim xDictionary Sebagai Scripting.Dictionary Pada Kesalahan Lanjutkan Set Lanjut xDictionary = Scripting Baru. XAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") Untuk i = LBound (xAddressArr) Ke UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True Next i Untuk Setiap xRecipient In Item.Recipients Jika xRecipient.Type = olTo Kemudian Jika xDictionary.Exists (xRecipient.Address) Kemudian xDictionary.Remove xRecipient.Address End If Next Jika xDictionary.Count = 0 Kemudian GoTo L1 For i = 0 Ke xDictionary.Count - 1 Jika xAddress = "" Kemudian xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) End If Next i xPrompt = "Anda tidak mengirim ini ke: "& xAddress &". Anda yakin ingin mengirim Surat? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Jika xYesNo = vbTidak Kemudian Batal = True L1: Set xRecipient = Tidak Ada Set xDictionary = Tidak Ada Sub Akhir

Dalam kode itu, Anda bisa berubah ("example1@126.com", "example2@126.com", "example3@126.com") kepada penerima nyata yang Anda butuhkan.

3. Kemudian juga di Microsoft Visual Basic untuk Aplikasi window, klik alat > Referensi. Periksa Microsoft Scripting Runtime kotak masuk Referensi-Project1 dialog.

4. klik OK dan simpan kodenya.

Sekarang Jika penerima yang ditentukan tidak muncul di bidang Ke ketika mengirim email, dialog akan muncul untuk mengingatkan Anda jika mengirim email.

Dengan kode di atas, hanya memeriksa alamat email di Untuk lapangan, jika Anda ingin melapor masuk Untuk, CC serta BCC bidang, Anda dapat menggunakan kode di bawah ini.

VBA: periksa alamat penerima di kolom To / CC / BCC sebelum mengirim

Private Sub Application_ItemSend (ByVal Item Sebagai Objek, Cancel As Boolean) 'UpdatebyExtendoffice20180523 Dim xRecipients Sebagai Outlook.Recipient Dim xRecipient Sebagai Outlook.Recipient Dim xPos Sebagai Integer Dim xYesNo As Integer Dim xPrompt Sebagai String Dim xAddress Sebagai String Pada Kesalahan Lanjutkan Selanjutnya Jika Item. Kelas <> olMail Kemudian Keluar Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" Untuk Setiap xRecipient Dalam xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Jika xPos = 0 Kemudian xPromp = = "Anda mengirim ini ke "& xAddress &". Anda yakin ingin mengirimnya? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") Jika xYesNo = vbTidak Kemudian Batal = True End If Next xReseten End Sub

Dengan kode ini, Anda tidak perlu memeriksa Microsoft Scripting Runtime centang, cukup langsung menyimpan kode agar berlaku.

Kutools for Outlook

Lebih dari 100 Fungsi Lanjut untuk Outlook 2010, 2013, 2016, 2019 dan 365

Fitur Lebih | Free download | Hanya $ 39.00 untuk ratusan fungsi