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

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


Kutools for Outlook - Tugann sé 100 Gné Ard le Outlook, agus Déan an Obair i bhfad Níos Éasca!

  • Auto CC / BCC de réir rialacha agus ríomhphost á sheoladh; Auto Ar Aghaidh Ríomhphoist Il de réir saincheaptha; Freagra Auto gan freastalaí malairte, agus gnéithe níos uathoibríoch ...
  • Rabhadh BCC - taispeáin teachtaireacht nuair a dhéanann tú iarracht gach ceann a fhreagairt má tá do sheoladh ríomhphoist ar liosta BCC; Meabhraigh Nuair a bhíonn Ceangaltáin ar Iarraidh, agus gnéithe meabhrúcháin níos mó ...
  • Freagra (Gach) Leis na Ceangaltáin Uile sa chomhrá poist; Freagair go leor Ríomhphost i soicindí; Beannacht Auto Cuir leis nuair a thabharfar freagra; Cuir Dáta leis san ábhar ...
  • Uirlisí Ceangail: Bainistigh Gach Ceangaltán i ngach Ríomhphost, Auto Dícheangail, Comhbhrú Gach, Athainmnigh Uile, Sábháil Gach ... Tuarascáil Thapa, Líon Ríomhphoist Roghnaithe...
  • Ríomhphoist Cumhachtacha Junk de réir saincheaptha; Bain Ríomhphoist agus Teagmhálacha Dúblacha... Cuir ar do chumas déanamh níos cliste, níos gasta agus níos fearr in Outlook.
kutools lámhaigh dearcadh kutools tab 1180x121
kutools lámhaigh dearcadh kutools móide cluaisín 1180x121
 
Sórtáil tuairimí de réir
Comments (0)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL