ID Artikel: 317680 - Kajian Terakhir: 24 September 2011 - Revisi: 2.0

Bagaimana menambahkan disclaimer untuk keluar SMTP pesan dalam Visual Basic script

Tampil berdampinganKlik disini untuk menampilkan sumber Inggris dan terjemahan oleh mesin secara berdampingan
Penerjemahan MesinPeringatan: artikel ini adalah terjemahan oleh mesin
Melihat produk di mana artikel ini berlaku.
Tips SistemThis article applies to a different operating system than the one you are using. Article content that may not be relevant to you is disabled.
Untuk versi Microsoft Visual Basic pada artikel ini, lihat 317327  (http://support.microsoft.com/kb/317327/ ) .

Pada Halaman ini

Perbesar semua | Perkecil semua

RINGKASAN

Artikel ini menunjukkan cara menggunakan SMTP transportasi acara wastafel untuk menambahkan disclaimer untuk outgoing SMTP e-mail pesan.
Kembali ke atas

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 = cdoRunNextSink
End Sub
</SCRIPT>
Kembali ke atas

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:
.aspx http://MSDN.Microsoft.com/en-us/library/ms526620 (EXCHG.10) (http://msdn.microsoft.com/en-us/library/ms526620(EXCHG.10).aspx)
Untuk informasi selengkapnya, klik nomor artikel berikut untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
324021  (http://support.microsoft.com/kb/324021/ ) Cara membuat kotak pesan "catchall" wastafel untuk Exchange Server
Kembali ke atas

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.
Kembali ke atas

REFERENSI

Untuk informasi selengkapnya, klik nomor artikel berikut untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
273233  (http://support.microsoft.com/kb/273233/ ) Anda tidak dapat mengubah pesan MAPI yang terperangkap dalam SMTP transportasi acara wastafel
Kembali ke atas
Berlaku bagi:
  • Microsoft Exchange Server 2003 Enterprise Edition
  • Microsoft Exchange Server 2003 Standard Edition
  • Microsoft Exchange 2000 Server Standard Edition
Kembali ke atas
Kata kunci: 
kbhowtomaster kbmt KB317680 KbMtid
Kembali ke atas
Penerjemahan MesinPenerjemahan 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:317680  (http://support.microsoft.com/kb/317680/en-us/ )
Kembali ke atas