Jak zabránit odesílání e-mailů na konkrétní e-mailovou adresu v aplikaci Outlook

Mnoho uživatelů doufá, že zabrání náhodnému odesílání e-mailů na konkrétní e-mailovou adresu v Outlooku. V tomto článku tedy představíme metodu jeho realizace.

Outlook nenabízí nativní funkce pro blokování odesílání e-mailů na konkrétní e-mailovou adresu. Pokud si to tedy chcete uvědomit, je potřeba trochu skriptování. V následujícím textu se s vámi podělíme o takový kousek kódu VBA. Pokud nevíte, jak používat VBA, můžete si přečíst předchozí příspěvek – „Jak spustit kód VBA ve vašem Outlooku".

Zabraňte odesílání e-mailů na konkrétní e-mailovou adresu

1. Nejprve otevřete editor Outlook VBA pomocí „Alt + F11“.
2. Poté vložte následující 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. Poté zavřete okno „Microsoft Visual Basic for Applications“.
4. Nakonec to zkuste podle následujících kroků.

• Nejprve vytvořte e-mail a vyplňte příjemce.
• Poté klikněte na tlačítko „Odeslat“.
• Makro najednou rozbalí skupiny kontaktů v příjemcích, pokud existují, a zjistí, zda příjemci obsahují konkrétní e-mailovou adresu.
• Pokud je adresa nalezena, zobrazí se zpráva, jak ukazuje následující obrázek.
• Pokud vyberete možnost „Ne“, konkrétní e-mailová adresa bude okamžitě odstraněna.
• Po odeslání e-mailu můžete zkontrolovat jeho příjemce, kteří rozhodně neobsahují konkrétní e-mailovou adresu.

Opravte poškozený soubor aplikace Outlook

Poškodil se vám někdy soubor Outlooku? To je nepochybně jeden z nejnepříjemnějších problémů v Outlooku. Když se mu stáváte obětí, musíte s ním manipulovat. Oprava PST, což je trochu svázané. Jako obvykle budete o používání Scanpst uvažovat poprvé. V takových případech však bohužel může selhat. Vaše středisko by mělo být buď zkušenějším nástrojem DataNumen Outlook Repairnebo profesionální služba pro obnovení PST.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně oprava sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com