Microsoft Exchange 2003 ve benzer işlemi yapan ürünlerin gün geçtikçe vazgeçilmezlerimiz arasına girmesi hız kazandı. Artık her bir şirketin günlük mail sirkülasyonu onlar ile yüzler ile ve hatta binler ile telaffuz ediliyor. Hal böyle olunca şirketlerin çalışan e-mailleri ile alakalı bazı sorumlulukları doğuyor. Firmalardan dünyanın dört bir yanına yayılan günlük mail trafiğinin içerik olarak tam manası ile kontrol altına alması mümkün olmayacaktır. İçerik olarak gerek şirket imajına zarar verici gerek yasal problemlere yol açması muhtemel e-maillerin sorumluluğunun şirketin tüzel şahsiyetinden e-maili yollayan kişinin özel şahsiyetine aktarılması açısından yollanan e-maillere uyarılar eklenmesi gün geçtikçe yaygınlaşmaktadır. Öte yandan bazı durumlarda da şirketlerin reklamları veya şirketlerin paylaşılmasını istedikleri bilgileri de şirketten yollanan her e-maile eklenebilir. Ve bu gaye için bir çok “third party” yazılım mevcut .
Ben ise bu yazıda iki “third party” ve bir tane de Microsoftun bir makalesinden yola çıkarak kendi dilimiz ile kendi dilimce birkaç yöntem anlatacağım.
Öncelik ile Microsoft un bize sağladığı yöntemi anlatayım.
http://support.microsoft.com/?kbid=317680 Microsoft tan Exchange SDK (E2k3SDKDocs.exe) indirilecek http://www.microsoft.com/downloads/details.aspx?FamilyId=463F0649-6274-45EA-B647-E6BE1425C893&displaylang=en
Yaklaşık 15 mb lık bu dosyanın kurulumunu yapalım. Exe yi tıkladığımızda C:\Program Files\ içinde Exchange SDK isimli bir klasör oluşacak. Oluşan klasörün içindeki E2k3SDK.msi dosyasını tıkladığımızda bir çok klasör kurulumu olacak.
C:\Program Files\Exchange SDK\SDK\Support\CDO\Scripts yolunu takip edip içinden smtpreg.vbs dosyasını Exchange Serverımızın C drive ında oluşturduğumuz c:\disclaimer isimli klasöre kopyalayalım.
Ve aşağıdaki scripti adı EventSinkScript.vbs olacak şekilde oluşturup gene aynı klasöre kopyalayalım.
<SCRIPT LANGUAGE=”VBScript”>
Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
TextDisclaimer = vbCrLf & “DISCLAIMER:” & vbCrLf & “Test Mesaj Egeonline.com .”
HTMLDisclaimer = “<p></p><p>DISCLAIMER:<br> Test Mesaj Egeonline.com ”
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>
Şimdi de command prompta Run’a cmd yazarak düşelim. C:\disclaimer klasörünün içinde aşağıdaki komutları sırası ile çalıştıralım.
cscript smtpreg.vbs /add 1 onarrival SMTPScriptingHost CDO.SS_SMTPOnArrivalSink “mail from=*@domaininizin-ismi.com”
sonra
cscript smtpreg.vbs /setprop 1 onarrival SMTPScriptingHost Sink ScriptName “C:\disclaimer\EventSinkScript.vbs”
Evet artık emaillerimize EventSinkScript.vbs dosyası içersinde belirttiğimiz Disclaimerımız eklenmeye başlayacaktır.
Kaldırmak için ise
cscript smtpreg.vbs /remove 1 OnArrival SMTPScriptingHost
komutu yeterli olacaktır.
Not: MAPI clientlarda çıkacak problemler için şu makale okunmalı. http://support.microsoft.com/kb/273233/
Evet Arkadadaşlar Kısa Bir Makkalenin Sonuna Daha Geldik Exchange Server Disclaimer Exchange Server ne gibi bize yardımı olduğunu gördük tekrar yeni bir makkalede görüşmek üzere
Saygılarımla Orhan Türk
ba395398-b9a1-48ec-b33f-d76137aa2934|0|.0
Exchange Server 2003
exchange server 2003, disclaimer