��ng nh?p

Select the product you need help with

L�m th? n�o �? th�m m?t s? t? b? cho th� SMTP trong Visual Basic

ID c?a b�i: 317327 - Xem s?n ph?m m� b�i n�y �p d?ng v�o.

Th�ng b�o: b�i vi?t n�y l� b�i ��?c d?ch b?i M�y d?ch

Nh?p chu?t v�o ��y �? hi?n th? b?n g?c Ti?ng anh v� b?n d?ch m�y theo ch? �? so s�nh.

�? m?t Microsoft Visual Basic script Edition Phi�n b?n c?a b�i vi?t n�y, h?y xem 317680

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

Bung t?t c? | Thu g?n t?t c?

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

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

�?t �o?n m? sau trong module:

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

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

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.
�? 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:

http://msdn2.Microsoft.com/en-US/Library/ms526620.aspx

(http://msdn2.microsoft.com/en-us/library/ms526620.aspx)

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.

Chu� y� 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.

Quay l?i �?u trang | Cung c��p Pha�n h��i

THAM KH?O

�� bi��t th�m th�ng tin, b��m va�o s�� ba�i vi��t sau �� xem ba�i vi��t trong C� s�� Ki��n th��c Microsoft:

273233

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

Kh�ng th? thay �?i n?i dung th� MAPI trong m?t s? ki?n CDO SMTP sink

Quay l?i �?u trang | Cung c��p Pha�n h��i

Thu?c t�nh

ID c?a b�i: 317327 - L?n xem x�t sau c�ng: 27 Tha�ng Ta�m 2011 - Xem x�t l?i: 2.0

�p d?ng

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

kbhowtomaster kbmt KB317327 KbMtvi

M�y d?ch

QUAN TRO�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

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

Quay l?i �?u trang | Cung c��p Pha�n h��i