Visual Basic'te giden SMTP iletilerine bir vazge�me belgesi nas�l eklenir

Makale numaras�: 317327 - Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Bu makalenin Microsoft Visual Basic Scripting Edition s�r�m� i�in bkz: 317680

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

G�R��

Bu ad�m ad�m makalede, giden SMTP e-posta iletilerine bir vazge�me belgesi eklemek i�in bir SMTP aktar�m olay havuzunun nas�l kullan�laca�� anlat�lmaktad�r.

Olay havuzunu olu�turma

Yeni bir Microsoft Visual Basic ActiveX DLL dosyas� olu�turun. Projeyi SMTPEventSink olarak ve modul� de Vazge�meBelgesi olarak adland�r�n.
Project References alt�nda, Microsoft CDO for Exchange 2000 Library ve ard�ndan Server Extension Objects COM Library'yi ekleyin.

A�a��daki kodu mod�le ekleyin:

Dim TextDisclaimer As String
Dim HTMLDisclaimer As String

Implements IEventIsCacheable
Implements CDO.ISMTPOnArrival

Private Sub IEventIsCacheable_IsCacheable()
    'Yaln�zca S_OK d�nd�r�r.
End Sub

Private Sub Class_Initialize()
  'YAPILACAK: �rnek vazge�me metnini kendi metninizle de�i�tirin.
  TextDisclaimer = vbCrLf & "VAZGE�ME:" & vbCrLf & "�rnek Vazge�me Metni."
  HTMLDisclaimer = "<p></p><p>VAZGE�ME:<br>�rnek Vazge�me Metni"
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
        
        '"</body>" etiketini ara ve bu etiketten �nce vazge�me metnini ekle.
        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
    
    '��erik de�i�ikliklerini ADO Ak��� nesnesi aktar�m�na kaydet.
    Msg.DataSource.Save
    EventStatus = cdoRunNextSink
End Sub

�rnek vazge�me metni yerine kendi vazge�me metninizi koyun ve DLL dosyas�n� olu�turun.

Olay havuzunu kaydetme

Olay havuzunu kaydetmek i�in, Exchange yaz�l�m geli�tirme paketiyle (SDK) birlikte y�klenen Smtpreg.vbs dosyas�n� kullan�n.

Komut istemine \Exchange SDK\SDK\Support\CDO\Scripts klas�r�n� bulun ve a�a��daki komutu yaz�n: cscript smtpreg.vbs /add 1 OnArrival SMTPDisclaimer SMTPEventSink.Vazge�meBelgesi "mail from=*@etki-alan�n�z.com"

Bu komut ba�ar�l� olursa, komut dosyas� taraf�ndan olu�turulan bir ba�ar� iletisi al�rs�n�z.
Bu olay�n kayd�n� kald�rmak i�in �unu yaz�n: cscript smtpreg.vbs /remove 1 OnArrival SMTPDisclaimer

Olay ba�lant�lar�n� y�netme hakk�nda ek bilgi i�in, a�a��daki Microsoft Developer Network (MSDN) Web sitesini ziyaret edin:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/7406817f-b48f-4b62-86af-bd6703fca4f6.asp

(http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/7406817f-b48f-4b62-86af-bd6703fca4f6.asp)

Olay havuzunu s�nama

Olay havuzunu s�namak i�in, kurulu�unuz d��ndaki bir SMTP al�c�s�na bir e-posta iletisi g�nderin. Al�c�, iletinin sonuna vazge�me belgesi eklenmi� olarak de�i�tirilmi� bir ileti al�r.

Not E-postay� g�ndermek i�in Microsoft Outlook gibi bir MAPI istemci kullan�rsan�z, al�c� de�i�tirilmi� bir e-posta iletisi almaz. Bunun nedeni, e-posta SMTP aktar�m olay�n� tetikledi�inde MAPI kullan�larak g�nderilen iletinin SMTP bi�iminde olmamas�d�r. Bu nedenle, olay�n kodu taraf�ndan yap�lan de�i�iklikler kal�c� olmaz.