Conas ríomhphoist amach a bhlocáil chuig seoladh sonrach in Outlook?

Go ginearálta, seolann Outlook ríomhphoist chuig gach gnáthsheoladh ríomhphoist, agus ní féidir leis bac a chur ar sheoladh ríomhphoist chuig seoladh ríomhphoist ar leith. Ach, uaireanta, b'fhéidir go gcaithfidh tú cosc a chur ar ríomhphoist a sheoladh chuig seoladh ríomhphoist ar leith in Outlook. Sa chás seo, tabharfaidh an teagasc seo isteach cód VBA chun an tasc seo a réiteach.

Cuir bac ar ríomhphoist amach chuig seoladh sonrach le cód VBA

Is féidir leis an gcód VBA seo a leanas bhfabhar a dhéanamh duit, déan mar seo le do thoil:

1. Seoladh an Outlook, ansin, coinnigh síos ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Ansin, cliceáil faoi dhó ThisOutlookSession ó na Tionscadal-Tionscadal1 pane, agus ansin, cóipeáil agus greamaigh an cód thíos isteach sa fhuinneog cód bán:

Cód VBA: Cuir bac ar ríomhphoist amach chuig seoladh sonrach

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

nótaí: Sa chód thuas, ba cheart duit an seoladh ríomhphoist a athrú chuig do chuid féin.

3. Ansin, sábháil agus dún an fhuinneog cód seo. Anois, nuair a sheolann tú ríomhphost, má tá an seoladh ríomhphoist ar leith le fáil sa liosta faighteoir, beidh teachtaireacht phras pop amach mar thíos screenshot a thaispeántar. Cliceáil Uimh, scriosfar an seoladh ríomhphoist sonrach láithreach.

4. Tar éis duit an ríomhphost a sheoladh, is féidir leat a faighteoirí a sheiceáil sa Míreanna Seolta fillteán, tá an seoladh ríomhphoist áirithe eisiata ó na faighteoirí, féach screenshot: