Cookies membantu kami menyampaikan perkhidmatan kami. Dengan menggunakan perkhidmatan kami, anda bersetuju dengan penggunaan cookies.
Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar
x

or

Bagaimana untuk menyemak alamat penerima sebelum menghantar melalui Outlook?

Dalam beberapa kali, anda mungkin terlepas menambah beberapa penerima penting ke dalam medan To, CC atau BCC semasa menghantar E-mel melalui Outlook. Di sini, saya boleh memperkenalkan kaedah untuk memeriksa sama ada alamat e-mel tertentu telah ditambah sebelum menghantar melalui Outlook.

Semak alamat sebelum menghantar dengan kod VBA

Balas kepada Semua mengecualikan diri saya dalam pandangan

Apabila kami menggunakan Balas kepada semua fungsi dalam Outlook, kami boleh menambah akaun kami ke To field juga jika e-mel yang anda terima mengandungi dua lagi akaun anda. Dalam kes ini, anda mungkin mahu mengeluarkan akaun anda dari medan Kepada dan CC. Ktools untuk Outlook's Nama saya boleh memberi anda peluang untuk menyelesaikan pekerjaan ini dengan cepat. Hanya memerlukan satu klik, semua akaun myselft dalam Outlook akan dikeluarkan dari medan Kepada dan CC. Klik untuk 45 hari percubaan percuma!
jawapan doc tidak termasuk akaun
doc arrow dowm

jawapan doc mengecualikan akaun 2
Kutools untuk Outlook: dengan berpuluh-puluh tambahan Outlook yang berguna, bebas untuk mencuba tanpa had pada hari 45.

Semak alamat sebelum menghantar dengan kod VBA

Di sini saya mempunyai dua kod yang dapat membantu anda menyelesaikan tugas ini, anda boleh memilih sesiapa sahaja yang anda perlukan.

1. Akhbar Alt + F11 keys untuk membolehkan Microsoft Visual Basic untuk Aplikasi tingkap.

2. Klik dua kali ThisOutlookSession daripada Project1 anak tetingkap untuk membuka editor kod, salin dan tampal di bawah kod ke editor.

VBA: semak alamat penerima dalam medan sebelum menghantar

Sub PrivateEpplicationItemSend (ByVal Item As Object, Cancel as Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Sebagai Variant Dim xAddress Sebagai String Dim xRecipient Sebagai Penerima Dim xPrompt Sebagai String Dim xYesNo Sebagai Integer Dim xDictionary Sebagai Scripting.Dictionary On Error Resume Next Set xDictionary = New Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") For i = LBound (xAddressArr) To UBound (xAddressArr) xDictionary.Add xAddressArr (i ), Seterusnya Seterusnya i Untuk Setiap xRecipient In Item.Recipients Jika xRecipient.Type = olTo Kemudian Jika xDictionary.Exists (xRecipient.Address) Kemudian xDictionary.Remove xRecipient.Address End Jika Next Jika xDictionary.Count = 0 Kemudian GoTo L1 Untuk i = 0 Untuk xDictionary.Count - 1 Jika xAddress = "" Kemudian xAddress = xDictionary.Keys (i) Lain xAddress = xAddress + ";" & xDictionary.Keys (i) Akhir Jika Seterusnya i xPrompt = "Anda tidak menghantar ini kepada: "& xAddress &" Adakah anda pasti mahu menghantar Mail? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Jika xYesNo = vbNo Kemudian Batal = Benar L1: Set xRecipient = Tiada Set xDictionary =

alamat penerima alamat doc sebelum menghantar 1

Dalam kod itu, anda boleh berubah ("example1@126.com", "example2@126.com", "example3@126.com") kepada penerima sebenar yang anda perlukan.

3. Kemudian juga di Microsoft Visual Basic untuk Aplikasi tetingkap, klik Alatan > Rujukan. daftar Microsoft Scripting Runtime kotak masuk Rujukan-Project1 dialog.

alamat penerima alamat doc sebelum menghantar 2 arrow arrow kanan alamat penerima alamat doc sebelum menghantar 3

4. klik OK dan simpan kod itu.

Sekarang Jika penerima yang ditentukan tidak muncul dalam medan Ke semasa menghantar e-mel, dialog akan keluar untuk mengingatkan anda jika menghantar e-mel.
alamat penerima alamat doc sebelum menghantar 4

Dengan kod di atas, ia hanya menyemak alamat e-mel dalam Untuk bidang, jika anda ingin mendaftar masuk Untuk, CC dan BCC bidang, anda boleh menggunakan kod di bawah.

VBA: semak alamat penerima dalam medan Kepada / CC / BCC sebelum dihantar

Sub Private_ ApplicationEItemSend (ByVal Item As Object, Cancel as Boolean) 'UpdatebyExtendoffice20180523 Dim xRecipients As Outlook.Recipients Dim xRecipient As Outlook.Recipient Dim xPos As Integer Dim xYesNo As Integer Dim xPrompt As String Dim xAddress As String On Error Resume Next If Item. Class <> olMail Kemudian Keluar Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" Untuk Setiap xRecipient In xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Jika xPos = 0 Kemudian xPrompt = "Anda menghantar ini kepada "& xAddress". Adakah anda pasti mahu menghantarnya? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") Jika xYesNo = vbNo Kemudian Cancel = End True Jika Next SubRecipient End Sub

Dengan kod ini, anda tidak perlu menyemak Microsoft Scripting Runtime kotak semak, terus simpan kod tersebut untuk berkuatkuasa.



Kutools untuk Outlook

Lebih daripada Fungsi Lanjutan 100 untuk Outlook 2010, 2013, 2016, 2019 dan 365

kutools pukulan skrin untuk outlook kecil untuk sepanduk 201812

Lebih Ciri-ciri | Muat turun percuma | Hanya $ 39.00 untuk beratus-ratus fungsi

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.