Ako zabrániť odosielaniu e-mailov na konkrétnu e-mailovú adresu v programe Outlook

Mnoho používateľov dúfa, že v Outlooku zablokuje náhodné odosielanie e-mailov na konkrétnu e-mailovú adresu. V tomto článku teda predstavíme metódu jej realizácie.

Outlook neposkytuje natívne funkcie na blokovanie odosielania e-mailov na konkrétnu e-mailovú adresu. Preto, ak si to chcete uvedomiť, je potrebné trochu skriptovania. V nasledujúcom texte sa s vami podelíme o takýto kúsok kódu VBA. Ak neviete, ako používať VBA, môžete si prečítať predchádzajúci príspevok – „Ako spustiť kód VBA v programe Outlook".

Zabráňte odosielaniu e-mailov na konkrétnu e-mailovú adresu

1. Najprv otvorte editor VBA aplikácie Outlook pomocou „Alt + F11“.
2. Potom vložte nasledujúci kód do projektu „ThisOutlookSession“.

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. Potom ukončite okno „Microsoft Visual Basic for Applications“.
4. Nakoniec to vyskúšajte podľa nasledujúcich krokov.

• Na začiatok napíšte e-mail a vyplňte príjemcov.
• Potom kliknite na tlačidlo „Odoslať“.
• Makro bude naraz pracovať na rozšírení skupín kontaktov u príjemcov, ak existujú, a zistení, či príjemcovia obsahujú konkrétnu e-mailovú adresu.
• Ak sa adresa nájde, dostanete správu, ako je znázornené na nasledujúcom obrázku.
• Ak vyberiete možnosť „Nie“, konkrétna e-mailová adresa bude okamžite odstránená.
• Po odoslaní pošty môžete skontrolovať jej príjemcov, ktorí rozhodne neobsahujú konkrétnu e-mailovú adresu.

Opravte poškodený súbor programu Outlook

Poškodil sa vám niekedy súbor v programe Outlook? To je nepochybne jeden z najnepríjemnejších problémov v programe Outlook. Keď sa mu stanete vystavení, musíte s ním manipulovať. Oprava PST, čo je trochu zauzlené. Ako obvykle, o použití Scanpst budete premýšľať po prvýkrát. Ale, bohužiaľ, v takýchto prípadoch môže zlyhať. Váš rezort by mal byť buď skúsenejším nástrojom DataNumen Outlook Repairalebo profesionálna služba obnovy PST.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane oprava sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S