Kako preprečiti pošiljanje e-pošte na določen e-poštni naslov v vašem Outlooku

Mnogi uporabniki upajo, da bodo blokirali nenamerno pošiljanje e-pošte na določen e-poštni naslov v Outlooku. Zato bomo v tem članku predstavili metodo za njegovo uresničitev.

Outlook ne ponuja izvornih funkcij za blokiranje pošiljanja e-poštnih sporočil na določen e-poštni naslov. Če želite to storiti, je potrebno nekaj skriptiranja. V nadaljevanju bomo delili takšen del kode VBA. Če ne veste, kako uporabljati VBA, si lahko preberete prejšnjo objavo – “Kako zagnati kodo VBA v Outlooku".

Preprečite pošiljanje e-pošte na določen e-poštni naslov

1. Najprej odprite urejevalnik Outlook VBA prek »Alt + F11«.
2. Nato v projekt »ThisOutlookSession« vstavite naslednjo kodo.

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. Po tem zapustite okno »Microsoft Visual Basic for Applications«.
4. Sčasoma poskusite z naslednjimi koraki.

• Za začetek sestavite e-poštno sporočilo in vnesite prejemnike.
• Nato kliknite gumb »Pošlji«.
• Makro bo takoj razširil skupine stikov v prejemnikih, če obstajajo, in ugotovil, ali prejemniki vsebujejo določen e-poštni naslov.
• Če je naslov najden, boste prejeli sporočilo, kot je prikazano na naslednji sliki.
• Če izberete »Ne«, bo določen e-poštni naslov takoj izbrisan.
• Ko je pošta poslana, lahko preverite njene prejemnike, ki zagotovo ne vsebujejo določenega e-poštnega naslova.

Popravite poškodovano Outlookovo datoteko

Je bila vaša Outlookova datoteka kdaj poškodovana? To je nedvomno najbolj nadležna težava v Outlooku. Ko ste izpostavljeni tej težavi, morate z njo manipulirati. Popravilo PST, kar je nekoliko zavozlano. Kot običajno boste prvič razmišljali o uporabi Scanpsta. Toda na žalost lahko v takih primerih ne uspe. Vaše letovišče bi moralo biti bolj izkušeno orodje, npr DataNumen Outlook Repair, ali profesionalna storitev za obnovitev PST.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com