Note: The other languages of the website are Google-translated. Back to English

Kako blokirati odhodno e-pošto na določen naslov v Outlooku?

Na splošno Outlook pošilja e-pošto na vse običajne e-poštne naslove in ne more blokirati pošiljanja e-pošte na določen e-poštni naslov. Toda včasih boste morda morali preprečiti pošiljanje e-pošte na določen e-poštni naslov v Outlooku. V tem primeru bo ta vadnica predstavila kodo VBA za rešitev te naloge.


Blokirajte odhodno e-pošto na določen naslov s kodo VBA

Naslednja koda VBA vam lahko naredi uslugo, naredite naslednje:

1. Zaženite Outlook, nato pridržite ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Nato dvokliknite Ta OutlookSession Iz Projekt-projekt1 podoknu, nato pa kopirajte in prilepite spodnjo kodo v prazno okno kode:

Koda VBA: Blokirajte odhodno e-pošto na določen naslov

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updatby ExtendOffice
Dim xMail As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim xContactGroupFound As Boolean
Dim i, n As Long
Dim xRecipient As Outlook.Recipient
Dim xAddress As String
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMail = Item
xContactGroupFound = True
Do While xContactGroupFound = True
  Set xRecipients = xMail.Recipients
  xContactGroupFound = False
  For i = xRecipients.Count To 1 Step -1
    If xRecipients(i).AddressEntry.DisplayType <> olUser Then
      For n = 1 To xRecipients(i).AddressEntry.Members.Count
        If xRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Address)
        Else
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Name)
          xContactGroupFound = True
        End If
      Next
      xRecipients(i).Delete
    End If
  Next i
  xRecipients.ResolveAll
Loop
For Each xRecipient In xRecipients
  xAddress = xRecipient.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
  If VBA.Trim(xAddress) = "" Then
    xAddress = xRecipient.Address
  End If
  If xAddress = "yy@addin99.com" Then    'change this email address to your need
    If MsgBox("Do you want to email to " & Chr(34) & xAddress & Chr(34) & "?", vbExclamation + vbYesNo, "Kutools for Outlook") = vbNo Then
      xRecipient.Delete
    End If
  End If
Next
If xMail.Recipients.Count = 0 Then
  Cancel = True
End If
End Sub
Opombe: V zgornji kodi bi morali e-poštni naslov spremeniti v svojega.

3. Nato shranite in zaprite to okno kode. Če zdaj pri pošiljanju e-pošte določen e-poštni naslov najdemo na seznamu prejemnikov, se prikaže pozivno sporočilo, kot je prikazano na spodnjem posnetku zaslona. Kliknite Ne, bo določen e-poštni naslov takoj izbrisan.

4. Ko pošljete e-pošto, lahko preverite njene prejemnike v Poslani predmeti mapo, je bil določen e-poštni naslov izključen iz prejemnikov, glejte posnetek zaslona:


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije