Questione : Anti-Spam alimentabile (prospettiva 2007)

Sto cercando una prospettiva dello anti-Spam alimentabile. Il programma deve potere fare quanto segue: il

It deve class= ONLY rilevare lo Spam dalle parole che il class= I avere entered.
It deve cancellare automaticamente tutti i email che contengono la mia parola predefinita list.


If avete qualunque informazione che potrebbe aiutarla nella mia caccia per un programma come questa, prego respond. class= del

Risposta : Anti-Spam alimentabile (prospettiva 2007)

Siete benvenuto.

Qui è il codice per questo.  Cerca sia l'oggetto che il corpo di messaggi le parole che specificate.  Potete usare questo su altretanti pc mentre volete.

Seguire queste istruzioni usarlo.

1.  Iniziare la prospettiva
2.  Scattare gli attrezzi > la macro > il redattore del Visual Basic
3.  Se non già in espansione, ampliare gli oggetti di prospettiva di Microsoft Office e scattare sopra ThisOutlookSession
4.  Copiare il codice dalla scatola del frammento di codice ed incollarlo nella lastra di vetro destra della finestra del redattore di VB della prospettiva
5.  Pubblicare il codice come stato necessario.  Ho compreso le linee di commento laddove che qualcosa ha bisogno di o che può cambiare
6.  Scattare l'icona del dischetto sull'tavoletta porta-utensili per conservare i cambiamenti
7.  Chiudere il redattore di VB
8.  Scattare gli attrezzi > il centro di fiducia
9.  Scattare la sicurezza a macroistruzione
10. Fissare la sicurezza a macroistruzione “agli avvertimenti per tutte le macro„
11. Scattare l'APPROVAZIONE
12. Chiudere la prospettiva
13. Iniziare la prospettiva.  La prospettiva visualizzerà un avvertimento della dialogo-scatola che ThisOutlookSession contiene le macro e chiedere se volete permetterli di funzionare.  Dire sì.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

Oscurare il olkInbox di WithEvents come Outlook.Items

Application_Quit secondario riservato ()
    Regolare il olkInbox = niente
Concludere il sommergibile

Application_Startup secondario riservato ()
    Regolare il olkInbox = Session.GetDefaultFolder (olFolderInbox). Articoli
Sommergibile dell'estremità

olkInbox_ItemAdd secondario riservato (articolo di ByVal come oggetto)
    Se Item.Class = olMail allora
        Articolo di SpamChecker
    Concluder se
Concludere il sommergibile

Sub SpamChecker (articolo come Outlook.MailItem)
    “Sulla linea seguente pubblicare la lista delle parole chiavi come voluta.  Essere sicuro separare ogni parola con la a | carattere.„
    PAROLE CHIAVI di Const = “Viagra|cialis|prescrizione|farmacia|phizer„
    objRegEx fioco come oggetto, colMatches come oggetto, bolSpam come booleano
    Regolare il objRegEx = CreateObject (“VBscript.RegExp„)
    Con objRegEx
        .IgnoreCase = allineano
        . Modello = PAROLE CHIAVI
        . Globale = allineare
    Concluder con
    Regolare i colMatches = objRegEx.Execute (Item.Subject)
    Se i colMatches > 0 allora bolSpam = allineano
    Regolare i colMatches = objRegEx.Execute (Item.Body)
    Se colMatches.Count > 0 allora bolSpam = allineano
    Se bolSpam allora Item.Delete
    Regolare i colMatches = niente
    Regolare il objRegEx = niente
Concludere il sommergibile
Altre soluzioni  
 
programming4us programming4us