Bagaimana menambahkan disclaimer untuk keluar SMTP pesan dalam Visual Basic

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 317327 - Melihat produk di mana artikel ini berlaku.
Untuk versi Microsoft Visual Basic Scripting Edition artikel ini, lihat 317680.
Perbesar semua | Perkecil semua

Pada Halaman ini

PENDAHULUAN

Artikel ini selangkah demi selangkah menjelaskan cara menggunakan SMTP transportasi acara wastafel untuk menambahkan disclaimer untuk outgoing SMTP e-mail pesan.

Membuat acara wastafel

  1. Buat baru Microsoft Visual Basic ActiveX DLL. Nama proyek SMTPEventSink, dan kemudian nama modul Disclaimer.
  2. Di bawah Referensi proyek, tambahkan Microsoft CDO untuk Exchange 2000 perpustakaan, dan kemudian menambahkan Server ekstensi objek COM perpustakaan.
  3. Letakkan kode berikut dalam modul:
    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. Ganti teks disclaimer sampel dengan teks disclaimer Anda sendiri, dan kemudian membangun DLL.

Mendaftar acara wastafel

Mendaftar acara wastafel, menggunakan Smtpreg.vbs file yang diinstal dengan Exchange software development kit (SDK).
  1. Pada prompt perintah, Cari \Exchange SDK\SDK\Support\CDO\Scripts folder, dan kemudian ketik berikut: Cscript smtpreg.vbs / add 1 OnArrival SMTPDisclaimer SMTPEventSink.Disclaimer "surat from=*@your-domain-here.com"

    Jika perintah ini berhasil, Anda menerima sukses pesan yang dihasilkan oleh script.
  2. Untuk urung-daftar acara ini, ketik berikut: Cscript smtpreg.vbs/menghapus 1 OnArrival SMTPDisclaimer
Untuk informasi tambahan tentang mengelola acara binding, kunjungi Website Microsoft Developer Network (MSDN) berikut situs:
http://msdn2.Microsoft.com/en-us/library/ms526620.aspx

Menguji wastafel acara

Untuk menguji wastafel acara, mengirim pesan e-mail ke penerima SMTP Siapakah eksternal untuk organisasi Anda. Penerima menerima diubah pesan dengan teks disclaimer ditambahkan ke akhir pesan.

Catatan Jika Anda menggunakan klien MAPI, seperti Microsoft Outlook, untuk mengirim pesan e-mail penerima tidak menerima pesan e-mail yang dimodifikasi. Hal ini karena pesan e-mail yang dikirimkan dengan menggunakan MAPI adalah tidak dalam SMTP format ketika pesan email memicu transportasi acara SMTP. Oleh karena itu, perubahan yang dibuat oleh kode acara tidak bertahan.

REFERENSI

Untuk informasi tambahan, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
273233Tidak dapat mengubah isi pesan MAPI di wastafel acara CDO SMTP

Properti

ID Artikel: 317327 - Kajian Terakhir: 24 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Exchange Server 2003 Standard Edition
  • Microsoft Exchange Server 2003 Enterprise Edition
  • Microsoft Exchange 2000 Server Standard Edition
Kata kunci: 
kbhowtomaster kbmt KB317327 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:317327

Berikan Masukan

 

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