Вопрос : Анти--Спам вставляемое (внешний вид 2007)

Я ищу внешний вид анти--спам вставляемый. Программа должна мочь сделать следующий:

It должно ONLY обнаружить спам от слов I иметь entered.
It должно автоматически уничтожить любые электронная почта содержа мое предопределенное слово list.


If вы имеете любую информацию smogла помочь мне в моей охоте для программы как это, пожалуйста respond. class=

Ответ : Анти--Спам вставляемое (внешний вид 2007)

Вы радушны.

Здесь Кодий для этого.  Оно ищет и вопрос и содержимое сообщения для слов, котор вы определяете.  Вы можете использовать это на так много PCs по мере того как вы хотите.

Последуйте за этими инструкциями использовать его.

1.  Начните внешний вид
2.  Щелкните инструментами > макросом > редактором Висуал Басич
3.  Если уже расширено, расширьте предметы внешнего вида офиса Майкрософт и щелкните дальше ThisOutlookSession
4.  Скопируйте Кодего от коробки фрагмента Кодего и наклеите его в right-hand форточку окна редактора VB внешнего вида
5.  Редактируйте Кодего как нужно.  Я включил линии комментария где бы ни, котор что-то или может изменить
6.  Щелкните иконой дискета на панели инструментов для того чтобы сохранить изменения
7.  Закройте редактора VB
8.  Щелкните инструментами > центром доверия
9.  Щелкните Macro обеспеченностью
10. Установите Macro обеспеченность к «предупреждениям для всех макросов»
11. Щелкните О'КЕЙОМ
12. Закройте внешний вид
13. Начните внешний вид.  Внешний вид покажет предупреждение диалог-коробки что ThisOutlookSession содержит макросы и спрашивать если вы хотите позволить их побежать.  Скажите да.

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:

Затемните olkInbox WithEvents как Outlook.Items

Приватное Sub Application_Quit ()
    Установите olkInbox = ничего
Закончите подводную лодку

Приватное Sub Application_Startup ()
    Установите olkInbox = Session.GetDefaultFolder (olFolderInbox). Детали
Подводная лодка конца

Приватное Sub olkInbox_ItemAdd (деталь ByVal как предмет)
    Если Item.Class = olMail после этого
        Деталь SpamChecker
    Закончитесь если
Закончите подводную лодку

Sub SpamChecker (деталь как Outlook.MailItem)
    «На следующей линии редактируйте список ключевых слов как пожелано.  Будьте уверен отделить каждое слово с a | характер.»
    КЛЮЧЕВЫЕ СЛОВА Const = «viagra|cialis|рецепт|фармация|phizer»
    Тусклое objRegEx как предмет, colMatches как предмет, bolSpam как булевско
    Установите objRegEx = CreateObject («VBscript.RegExp»)
    С objRegEx
        .IgnoreCase = True
        . Картина = КЛЮЧЕВЫЕ СЛОВА
        . Глобально = True
    Закончитесь с
    Установите colMatches = objRegEx.Execute (Item.Subject)
    Если colMatches > 0 после этого bolSpam = True
    Установите colMatches = objRegEx.Execute (Item.Body)
    Если colMatches.Count > 0 после этого bolSpam = True
    Если bolSpam после этого Item.Delete
    Установите colMatches = ничего
    Установите objRegEx = ничего
Закончите подводную лодку
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us