Bạn hiện đang ngoại tuyến, hãy chờ internet để kết nối lại

Làm thế nào để thêm một sự từ bỏ cho thư SMTP trong Visual Basic

QUAN TRỌNG: Bài viết này được dịch bằng phần mềm dịch máy của Microsoft chứ không phải do con người dịch. Microsoft cung cấp các bài viết do con người dịch và cả các bài viết do máy dịch để bạn có thể truy cập vào tất cả các bài viết trong Cơ sở Kiến thức của chúng tôi bằng ngôn ngữ của bạn. Tuy nhiên, bài viết do máy dịch không phải lúc nào cũng hoàn hảo. Loại bài viết này có thể chứa các sai sót về từ vựng, cú pháp hoặc ngữ pháp, giống như một người nước ngoài có thể mắc sai sót khi nói ngôn ngữ của bạn. Microsoft không chịu trách nhiệm về bất kỳ sự thiếu chính xác, sai sót hoặc thiệt hại nào do việc dịch sai nội dung hoặc do hoạt động sử dụng của khách hàng gây ra. Microsoft cũng thường xuyên cập nhật phần mềm dịch máy này.

Nhấp chuột vào đây để xem bản tiếng Anh của bài viết này:317327
Bài viết này đã được lưu trữ. Bài viết được cung cấp "nguyên trạng" và sẽ không còn được cập nhật nữa.
Để một Microsoft Visual Basic script Edition Phiên bản của bài viết này, hãy xem 317680.
GIỚI THIỆU
Bài từng bước này mô tả cách sử dụng một SMTP vận chuyển sự kiện bồn rửa chén thêm một sự từ bỏ cho đi SMTP e-mail tin nhắn.

Tạo sự kiện sink

  1. Tạo ra một mới Microsoft Visual Basic ActiveX DLL. Tên các dự án SMTPEventSink, và sau đó đặt tên mô-đun từ chối trách nhiệm.
  2. Dưới Dự án tài liệu tham khảo, thêm Microsoft CDO cho Exchange 2000 thư viện, và sau đó thêm Server mở rộng đối tượng COM thư viện.
  3. Đặt đoạn mã sau trong module:
    Dim TextDisclaimer As StringDim HTMLDisclaimer As StringImplements IEventIsCacheableImplements CDO.ISMTPOnArrivalPrivate Sub IEventIsCacheable_IsCacheable()    'Just returns S_OK.End SubPrivate 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 SubPrivate 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 = cdoRunNextSinkEnd Sub					
  4. Thay thế văn bản từ chối trách nhiệm mẫu bằng văn bản từ chối trách nhiệm riêng của bạn, và sau đó xây dựng DLL.

Đăng ký sự kiện sink

Để đăng ký sự kiện chìm, sử dụng các tập tin Smtpreg.vbs được cài đặt với bộ phát triển phần mềm trao đổi (SDK).
  1. Một dấu nhắc lệnh, xác định vị trí các \Exchange SDK\SDK\Support\CDO\Scripts thư mục, và sau đó gõ như sau: cscript smtpreg.vbs / thêm 1 OnArrival SMTPDisclaimer SMTPEventSink.Disclaimer "thư from=*@your-domain-here.com"

    Nếu lệnh này thành công, bạn nhận được một thành công thông điệp được tạo bởi kịch bản.
  2. Để unregister sự kiện này, loại sau đây: cscript smtpreg.vbs/remove 1 OnArrival SMTPDisclaimer
Để biết thêm chi tiết về việc quản lý sự kiện bindings, truy cập vào các trang Web mạng nhà phát triển của Microsoft (MSDN) sau Trang web:

Kiểm tra sự kiện sink

Để kiểm tra sự kiện chìm, gửi thư điện tử cho một người nhận SMTP bên ngoài để tổ chức của bạn là ai. Người nhận sẽ nhận được một sửa đổi thông báo với văn bản từ chối trách nhiệm được bổ sung vào cuối tin nhắn.

Chú ý Nếu bạn sử dụng một máy khách MAPI, chẳng hạn như Microsoft Outlook, để gửi các thư điện tử, người nhận không nhận được một thư điện tử cải. Điều này là do thư điện tử đã nộp bằng cách sử dụng MAPI là không trong một định dạng SMTP khi thư điện tử gây nên Theo tổ chức sự kiện SMTP vận tải. Vì vậy, những thay đổi được thực hiện bởi các mã của sự kiện không rơi.
THAM KHẢO
Để biết thêm thông tin, bấm vào số bài viết sau để xem bài viết trong Cơ sở Kiến thức Microsoft:
273233Không thể thay đổi nội dung thư MAPI trong một sự kiện CDO SMTP sink

Cảnh báo: Bài viết này được dịch tự động

Thuộc tính

ID Bài viết: 317327 - Xem lại Lần cuối: 12/07/2015 08:51:37 - Bản sửa đổi: 2.0

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

  • kbnosurvey kbarchive kbhowtomaster kbmt KB317327 KbMtvi
Phản hồi