Bazen yanlış bir e-posta gönderdiğimizde aynı Cem Yılmaz’ın dediği gibi o e-postayı bir anda tutup geri getirmek istemişizdir J O an keşke Outlook bize e-postayı göndermeden önce “Bak kardeşim bu kişilere e-posta göndereceksin emin misin?” diye sorsaydı deriz. Aslında bunu yapmak mümkün. Şimdi nasıl yapacağımızı anlatalım.
Outlook açık durumda iken Alt+F11 tuşuna basınız ve Visual Basic Editorünü açınız.
Sol tarafta bulunan “Proje1” kısmının yanındaki artı işaretine basarak genişletiniz.
Resim-1
Aşağıda görüldüğü gibi “ThisOutlookSession” kısmını tıklayınız.
Resim-2
Sağ tarafta kod yazılan alana aşağıdaki kodu kopyalayınız.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If MsgBox(“Bu E-Postayi gondermek istediginize emin misiniz?”, vbYesNo + vbQuestion + vbMsgBoxSetForeground, “E-posta”) = vbNo Then
Cancel = True
End If
End Sub
Resim-3
CTRL+S ile kaydediniz ve Visual Basic editörünü kapatınız.
Artık makronuz hazır durumdadır. Yeni bir e-posta atmak istediğinizde site aşağıdaki gibi uyarı verecektir. Evet’e bastığınızda e-postayı gönderecek, hayır a basarsanız göndermeyecek ve e-postaya geri dönecektir.
Resim-4
Eğer kimlere gönderdiğinizin de bu uyarı kutusunda sizlere hatırlatılmasını isterseniz kodu aşağıdaki gibi değiştiriniz.
Public Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error Resume Next
LCase (Item.To)
LCase (Item.CC)
Prompt$ = “Bu e-posta ” & Item.To & “, ” & Item.CC & ” kisilerine gidecek. Emin misiniz?”
If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, “Check Address”) = vbNo Then
Cancel = True
End If
End Sub
Bu durumda gönderdiğiniz e-postadaki kime ve bilgi kısmındaki kişileri uyarı ekranında size gösterecektir.
Resim-5
Bu konuyla ilgili sorularınızı alt kısımda bulunan yorumlar alanını kullanarak sorabilirsiniz.
Referanslar
Merhaba,
Tüm kodları belirttiğiniz şekilde adım adım takip ederek VSB tarafına yazdım. Tırnak işaretlerini düzelttim ve kaydedip çıktım. Yeni bir posta gönderdiğimde çalışmadı; uyarı vermedi.
Bu konuda nasıl bir hata yapıyoruz, yardımcı olur musunuz (Outlook 2013)?
https://imgyukle.com/i/FZxIP
Merhaba,
Belirttiğiniz şekilde kodları VSB yazıyorum. Tırnak işaretlerini de düzeltiyorum ve kaydediyorum.
Kırmızılık vs. yazım hatası görülmüyor. VSB kapatıp ileti göndermeye çalışıyorum fakat çalışmıyor.
Nasıl yapabiliriz, yardımcı olabilir misiniz?
Kullanılan Outlook Sürüm: 2013
https://imgyukle.com/i/FZxIP