Sut i rwystro negeseuon e-bost sy'n mynd allan i gyfeiriad penodol yn Outlook?

Yn gyffredinol, mae Outlook yn anfon e-byst i bob cyfeiriad e-bost arferol, ac ni all rwystro anfon e-byst i gyfeiriad e-bost penodol. Ond, weithiau, efallai y bydd angen i chi atal anfon e-byst i gyfeiriad e-bost penodol yn Outlook. Yn yr achos hwn, bydd y tiwtorial hwn yn cyflwyno cod VBA ar gyfer datrys y dasg hon.

Rhwystro e-byst sy'n mynd allan i gyfeiriad penodol gyda chod VBA

Gall y cod VBA canlynol wneud ffafr i chi, gwnewch fel hyn:

1. Lansio'r Outlook, yna, dal i lawr ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yna, cliciwch ddwywaith SesiwnOutlook oddi wrth y Prosiect-Prosiect1 cwarel, ac yna, copïwch a gludwch y cod isod i'r ffenestr cod gwag:

Cod VBA: Rhwystro e-byst sy'n mynd allan i gyfeiriad penodol

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 = "" 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

Nodyn: Yn y cod uchod, dylech newid y cyfeiriad e-bost i'ch un chi.

3. Yna, cadwch a chau'r ffenestr cod hon. Nawr, wrth anfon e-bost, os canfyddir y cyfeiriad e-bost penodol yn y rhestr derbynwyr, bydd neges brydlon yn ymddangos fel y dangosir y sgrin isod. Cliciwch Na, bydd y cyfeiriad e-bost penodol yn cael ei ddileu ar unwaith.

4. Ar ôl anfon yr e-bost, gallwch wirio ei dderbynwyr yn y Eitemau wedi'u hanfon ffolder, mae'r cyfeiriad e-bost penodol wedi'i eithrio o'r derbynwyr, gweler y sgrinlun: