none
Добавление Заявление об отказе RRS feed

  • Вопрос

  • Используя вот это
    http://support.microsoft.com/kb/317680
    Я попробовал добаить заявление об отказе. Но при получении письма к примеру на майл ру  ничего не появляется.
    1. Где может крыться косяк?
    2.Где именно дабовлять сам текст?

    <SCRIPT LANGUAGE="VBScript">
    Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
    TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Disclaimer added in a VBScript."
    HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>Sample Disclaimer added in a VBScript."

    If Msg.HTMLBody <> "" Then
    'Search for the "</body>" tag and insert our disclaimer before that tag.
    pos = InStr(1, Msg.HTMLBody, "</body>", vbTextCompare)
    szPartI = Left(Msg.HTMLBody, pos - 1)
    szPartII = Right(Msg.HTMLBody, Len(Msg.HTMLBody) - (pos - 1))
    Msg.HTMLBody = szPartI + HTMLDisclaimer + szPartII
    End If

    If Msg.TextBody <> "" Then
    Msg.TextBody = Msg.TextBody & vbCrLf & TextDisclaimer & vbCrLf
    End If

    'Commit the content changes to the transport ADO Stream object.
    Msg.DataSource.Save ' Commit the changes into the transport Stream

    EventStatus = cdoRunNextSink
    End Sub
    </SCRIPT>

    • Перемещено Tina_Tian 19 марта 2012 г. 1:01 forum merge (От:Exchange Server 2003/2000/5.5)
    17 ноября 2008 г. 12:49

