Microsoft Office

Outlookta Makro ile Dosya Eki Uyarı Ekleme (Resimli Anlatım)

Ö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.
blank
  • sol tarafta bulunan makro ayarları kısmına gelin.
  • Tüm makroları etkinleştir seçeneğini seçin.
blank

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.

blank
  • Şeridi özelleştir»geliştirici kutucuğunu işaretleyip tamam deyin.
blank
  • Geliştirici sekmesine basarak Visual basic butonuna basın. Karşınıza makro yazabileceğiniz bir pencere çıkacaktır.
blank
  • 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

blank

Dosya Kilitli

Yazıyı .pdf olarak indirmek için Lütfen Giriş Yapın!

Kaynak
1
Daha Fazla Göster

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

enerji sistemleri
Başa dön tuşu

Reklam Engelleyici Algılandı

Lütfen reklam engelleyiciyi devre dışı bırakarak bizi desteklemeyi düşünün