Bagaimana menambahkan disclaimer untuk keluar SMTP pesan dalam Visual Basic script

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:317680
Artikel ini telah diarsipkan. Artikel ditawarkan dalam bentuk "apa adanya" dan tidak akan dapat diperbarui lagi.
Untuk versi Microsoft Visual Basic pada artikel ini, lihat 317327.
RINGKASAN
Artikel ini menunjukkan cara menggunakan SMTP transportasi acara wastafel untuk menambahkan disclaimer untuk outgoing SMTP e-mail pesan.

Membuat acara wastafel

Untuk membuat peristiwa wastafel, paste kode berikut dalam file baru dan menyimpannya sebagai EventSinkScript.vbs.
<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 = cdoRunNextSinkEnd Sub</SCRIPT>

Mendaftar acara wastafel

Untuk mendaftar wastafel acara Anda, menggunakan file Smtpreg.vbs, yang diinstal dengan Exchange SDK. Dari prompt perintah, browse ke ...\Exchange SDK\SDK\Support\CDO\Scripts folder dan jenis berikut (membuat yakin bahwa jalan untuk EventSinkScript.vbs benar):
Cscript smtpreg.vbs / add 1 onarrival SMTPScriptingHost CDO.SS_SMTPOnArrivalSink "from=*@your-domain-here.com surat"
Cscript smtpreg.vbs /setprop 1 onarrival SMTPScriptingHost tenggelam ScriptName "C:\EventSinkScript.vbs"
Jika perintah berhasil, Anda menerima sukses pesan yang dihasilkan oleh script.

Untuk urung-daftar acara ini, ketik berikut:
Cscript smtpreg.vbs/menghapus 1 OnArrival SMTPScriptingHost
Untuk informasi lebih lanjut tentang mendaftar acara dengan Smtpreg.VBS, lihat topik "Mengelola acara Bindings" pada Website MSDN berikut situs: Untuk informasi selengkapnya, klik nomor artikel berikut untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
324021Cara membuat kotak pesan "catchall" wastafel untuk Exchange Server

Menguji wastafel acara

Untuk menguji tenggelam, mengirim pesan e-mail ke penerima SMTP Siapakah eksternal untuk organisasi Anda. Penerima harus menerima diubah pesan berisi disclaimer ditambahkan ke akhir pesan.

Catatan Jika Anda menggunakan MAPI klien seperti Microsoft Outlook untuk mengirim e-mail dan jika kotak surat Exchange berada pada server yang sama sebagai acara mengikat, penerima tidak dapat menerima pesan diubah. Hal ini karena pesan yang dikirimkan dengan menggunakan MAPI yang tidak dalam SMTP format ketika e-mail memicu transportasi acara SMTP. Oleh karena itu, perubahan yang dibuat oleh acara kode tidak bertahan.
REFERENSI
Untuk informasi selengkapnya, klik nomor artikel berikut untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
273233Anda tidak dapat mengubah pesan MAPI yang terperangkap dalam SMTP transportasi acara wastafel

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 317680 - Tinjauan Terakhir: 12/07/2015 08:56:27 - Revisi: 2.0

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

  • kbnosurvey kbarchive kbhowtomaster kbmt KB317680 KbMtid
Tanggapan