Все ответы

  •  Aleksey Potapov (aptv) написано:
    Используя вот это
    http://support.microsoft.com/kb/317680
    Я попробовал добаить заявление об отказе. Но при получении письма к примеру на майл ру  ничего не появляется.
    1. Где может крыться косяк?
    2.Где именно дабовлять сам текст?

    <SCRIPT LANGUAGE="VBScript">
    Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
    TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Disclaimer added in a VBScript."
    HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>Sample Disclaimer added in a VBScript."

    If Msg.HTMLBody <> "" Then
    'Search for the "</body>" tag and insert our disclaimer before that tag.
    pos = InStr(1, Msg.HTMLBody, "</body>", vbTextCompare)
    szPartI = Left(Msg.HTMLBody, pos - 1)
    szPartII = Right(Msg.HTMLBody, Len(Msg.HTMLBody) - (pos - 1))
    Msg.HTMLBody = szPartI + HTMLDisclaimer + szPartII
    End If

    If Msg.TextBody <> "" Then
    Msg.TextBody = Msg.TextBody & vbCrLf & TextDisclaimer & vbCrLf
    End If

    'Commit the content changes to the transport ADO Stream object.
    Msg.DataSource.Save ' Commit the changes into the transport Stream

    EventStatus = cdoRunNextSink
    End Sub
    </SCRIPT>


     

    Каким клиентом пользуетесь для отправки ?

    17 ноября 2008 г. 13:03
  • Outlook 2007
    17 ноября 2008 г. 13:16
  •  Aleksey Potapov (aptv) написано:
    Outlook 2007

     

    а вы проверьте простым smtp клиентом, типа OE , да и тот же самый OL2007 можно настроить на smtp\imap(pop)

     

    + внимательно читайте статью

     

    "

    Примечание. При использовании MAPI-клиента, например Microsoft Outlook, для отправки электронных сообщений получателю будет доставлено сообщение без изменений. Это связано с тем, что сообщения, отправляемые при помощи MAPI, имеют другой формат (не SMTP) в момент срабатывания приемника событий транспорта SMTP. В результате изменения, вносимые программным кодом события, не сохраняются"

    17 ноября 2008 г. 13:20
  • Я хотел бы уточнить один момент. Дел в том что я произвожу действия на единственно сервере Exchange в сети. Далее идёт шлюз интернета. У меня включено оповещение о доставке и когда я отправляю письмо к примеру на mail.ru то приходит ответ что письмо relayed . Возможно что то не так с smtp шлюзом....возможно я не в тот огород лезу....
    17 ноября 2008 г. 13:29
  •  Aleksey Potapov (aptv) написано:
    Я хотел бы уточнить один момент. Дел в том что я произвожу действия на единственно сервере Exchange в сети. Далее идёт шлюз интернета. У меня включено оповещение о доставке и когда я отправляю письмо к примеру на mail.ru то приходит ответ что письмо relayed . Возможно что то не так с smtp шлюзом....возможно я не в тот огород лезу....

     

    а что вы хотите добиться то ? а то из последнего сообщения вообще ничего не ясно

    17 ноября 2008 г. 13:33
  • Итог должен быть такой - добавлен автоматически текст в письмо.
    17 ноября 2008 г. 13:37
  •  Aleksey Potapov (aptv) написано:
    Итог должен быть такой - добавлен автоматически текст в письмо.

     

    А к чему было приведено то , что в прошлом посте ?

     

    В какое письмо ?

    17 ноября 2008 г. 13:42
  • в письмо отправленное из локальное сети во внешний мир.
    17 ноября 2008 г. 13:46
  • В каком именно месте в скрипте добавляется текст?
    17 ноября 2008 г. 13:50
  •  Aleksey Potapov (aptv) написано:
    В каком именно месте в скрипте добавляется текст?

     

    Msg.HTMLBody или же textBody

     

    и еще раз - внимательно перечитайте ссылку , и протестируйте не с mapi клиентом

    17 ноября 2008 г. 14:02
  • ткните носом плиз....
    <SCRIPT LANGUAGE="VBScript">
    Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
       TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Disclaimer added in a VBScript."
       HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>Sample Disclaimer added in a VBScript."

       If Msg.HTMLBody <> "" Then
          'Search for the "</body>" tag and insert our disclaimer before that tag.
          pos = InStr(1, Msg.HTMLBody, "</body>", vbTextCompare)
          szPartI = Left(Msg.HTMLBody, pos - 1)
          szPartII = Right(Msg.HTMLBody, Len(Msg.HTMLBody) - (pos - 1))
          Msg.HTMLBody = szPartI + HTMLDisclaimer + szPartII
       End If

       If Msg.TextBody <> "ТУТ?" Then
          Msg.TextBody = Msg.TextBody & vbCrLf & TextDisclaimer & vbCrLf
       End If
       
       'Commit the content changes to the transport ADO Stream object.
       Msg.DataSource.Save ' Commit the changes into the transport Stream

       EventStatus = cdoRunNextSink
    End Sub
    </SCRIPT>
    17 ноября 2008 г. 14:06
  • Msg.HTMLBody = szPartI + HTMLDisclaimer + szPartII

     

    либо

     

     

    Msg.TextBody = Msg.TextBody & vbCrLf & TextDisclaimer & vbCrLf

     

    и далее Msg.DataSource.Save ' Commit the changes into the transport Stream

     

     

    17 ноября 2008 г. 14:10
  • и далее Msg.DataSource.Save ' Commit the changes into the transport Stream

     

    а тут что писать?

    Можете просто сделать пример привести?

    Цельный скрипт , которй Выше....С необходимыми изменениями.....пардон за тупость)



    Кстати.....через Outlook Express не могу подсоединится к exchamge через imap - говорит Сервер IMAP выдал неопознанное приветствие.Код ошибки 80004005

    17 ноября 2008 г. 14:14
  •  Aleksey Potapov (aptv) написано:

    и далее Msg.DataSource.Save ' Commit the changes into the transport Stream

     

    а тут что писать?

     

    Здесь , ничего - изменения (скажем так) сохраняются\вносятся просто напросто в письмо

     

     Aleksey Potapov (aptv) написано:

    Можете просто сделать пример привести?

    Цельный скрипт , которй Выше....С необходимыми изменениями.....пардон за тупость)

     

    цельный работающий скрипт - вы сами привели , о каких собственно необходимых изменениях вы речь ведете - ума не приложу

     

     

     

     

    17 ноября 2008 г. 14:29
  • Я имел ввиду вот это



    <SCRIPT LANGUAGE="VBScript">
    Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
    TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Disclaimer added in a VBScript."
    HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>Sample Disclaimer added in a VBScript."

    If Msg.HTMLBody <> "" Then
    'Search for the "</body>" tag and insert our disclaimer before that tag.
    pos = InStr(1, Msg.HTMLBody, "</body>", vbTextCompare)
    szPartI = Left(Msg.HTMLBody, pos - 1)
    szPartII = Right(Msg.HTMLBody, Len(Msg.HTMLBody) - (pos - 1))
    Msg.HTMLBody = szPartI + HTMLDisclaimer + szPartII
    End If

    If Msg.TextBody <> "" Then
    Msg.TextBody = ТЕКСТ ОТКАЗА Бла, Бла, Бла...
    End If

    'Commit the content changes to the transport ADO Stream object.
    Msg.DataSource.Save ' Commit the changes into the transport Stream

    EventStatus = cdoRunNextSink
    End Sub
    </SCRIPT>



    Правильно?
    ---
    Что посоветуете с Outlook Express делать то? Не цепляется же...

    17 ноября 2008 г. 14:35
  •  Aleksey Potapov (aptv) написано:
    Я имел ввиду вот это



    <SCRIPT LANGUAGE="VBScript">
    Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
    TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Disclaimer added in a VBScript."
    HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>Sample Disclaimer added in a VBScript."

    If Msg.HTMLBody <> "" Then
    'Search for the "</body>" tag and insert our disclaimer before that tag.
    pos = InStr(1, Msg.HTMLBody, "</body>", vbTextCompare)
    szPartI = Left(Msg.HTMLBody, pos - 1)
    szPartII = Right(Msg.HTMLBody, Len(Msg.HTMLBody) - (pos - 1))
    Msg.HTMLBody = szPartI + HTMLDisclaimer + szPartII
    End If

    If Msg.TextBody <> "" Then
    Msg.TextBody = ТЕКСТ ОТКАЗА Бла, Бла, Бла...
    End If

    'Commit the content changes to the transport ADO Stream object.
    Msg.DataSource.Save ' Commit the changes into the transport Stream

    EventStatus = cdoRunNextSink
    End Sub
    </SCRIPT>



    Правильно?
    ---
    Что посоветуете с Outlook Express делать то? Не цепляется же...


     

    Т.е. вы хотите заменить изначальный текст ? если нет , то Msg.TextBody = Msg.TextBody  & "ТЕКСТ ОТКАЗА Бла, Бла, Бла..."

     

    правда лучше было б использовать еще и перенос на новую строку (vbCrLf)

     

    а с OE - так у вас imap то сервис стартован ?

     

     

    17 ноября 2008 г. 14:45
  • Стартован.


    Для эксперемента отправил с OWA - всё равно текст не добавился.
    17 ноября 2008 г. 14:52
  •  Aleksey Potapov (aptv) написано:
    Стартован.

     

    Значит не верно настраиваете подключение \ авторизацию

     

     Aleksey Potapov (aptv) написано:

    Для эксперемента отправил с OWA - всё равно текст не добавился.

     

    Еще раз отсылаю к источнику , от себя добавлю (поскольку в источнике об OWA ни слова) - OWA не работает напрямую с smtp так же как и mapi , так что скриптование этого действия для тебуемых нужд подходит для ограниченного случая (применени smtp клиента)

    17 ноября 2008 г. 15:55