Masuk

Select the product you need help with

Bagaimana menambahkan disclaimer untuk keluar SMTP pesan dalam Visual Basic

ID Artikel: 317327 - Melihat produk di mana artikel ini berlaku.

Peringatan: artikel ini adalah terjemahan oleh mesin

Klik disini untuk menampilkan sumber Inggris dan terjemahan oleh mesin secara berdampingan

Untuk versi Microsoft Visual Basic Scripting Edition artikel ini, lihat 317680

(http://support.microsoft.com/kb/317680/ )

Perbesar semua | Perkecil semua

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

Buat baru Microsoft Visual Basic ActiveX DLL. Nama proyek SMTPEventSink, dan kemudian nama modul Disclaimer.
Di bawah Referensi proyek, tambahkan Microsoft CDO untuk Exchange 2000 perpustakaan, dan kemudian menambahkan Server ekstensi objek COM perpustakaan.

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

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).

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.
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

(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.

Kembali ke atas | Berikan Masukan

REFERENSI

Untuk informasi tambahan, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:

273233

(http://support.microsoft.com/kb/273233/ )

Tidak dapat mengubah isi pesan MAPI di wastafel acara CDO SMTP

Kembali ke atas | Berikan Masukan

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

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

(http://support.microsoft.com/kb/317327/en-us/ )

Kembali ke atas | Berikan Masukan