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

Ինչպե՞ս արգելափակել Outlook-ում ելքային նամակները կոնկրետ հասցեով:

Ընդհանուր առմամբ, Outlook-ը նամակներ է ուղարկում բոլոր նորմալ էլ. հասցեներին և չի կարող արգելափակել էլփոստի որոշակի հասցեով էլ. Բայց, երբեմն, ձեզ հարկավոր է կանխել Outlook-ում էլփոստի որոշակի հասցեով նամակներ ուղարկելը: Այս դեպքում այս ձեռնարկը կներկայացնի VBA կոդ այս խնդիրը լուծելու համար:


Արգելափակել ելքային նամակները կոնկրետ հասցեով VBA կոդով

Հետևյալ VBA կոդը կարող է ձեզ լավություն անել, խնդրում ենք անել այսպես.

1. Գործարկեք Outlook-ը, այնուհետև սեղմեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2, Հետո կրկնակի կտտացրեք ԱյսOutlookSession- ը - ից Projectրագիր-Projectրագիր 1 պատուհան, այնուհետև պատճենեք և տեղադրեք ստորև բերված կոդը դատարկ կոդի պատուհանում.

VBA կոդ. Արգելափակել ելքային նամակները կոնկրետ հասցեով

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
ՆշումՎերոնշյալ կոդում դուք պետք է փոխեք էլփոստի հասցեն ձեր սեփականին:

3. Այնուհետև պահեք և փակեք այս ծածկագրի պատուհանը: Այժմ, նամակ ուղարկելիս, եթե կոնկրետ էլփոստի հասցեն գտնվի հասցեատերերի ցանկում, արագ հաղորդագրություն կհայտնվի, ինչպես ցույց է տրված ստորև նշված սքրինշոթը: Սեղմել Ոչ, կոնկրետ էլփոստի հասցեն անմիջապես կջնջվի։

4. Նամակն ուղարկելուց հետո կարող եք ստուգել դրա հասցեատերերին Ուղարկված նյութեր թղթապանակում, որոշակի էլփոստի հասցեն բացառված է հասցեատերերից, տես սքրինշոթը.


Kutools Outlook- ի համար. 100 առաջադեմ առանձնահատկություններ է բերում Outlook- ին և շատ ավելի հեշտացնում աշխատանքը:

  • Auto CC / BCC կանոններով `էլ. նամակ ուղարկելիս; Ավտոմեքենաների փոխանցում Բազմաթիվ նամակներ ըստ սովորույթի; Ավտոմատ պատասխան առանց փոխանակման սերվերի և ավելի ավտոմատ հատկությունների ...
  • Նախազգուշացում BCC- ի համար - ցույց տալ հաղորդագրությունը, երբ փորձում ես պատասխանել բոլորին եթե ձեր փոստի հասցեն գտնվում է BCC ցուցակում; Հիշեցրեք հավելվածները բաց թողնելիսև ավելին հիշեցնում են հատկությունները ...
  • Պատասխանեք (բոլորը) փոստի խոսակցության բոլոր կցորդներով; Պատասխանեք շատ նամակների վայրկյանների ընթացքում; Ավտոմատ ավելացնել ողջույնները երբ պատասխանել; Ավելացնել ամսաթիվը վերնագրում ...
  • Կցման գործիքներ. Կառավարեք բոլոր կցորդները բոլոր փոստերում, Ավտոմատ անջատում, Սեղմել բոլորը, Վերանվանել բոլորը, պահպանել բոլորը ... Արագ զեկույց, Հաշվեք ընտրված նամակները...
  • Հզոր անպիտան նամակներ ըստ սովորույթի; Հեռացրեք կրկնօրինակ նամակները և կոնտակտները... Հնարավորություն տվեք Outlook- ում ավելի խելացի, արագ և լավ կատարել:
shot kutools Outlook kutools էջանիշ 1180x121
shot kutools Outlook kutools գումարած ներդիր 1180x121
 
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (0)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր