1. Anasayfa
  2. Exchange Server 2013

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


7

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

www.mshowto.org

Bu İçeriğe Tepkin Ne Oldu?
  • 4
    harika_
    Harika!!
  • 0
    be_enmedim
    Beğenmedim
  • 0
    _ok_iyi
    Çok iyi
  • 0
    sevdim_
    Sevdim!
  • 0
    bilemedim_
    Bilemedim!
  • 0
    olmad_
    Olmadı!
  • 0
    k_zd_m_
    Kızdım!

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 Sigorta Bilgi ve Gözetim Merkezinde Birim Yöneticisi olarak görev almakta olan Fatih Teke, Microsoft yetkili eğitmeni MCT (Microsoft Certified Trainer) sertifikasına sahiptir. Ayrıca Symantec Official Web sitesinde yaptığı çözümler, paylaştığı videolar ve makaleler ile Symantec Trusted Advisor unvanına layık görülmüştür. Türkiye’deki ilk ve tek Trusted Advisor olan Fatih Teke boş zamanlarında tenis ve satranç müsabakalarına katılmaktadır. Active Directory, Exchange Server, Symantec EndPoint Protection, Skype For Business, Teams, SCCM, SCOM, Powershell Scripting ve Server İşletim Sistemleri ilgi alanları dahilindedir.

Yazarın Profili

Bültenimize Katılın

Tıklayın, üyemiz olun ve yeni güncellemelerden haberdar olan ilk kişi siz olun.

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Yorumlar (7)

Popüler Yorumlar
  1. 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

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

Yapılan Yorumlar
  1. 29/12/2015

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

  2. 27/06/2016

    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

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir