Archive

Posts Tagged ‘Outlook attachment check’

Outlook 2010 2013 2016 Dosya eki kontrolü

Çoğu zaman mail gönderirken mail eklerini göndermeyi unuturuz. Bunun önüne geçmek için Outlook üzerinde default bir ayar bulunmaz. Bunun önüne geçebilmek için makro yoluyla bu işlem yapılabilir.

Bu işlemi yapabilmek için öncelikle Outlook güven merkezinde makroların çalıştırılabilmesi için ayar yapılması gerekir. Bunun için Outlookta dosya  – seçenekler – güven merkezi ne tıklayın.

Gelen ekranda Güven Merkezi butonuna basın.

Makro ayarlarına tıklayıp yukardaki gibi tüm makrolar için bildirim ver seçeneğini seçin.

Tamam a tıklayarak seçenekler pencerelerinin tümünü kapatın.

Outlook u kapatıp yeniden açın.

Geliştirici sekmesini aktif hale getirmek için tekrar Dosya – Seçenekler menüsünü açın. Şeridi özelleştire tıklayın.

Yukardaki ekranda gördüğünüz üzere geliştirici sekmesinin yanındaki kutuyu işaretleyin ve tamama basarak ekranı kapatın. Böylece outlook üzerinde makro yazabileceğiniz Visual Basic sekmeleri aktif hale gelecektir.

Outlook ana ekranında Geliştirici sekmesine basarak Visual basic butonuna basın.

Karşınıza eğer daha önce bir makro yazdıysanız aşağıdaki pencere çıkabilir.

Makroları etkinleştir butonuna basın.

Karşınıza aşağıdaki makro yazabileceğiniz Visual Basic Applications (VBA) penceresi çıkacaktır.

Sol taraftaki Proje1’in yanındaki + işaretine basarak listeyi genişletin. Ardından tekrar Microsoft Outlook Objects yanındaki + işaretine basarak listeyi genişletin. ThisOutlookSession objesine çift tıklattığınızda yukardaki gibi sağ tarafa pencere açılacaktır. Aşağıdaki kodları bu pencerenin sağ bölümüne yapıştırın.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If InStr(1, Item.Body, "ektedir", vbTextCompare) > 0 Or InStr(1, Item.Body, "ekte sunulmuştur", vbTextCompare) > 0 Then
If Item.Attachments.Count = 0 Then
answer = MsgBox("Dikkat! ekli olması gereken mailde ek bulunamadı. Göndermek istediğinizden emin misiniz?", vbYesNo)
If answer = vbNo Then Cancel = True
End If
End If
End Sub

Bu kodları yukardaki ekranın sağ tarafına yapıştırdıktan sonra ekranı kapatın.

Bu kodlar mail iletinizin gövdesini tarar eğer içerikte “ektedir” veya “ekte sunulmuştur” ifadelerini aynen bulursa mailin içerisinde ek olup olmadığını kontrol eder eğer ek varsa maili direk gönderir. Eğer ek yoksa mailin ekinin bulunmadığını belirten uyarı mesajı çıkartır. Eğer maili eksiz göndermek isterseniz evet tuşuna basarsınız, göndermeden ekini eklemek isterseniz hayır tuşuna basarsınız.

Yukardaki tırnak içerisinde yer alan “ektedir” veya “ekte sunulmuştur” ifadelerini siz istediğiniz sözcüklerle değiştirebilirsiniz. Dikkat etmeniz gereken nokta ise bu ifadenin aynen mail içerisinde geçmesi gerektiğidir. Bizim örneğimizde ekte sunulmuştur var. Siz mail içeriğinde ekte gönderilmiştir yazarsanız makro bunu algılamaz ve maili ek kontrolü yapmadan gönderir.

Outlooku kapatın. Gelen aşağıdaki ekranda ise evete basın. Size makroyu kaydetmek isteyip istemediğinizi sormaktadır.

Outlook programınızı tekrar açın. Size makro uyarısı verecektir.

Bu ekranda makroları etkinleştir butonuna basın.

 

 

 

 

%d bloggers like this: