none
Fool Users или сотрудники требующие избавить ящик от фильтрации RRS feed

  • Вопрос

  • Есть сабжевые люди, которые хотят получать все письма.

    что Вы делаете с такими(или сделали бы)))))) ? Ну вирусы срезать, это понятно, а спам? С учётом того что частенько письмо адресовано нескольким получателям...

    • Перемещено Tina_Tian 19 марта 2012 г. 5:00 forum merge (От:Exchange Server 2003/2000/5.5)
    27 октября 2006 г. 6:12

Ответы

  • Фильтр свой, самописный.

     

    Решил для себя так, если, письмо попадает под политику и политика запрещает доставку, то  из списка НЕ БЕЛЫХ, а именно ВОТ ЭТИХ юзеров проверяется Envelope Header . И из него удаляются адреса не из этого списка.

    Вот так:

     

    Private Function CheckFoolUsers(ByVal m As CDO.Message, ByVal list() As String) As Boolean

    Dim i As Integer

    Dim y As Integer

    Dim senders() As String

    Dim new_string As String = String.Empty

    senders = m.EnvelopeFields("http://schemas.microsoft.com/cdo/smtpenvelope/recipientlist").Value.ToString.Split(New String() {";"}, StringSplitOptions.RemoveEmptyEntries)

    For i = 0 To senders.GetUpperBound(0)

    For y = 0 To list.GetUpperBound(0)

    If senders(i) Like "SMTP:" & list(y) Then

    new_string &= senders(i) & ";"

    End If

    Next

    Next

    If new_string.Length > 0 Then

    m.EnvelopeFields("http://schemas.microsoft.com/cdo/smtpenvelope/recipientlist").Value = new_string

    m.EnvelopeFields.Update()

    Return True

    Else

    Return False

    End If

    End Function

    1 ноября 2006 г. 9:36

Все ответы

  • Это вполне нормальное желание, наш главный админ пожелал того же.

    В любом спам фильтре должен быть White list. В зависимости от используемого фильтра используется своя технология.

    В ORF, GFI, Kaspersky есть белые списки. В IMF не все так просто.  Существует море утилит для IMF работающих с белыми списками, хотя алгоритм проще не придумаешь.

    Нужно с каталога с заблокированными письмами переместить письма для пользователей из Whitelist в дирректорию Pickup. Письма дойдут до получателя. Все. Это делается на VB или скриптах. Я даже где то видел это в Инете.

    У меня написана утилита, которая проверяет каждые 15 минут все файлы в "пойманных" на вхождение строки. Если эта строка там есть, то программа копирует письмо в Pickup folder. Таким образом я могу делать Whitelist по отправителю, получателю и всему, что не закодировано в письме.

     

    Какой фильтр у Вас?

     

    27 октября 2006 г. 7:10
    Модератор
  • Если используются антиспамовые функции Exchange'а, то нужно указать почтовый адрес такого пользователя в списке под кнопкой Exception в on-line'вых листах блокировки (Block List) на вкладке Connection Filtering в свойствах папки Message Delivery в Global Settings. Почта на указанные в этом списке адреса не будет проверятся ни этим, ни остальными антиспамовыми механизмами.
    27 октября 2006 г. 9:08
  • Фильтр свой, самописный.

     

    Решил для себя так, если, письмо попадает под политику и политика запрещает доставку, то  из списка НЕ БЕЛЫХ, а именно ВОТ ЭТИХ юзеров проверяется Envelope Header . И из него удаляются адреса не из этого списка.

    Вот так:

     

    Private Function CheckFoolUsers(ByVal m As CDO.Message, ByVal list() As String) As Boolean

    Dim i As Integer

    Dim y As Integer

    Dim senders() As String

    Dim new_string As String = String.Empty

    senders = m.EnvelopeFields("http://schemas.microsoft.com/cdo/smtpenvelope/recipientlist").Value.ToString.Split(New String() {";"}, StringSplitOptions.RemoveEmptyEntries)

    For i = 0 To senders.GetUpperBound(0)

    For y = 0 To list.GetUpperBound(0)

    If senders(i) Like "SMTP:" & list(y) Then

    new_string &= senders(i) & ";"

    End If

    Next

    Next

    If new_string.Length > 0 Then

    m.EnvelopeFields("http://schemas.microsoft.com/cdo/smtpenvelope/recipientlist").Value = new_string

    m.EnvelopeFields.Update()

    Return True

    Else

    Return False

    End If

    End Function

    1 ноября 2006 г. 9:36