Özellikle iş dünyasında sıklıkla karşılaşılan ve e-postalara bahsedilen konuyla ilgili dosya eklemeyi unutup gönderme sorununun çözümünden bahsedeceğim. Bu işlemlerden sonra outlook uyarı ekleme işlemini tamamlamış olacak ve dosya eki takibi yalabileceksiniz. Yapmanız gereken çok basit. İlk olarak;
- Dosya»Seçenekler»Güven merkezine girin.
- Güven merkezi ayarları butonuna tıklayın.
- sol tarafta bulunan makro ayarları kısmına gelin.
- Tüm makroları etkinleştir seçeneğini seçin.
Tamam diyerek bu pencereyi kapatın ve outlooku kapatıp yeniden açın. Şimdi görevi yaptırmak için makro yazacağımız bölüme gelmeden önce aktif etmemiz gerekiyor. Bunun için yine Seçenekler kısmına giriyoruz.
- Şeridi özelleştir»geliştirici kutucuğunu işaretleyip tamam deyin.
- Geliştirici sekmesine basarak Visual basic butonuna basın. Karşınıza makro yazabileceğiniz bir pencere çıkacaktır.
- Burada sol tarafta Proje1»Microsoft Outlook Objects»Thisoutlooksession yazısına çift tıklatın.Sağ tarafa makro yazabileceğiniz bir pencere açılacaktır. Buraya aşağıdaki kodu 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(“Dosya eklemeyi unuttunuz gibi görünüyor. İletinizde “ektedir” yazdınız ancak dosya eklemediniz.”, vbYesNo)
If answer = vbNo Then Cancel = True End If
End If
End Sub