Kako spriječiti slanje e-pošte na određenu adresu e-pošte u vašem Outlooku

Mnogi se korisnici nadaju da će blokirati slučajno slanje e-pošte na određenu adresu e-pošte u programu Outlook. Stoga ćemo u ovom članku predstaviti metodu za njegovu realizaciju.

Outlook ne nudi izvorne značajke za blokiranje slanja e-pošte na određenu adresu e-pošte. Stoga, ako to želite učiniti, potrebno je malo skriptiranja. U nastavku ćemo podijeliti takav dio VBA koda. Ako ne znate kako koristiti VBA, možete pročitati prethodnu objavu – „Kako pokrenuti VBA kod u vašem Outlooku".

Spriječite slanje e-pošte na određenu adresu e-pošte

1. Najprije pristupite uređivaču Outlook VBA putem “Alt + F11”.
2. Zatim stavite sljedeći kod u projekt "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. Nakon toga izađite iz prozora "Microsoft Visual Basic za aplikacije".
4. Eventualno pokušajte prema sljedećim koracima.

• Za početak sastavite e-mail i unesite primatelje.
• Zatim kliknite gumb "Pošalji".
• Makronaredba će odmah proširiti grupe kontakata u primateljima ako postoje i otkriti sadrže li primatelji određenu adresu e-pošte.
• Ako je adresa pronađena, dobit ćete poruku kao što je prikazano na sljedećoj slici.
• Ako odaberete "Ne", određena adresa e-pošte bit će odmah izbrisana.
• Nakon što je pošta poslana, možete provjeriti njezine primatelje, koji definitivno ne sadrže konkretnu adresu e-pošte.

Popravite oštećenu Outlook datoteku

Je li vaša Outlook datoteka ikada oštećena? To je, priznajem, jedan od najneugodnijih problema u Outlooku. Kada ste izloženi tome, morate manipulirati PST popravak, što je pomalo čvornato. Kao i obično, prvi put ćete razmišljati o korištenju Scanpsta. Ali, nažalost, u takvim slučajevima može zakazati. Vaše mjesto bi trebalo biti ili iskusniji alat, npr DataNumen Outlook Repair, ili profesionalnu uslugu oporavka PST-a.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql popravak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com