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

Preklady článku Preklady článku
ID článku: 317327 - Zobraziť produkty, ktorých sa tento článok týka.
Pre Microsoft Visual Basic Scripting Edition verziu tohto článku, pozri 317680.
Rozbaliť všetko | Zbaliť všetko

Na tejto stránke

Ú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 String
    Dim HTMLDisclaimer As String
    
    Implements IEventIsCacheable
    Implements CDO.ISMTPOnArrival
    
    Private Sub IEventIsCacheable_IsCacheable()
        'Just returns S_OK.
    End Sub
    
    Private 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 Sub
    
    Private 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 = cdoRunNextSink
    End 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:
http://msdn2.Microsoft.com/en-us/library/ms526620.aspx

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

Vlastnosti

ID článku: 317327 - Posledná kontrola: 8. novembra 2011 - Revízia: 2.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
  • Microsoft Exchange Server 2003 Standard Edition
  • Microsoft Exchange Server 2003 Enterprise Edition
  • Microsoft Exchange 2000 Server Standard Edition
Kľúčové slová: 
kbhowtomaster kbmt KB317327 KbMtsk
Strojovo preložené
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

Odošlite odozvu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com