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