Question : Anti-Spam embrochable (perspectives 2007)

Je recherche des perspectives d'anti-Spam embrochables. Le programme doit pouvoir faire ce qui suit : le

It doit class= ONLY détecter le Spam des mots le class= que I avoir entered.
It doit automatiquement supprimer tous les email contenant mon mot prédéfini list.


If vous avez n'importe quelle information qui pourrait m'aider dans ma chasse pour un programme comme ceci, svp respond. class= de

Réponse : Anti-Spam embrochable (perspectives 2007)

Vous êtes bienvenu.

Voici le code pour ceci.  Il recherche le sujet et le corps de message les mots que vous spécifiez.  Vous pouvez employer ceci sur autant de PCs pendant que vous voulez.

Suivre ces instructions de l'employer.

1.  Commencer les perspectives
2.  Cliquer les outils > le macro > le rédacteur de Visual Basic
3.  Sinon déjà augmenté, augmenter les objets de perspectives de Microsoft Office et cliquer dessus ThisOutlookSession
4.  Copier le code de la boîte d'extrait de code et le coller dans le carreau droit de la fenêtre de rédacteur du VB des perspectives
5.  Éditer le code comme nécessaire.  J'ai inclus des lignes de commentaire là où que quelque chose a besoin ou peut changer
6.  Cliquer l'icône de disquette sur la barre porte-outils pour sauver les changements
7.  Fermer le rédacteur de VB
8.  Cliquer les outils > le centre de confiance
9.  Cliquer la macro sécurité
10. Placer la macro sécurité aux « avertissements pour tous les macros »
11. Cliquer l'OK
12. Clôturer les perspectives
13. Commencer les perspectives.  Les perspectives montreront un avertissement de dialogue-boîte que ThisOutlookSession contient des macros et demander si vous voulez leur permettre de fonctionner.  Dire oui.

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 :

Obscurcir l'olkInbox de WithEvents comme Outlook.Items Application_Quit secondaire privé () Placer l'olkInbox = rien Finir le sous-marin Application_Startup secondaire privé () Placer l'olkInbox = le Session.GetDefaultFolder (olFolderInbox). Articles Sous-marin d'extrémité olkInbox_ItemAdd secondaire privé (article de ByVal comme objet) S'Item.Class = puis olMail Article de SpamChecker Finir si Finir le sous-marin Substrater SpamChecker (l'article comme Outlook.MailItem) « Sur la prochaine ligne éditer la liste de mots-clés comme désirée. Être sûr de séparer chaque mot avec a | caractère. » MOTS-CLÉS de Const = « viagra|cialis|prescription|pharmacie|phizer » Faible objRegEx comme objet, colMatches comme objet, bolSpam comme booléen Placer l'objRegEx = le CreateObject (« VBscript.RegExp ») Avec l'objRegEx .IgnoreCase = rectifient . Modèle = MOTS-CLÉS . Global = rectifier Finir avec Placer les colMatches = l'objRegEx.Execute (Item.Subject) Si les colMatches > 0 puis bolSpam = rectifient Placer les colMatches = l'objRegEx.Execute (Item.Body) Si colMatches.Count > 0 puis bolSpam = rectifient Si bolSpam puis Item.Delete Placer les colMatches = rien Placer l'objRegEx = rien Finir le sous-marin