Outlook-da xüsusi bir e-poçt ünvanına e-poçt göndərilməsinin qarşısını necə almaq olar

Bir çox istifadəçi Outlook-da müəyyən e-poçt ünvanına təsadüfən e-poçt göndərilməsinin qarşısını almağa ümid edir. Beləliklə, bu yazıda onu həyata keçirmək üçün bir üsul təqdim edəcəyik.

Outlook müəyyən bir e-poçt ünvanına e-poçt göndərilməsini bloklamaq üçün yerli xüsusiyyətlər təqdim etmir. Buna görə də, bunu həyata keçirmək istəyirsinizsə, bir az skript yazmaq tələb olunur. İndi isə, aşağıdakı hissələrdə VBA kodunun belə bir hissəsini paylaşacağıq. VBA-dan necə istifadə edəcəyinizi bilmirsinizsə, əvvəlki yazını oxuya bilərsiniz – “Outlook-da VBA kodunu necə işlətmək olar".

Xüsusi E-poçt ünvanına e-poçt göndərilməsinin qarşısını alın

1. Əvvəlcə "Alt + F11" vasitəsilə Outlook VBA redaktoruna daxil olun.
2. Sonra aşağıdakı kodu “ThisOutlookSession” layihəsinə qoyun.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim ContactGroupFound As Boolean
    Dim i, n As Long
    Dim objRecipient As Outlook.Recipient
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Expand the contact groups in Recipients
       ContactGroupFound = True
       Do While ContactGroupFound = True
          Set objRecipients = objMail.Recipients
          ContactGroupFound = False
 
          For i = objRecipients.Count To 1 Step -1
              If objRecipients(i).AddressEntry.DisplayType <> olUser Then
                 For n = 1 To objRecipients(i).AddressEntry.Members.Count
                     If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        ContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          Next i
          objRecipients.ResolveAll
       Loop
 
       'Remove specific email address
       For Each objRecipient In objRecipients
           If objRecipient.Address = "shelly@datanumen.com" Then
              If MsgBox("Do you want to email to " & Chr(34) & "shelly@datanumen.com" & Chr(34) & "?", vbExclamation + vbYesNo) = vbNo Then
                 objRecipient.Delete
              End If
           End If
       Next
    End If
End Sub

3. Bundan sonra "Proqramlar üçün Microsoft Visual Basic" pəncərəsindən çıxın.
4. Nəhayət, aşağıdakı addımlarla cəhd edin.

• Başlamaq üçün e-poçt yazın və alıcıları doldurun.
• Sonra "Göndər" düyməsini basın.
• Dərhal makro, əgər varsa, alıcılardakı əlaqə qruplarını genişləndirmək üçün işləyəcək və alıcılarda xüsusi e-poçt ünvanının olub-olmadığını öyrənəcək.
• Ünvan tapılarsa, aşağıdakı şəkildə göstərildiyi kimi bir mesaj alacaqsınız.
• “Xeyr” seçsəniz, xüsusi e-poçt ünvanı dərhal silinəcək.
• Məktub göndərildikdən sonra siz onun alıcılarını yoxlaya bilərsiniz, hansı ki, burada konkret e-poçt ünvanı yoxdur.

Zədələnmiş Outlook Faylınızı Təmir edin

Outlook faylınız heç zədələnibmi? Etiraf etmək lazımdır ki, bu, Outlook-dakı ən qıcıqlandırıcı problemlərdir. Buna məruz qaldıqda, manipulyasiya etməlisiniz PST təmiri, bu bir az düyünlüdür. Həmişə olduğu kimi, ilk dəfə Scanpst istifadə etməyi düşünəcəksiniz. Ancaq təəssüf ki, belə hallarda uğursuz ola bilər. Sizin kurort ya daha təcrübəli alət olmalıdır, məsələn DataNumen Outlook Repair, və ya peşəkar PST bərpa xidməti.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql təmiri və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com