Bagaimana Mencegah Pengiriman Email ke Alamat Email Tertentu di Outlook Anda

Banyak pengguna berharap memblokir pengiriman email secara tidak sengaja ke alamat email tertentu di Outlook. Maka dari itu, pada artikel kali ini, kami akan memperkenalkan metode untuk merealisasikannya.

Outlook tidak menyediakan fitur asli untuk memblokir pengiriman email ke alamat email tertentu. Karenanya, jika Anda ingin menyadarinya, diperlukan sedikit skrip. Sekarang, berikut ini, kami akan membagikan potongan kode VBA tersebut. Jika Anda tidak tahu bagaimana menggunakan VBA, Anda dapat membaca post - "Cara Menjalankan Kode VBA di Outlook Anda".

Cegah Pengiriman Email ke Alamat Email Tertentu

1. Pertama-tama, akses editor Outlook VBA melalui "Alt + F11".
2. Kemudian, masukkan kode berikut ke dalam proyek "ThisOutlookSession".

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim ContactGroupFound As Boolean
    Dim i, n As Long
    Dim objRecipient As Outlook.Recipient
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Expand the contact groups in Recipients
       ContactGroupFound = True
       Do While ContactGroupFound = True
          Set objRecipients = objMail.Recipients
          ContactGroupFound = False
 
          For i = objRecipients.Count To 1 Step -1
              If objRecipients(i).AddressEntry.DisplayType <> olUser Then
                 For n = 1 To objRecipients(i).AddressEntry.Members.Count
                     If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        ContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          Next i
          objRecipients.ResolveAll
       Loop
 
       'Remove specific email address
       For Each objRecipient In objRecipients
           If objRecipient.Address = "shelly@datanumen.com" Then
              If MsgBox("Do you want to email to " & Chr(34) & "shelly@datanumen.com" & Chr(34) & "?", vbExclamation + vbYesNo) = vbNo Then
                 objRecipient.Delete
              End If
           End If
       Next
    End If
End Sub

3. Setelah itu, keluar dari jendela "Microsoft Visual Basic for Applications".
4. Akhirnya, cobalah dengan langkah-langkah berikut.

• Untuk memulai, tulis email dan isi penerima.
• Kemudian, klik tombol “Kirim”.
• Sekaligus, makro akan bekerja untuk memperluas grup kontak di penerima jika ada dan mencari tahu apakah penerima berisi alamat email tertentu.
• Jika alamat sudah ditemukan, Anda akan mendapatkan pesan, seperti yang ditunjukkan pada gambar berikut.
• Jika Anda memilih "Tidak", alamat email tertentu akan segera dihapus.
• Setelah email terkirim, Anda dapat memeriksa penerimanya, yang tentunya tidak berisi alamat email tertentu.

Perbaiki File Outlook Anda yang Rusak

Apakah file Outlook Anda pernah rusak? Itu memang most masalah yang mengganggu di Outlook. Saat menjadi sasaran, Anda harus memanipulasi Perbaikan PST, yang agak rumit. Seperti biasa, Anda akan berpikir untuk menggunakan Scanpst untuk pertama kalinya. Namun, sayangnya, mungkin gagal dalam kasus seperti itu. Resor Anda harus menjadi alat yang lebih berpengalaman, seperti DataNumen Outlook Repair, atau layanan pemulihan PST profesional.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk perbaikan sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com