1. Ana Sayfa
  2. Exchange Server 2013
  3. Outlook Üzerinde E-Posta Göndermeden Önce “Emin Misin?” Sorusunun Çıkartılması

Outlook Üzerinde E-Posta Göndermeden Önce “Emin Misin?” Sorusunun Çıkartılması

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ı https://forum.mshowto.org linkini kullanarak ulaşacağınız forum sayfamızda sorabilirsiniz.

Referanslar

www.mshowto.org

Yorum Yap

Yazar Hakkında

1982 yılında İstanbul'da doğan Fatih Teke, Atatürk Üniversitesi Endüstriyel Elektronik Bölümünü bitirdikten sonra şirketlerin bilgi işlem departmanlarında çalışmaya başladı. Commodore 64 ile başlayan bilgisayar macerası, 2003 yılında profesyonel olarak devam etmiştir. Şu anda meslek hayatına özel bir firmada danışman olarak devam etmektedir. Microsoft yetkili eğitmeni MCT (Microsoft Certified Trainer) sertifikasına sahip olan Fatih Teke, Symantec Official Web sitesinde yaptığı çözümler, paylaştığı videolar ve makaleler ile Symantec Trusted Advisor ünvanına layık görülmüştür. Türkiye’deki ilk ve tek Trusted Advisor olan Fatih Teke boş zamanlarında tenis, basketbol ve satranç müsabakalarına katılmaktadır. Symantec EndPoint Protection, Exchange, TMG, Lync, SCCM, SCOM ve Server İşletim Sistemleri ilgi alanları dahilindedir.

Yorum Yap

Yorumlar (7)

  1. Elinize sağlık güzel bir çalışma olmuş.

  2. 3 sene önce

    Merhabalar
    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) kısmında hata olduğuna dair uyarı veriyor. (Microsoft 2010)

    • merhaba,
      öncelikle geç yanıt verdiğim için özür dilerim 🙂 kopyaladıktan sonra çift tırnakları düzeltiniz. hata düzelecektir.

  3. 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

  4. 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

  5. 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