Ako pridať disclaimer na odchádzajúce správy SMTP v programe Visual Basic

DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.

Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:317327
Tento článok bol archivovaný. Je publikovaný v aktuálnej podobe a už nebude aktualizovaný.
Pre Microsoft Visual Basic Scripting Edition verziu tohto článku, pozri 317680.
ÚVOD
Tento podrobný článok popisuje použitie SMTP Transport udalosť drez pridať disclaimer na odchádzajúcu poštu SMTP správy.

Vytvoriť udalosť umývadlo

  1. Vytvoriť nové Microsoft Visual Basic ActiveX DLL. Názov projekt SMTPEventSink a potom názov modulu Disclaimer.
  2. Podľa Projekt odkazy, pridať súčasť CDO spoločnosti Microsoft Exchange 2000 knižnice, a potom pridajte Server Extension objekty COM knižnice.
  3. Vložte nasledujúci kód v module:
    Dim TextDisclaimer As StringDim HTMLDisclaimer As StringImplements IEventIsCacheableImplements CDO.ISMTPOnArrivalPrivate Sub IEventIsCacheable_IsCacheable()    'Just returns S_OK.End SubPrivate Sub Class_Initialize()  'TODO: Replace the sample disclaimer text with your own text.  TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Disclaimer Text."  HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>Sample Disclaimer Text"End SubPrivate Sub ISMTPOnArrival_OnArrival(ByVal Msg As CDO.IMessage, EventStatus As CDO.CdoEventStatus)    If Msg.HTMLBody <> "" Then        Dim szPartI As String        Dim szPartII As String        Dim pos As Integer                'Search for the "</body>" tag and insert the 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    EventStatus = cdoRunNextSinkEnd Sub					
  4. Nahradiť text s vyhlásením vzorky vlastný prehlásenie text, a potom vybudovanie knižnice DLL.

Zapísať udalosť umývadlo

Zaregistrovať udalosť umývadlo, použite súbor Smtpreg.vbs, ktorý je nainštalovaná s výmeny software development kit (SDK).
  1. Do príkazového riadka, vyhľadajte \Exchange SDK\SDK\Support\CDO\Scripts priečinok a potom zadáte takto: cscript smtpreg.vbs / add 1 OnArrival SMTPDisclaimer SMTPEventSink.Disclaimer "mail from=*@your-domain-here.com"

    Ak tento príkaz úspešný, dostanete úspech správy, ktoré sú generované pomocou skriptu.
  2. Registráciu tejto udalosti, zadajte nasledovný príkaz: cscript smtpreg.vbs alebo odstránenie 1 OnArrival SMTPDisclaimer
Ďalšie informácie o spravovaní udalosť väzby, navštívte nasledujúce webové Microsoft Developer Network (MSDN) lokalita:

Test udalosť umývadlo

Otestovať udalosť umývadlo, odoslať správu elektronickej pošty SMTP príjemcovi kto je mimo vašej organizácie. Príjemca prijíma upravenej správa s disclaimer text pridáva na koniec správy.

Poznámka Ak používate klienta MAPI, napríklad program Microsoft Outlook na odosielanie e-mailovú správu, príjemca nedostane modifikované e-mailovej správy. Je to preto e-mailovú správu, že je predložená pomocou rozhrania MAPI nie je vo formáte SMTP keď spustí e-mailovej správy SMTP transport udalosť. Preto zmeny vykonané podľa kódu udalosti nie sú trvalé.
ODKAZY
Ďalšie informácie získate po kliknutí na nasledovné číslo článku databázy Microsoft Knowledge Base:
273233Nemôžete zmeniť obsah správy MAPI v Spolupracujúce údajové objekty SMTP udalosť umývadlo

Upozornenie: Tento článok bol preložený automaticky.

Vlastnosti

ID článku: 317327 – Posledná kontrola: 12/07/2015 08:51:36 – Revízia: 2.0

Microsoft Exchange Server 2003 Standard Edition, Microsoft Exchange Server 2003 Enterprise Edition, Microsoft Exchange 2000 Server Standard Edition

  • kbnosurvey kbarchive kbhowtomaster kbmt KB317327 KbMtsk
Pripomienky