Pergunta : Anti-Spam de encaixe (probabilidade 2007)

Eu estou procurando uma probabilidade do anti-Spam de encaixe. O programa deve poder fazer o seguinte: o

It deve class= ONLY detetar o Spam das palavras que o class= I para ter entered.
It deve automaticamente suprimir de todos os email que contêm minha palavra predefinida list.


If você tem qualquer informação que poderia me ajudar em minha caça para um programa como esta, por favor respond. class= do

Resposta : Anti-Spam de encaixe (probabilidade 2007)

Você é bem-vindo.

Está aqui o código para este.  Procurara o assunto e o corpo de mensagens pelas palavras que você especific.  Você pode usar este em tantos como PCes enquanto você quer.

Seguir estas instruções para usá-lo.

1.  Começar a probabilidade
2.  Estalar ferramentas > macro > editor de Visual Basic
3.  Se não já expandido, expandir objetos da probabilidade de Microsoft Office e estalar sobre ThisOutlookSession
4.  Copiar o código da caixa da pequena notícia do código e colá-lo na placa right-hand da janela do editor de VB da probabilidade
5.  Editar o código como necessário.  Eu incluí linhas de comentário onde que algo precisa ou pode mudar
6.  Estalar o ícone da disquete na barra de ferramentas para conservar as mudanças
7.  Fechar o editor de VB
8.  Estalar ferramentas > centro da confiança
9.  Estalar a segurança macro
10. Ajustar a segurança macro aos “avisos para todos os macro”
11. Estalar a APROVAÇÃO
12. Fechar a probabilidade
13. Começar a probabilidade.  A probabilidade indicará um aviso da diálogo-caixa que ThisOutlookSession contem macro e perguntar se você quer permitir que funcionem.  Dizer sim.

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:

Escurecer o olkInbox de WithEvents como Outlook.Items

Application_Quit secundário confidencial ()
    Ajustar o olkInbox = nada
Terminar o submarino

Application_Startup secundário confidencial ()
    Ajustar o olkInbox = o Session.GetDefaultFolder (olFolderInbox). Artigos
Submarino da extremidade

olkInbox_ItemAdd secundário confidencial (artigo de ByVal como o objeto)
    Se Item.Class = olMail então
        Artigo de SpamChecker
    Terminar se
Terminar o submarino

Sub SpamChecker (o artigo como Outlook.MailItem)
    “Na linha seguinte editar a lista de palavras-chaves como desejada.  Ser certo separar cada palavra com a | caráter.”
    PALAVRAS-CHAVES de Const = “viagra|cialis|prescrição|farmácia|phizer”
    objRegEx não ofuscante como o objeto, colMatches como o objeto, bolSpam como bôoleano
    Ajustar o objRegEx = o CreateObject (“VBscript.RegExp”)
    Com objRegEx
        .IgnoreCase = retificam
        . Teste padrão = PALAVRAS-CHAVES
        . Global = retificar
    Terminar com
    Ajustar os colMatches = o objRegEx.Execute (Item.Subject)
    Se os colMatches > 0 então bolSpam = retificam
    Ajustar os colMatches = o objRegEx.Execute (Item.Body)
    Se colMatches.Count > 0 então bolSpam = retificam
    Se bolSpam então Item.Delete
    Ajustar colMatches = nada
    Ajustar o objRegEx = nada
Terminar o submarino
Outras soluções  
 
programming4us programming4us