Bir e-postayı yeniden gönderirken veya iletirken, bir kopyasını Gönderilmiş Öğeler klasörünüze kaydetmemek isteyebilirsiniz. Bu makale, Outlook VBA ile bir kopyanın kaydedilip kaydedilmeyeceğini soracak şekilde Outlook'u nasıl yapılandıracağınızı öğretecektir.
Gerçekte, çoğu yaygın e-posta için kopyalarını Gönderilen Öğeler klasörünüze kaydetmeyi tercih etmelisiniz. Bununla birlikte, bir e-postayı yeniden gönderirken, iletirken veya bu e-posta çok büyük bir ek içeriyorsa, bir kopyasını saklamanın gereksiz olduğunu düşünebilirsiniz. Bu koşullar altında, Outlook'un sizi uyararak seçim yapmanıza izin vermesini ummalısınız.
Geçici Çözüm: "Kaydetme" Seçeneğini Kullanın
Aslında, Outlook'ta bu özellik yoktur. Ancak bir geçici çözüm kullanabilirsiniz. Bu, mesaj penceresindeki “Kaydetme” seçeneğidir. Aşağıdaki ekran görüntüsü gibi "Seçenekler" sekmesine geçip ardından "Gönderilen Öğeyi Kaydet" düğmesine tıklayarak erişebilirsiniz:
Bu seçeneğe daha kolay erişmek için Hızlı Erişim Araç Çubuğuna ekleyebilirsiniz. Sağ tıklayın ve açılan menüden “Hızlı Erişim Araç Çubuğuna Ekle” seçeneğini seçin.
Bundan böyle, bir kopyayı kaydetmek istemiyorsanız, Hızlı Erişim Araç Çubuğundaki "Kaydetme" seçeneğinin yanındaki onay kutusunu işaretlemeniz yeterli. Bu yöntem gerçekten kullanışlı olsa da, çoğu kullanıcı hala onay kutusunu işaretlemeyi sık sık unuttuklarından şikayet ediyor. Bu nedenle, Outlook'un bir kopyayı kaydetmek isteyip istemediğinizi soran bir açılır pencere uyarısı vermesini hala istiyorlar. Bunu başarmak için Outlook VBA'yı kullanmalısınız. Ayrıntılı kodlar ve adımlar için lütfen okumaya devam edin.
VBA: E-posta Gönderirken Bir Kopyanın Kaydedilip Kaydedilmeyeceğini Sor
- İlk olarak, Outlook'u başlatın ve “Geliştirici” sekmesine geçin.
- Ardından, yeni bir pencere açacak olan “Visual Basic” düğmesine tıklayın.
- “Visual Basic” penceresinde, “ThisOutlookSession” proje penceresini açmak için “ThisOutlookSession” üzerine çift tıklayın.
- Ardından aşağıdaki kodları kopyalayıp içine yapıştırın.
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strMsg As String
Dim nRes As Integer
strMsg = "Do you want to save a copy of this message?"
nRes = MsgBox(strMsg, vbYesNo + vbQuestion, "Confirm Saving Copy")
If nRes = vbNo Then
Item.DeleteAfterSubmit = True
End If
End Sub
- Bundan sonra, bu kodu her zamanki gibi imzalamalı ve makro ayarlarını yalnızca dijital olarak imzalanmış makroları etkinleştirecek şekilde değiştirmelisiniz.
- Sonunda, bir deneyebilirsin. “Gönder” butonuna tıkladığınızda aşağıdaki görseldeki gibi bir Outlook uyarısı alacaksınız. “Hayır” düğmesini seçerseniz, mevcut mesaj Gönderilmiş Öğeler klasörüne kaydedilmeyecektir. Bu sırada “Evet” butonuna bastığınızda bu mesaj kaydedilecektir.
Sık Karşılaşılan Outlook Sorunlarıyla Başa Çıkın
Diğer uygulamalar gibi, Outlook da ani çökme, yanıt vermeme, ara sıra meydana gelen hata mesajları vb. gibi çeşitli sorunlarla karşılaşabilir. Bu nedenle, düzenli bir Outlook kullanıcısıysanız, bir Outlook dosya onarım aracı, sevmek DataNumen Outlook Repair Outlook dosyanızın bazı bilinmeyen nedenlerle bozuk olduğunu fark ettiğinizde kullanışlı olacaktır.
Yazar Tanıtımı:
Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. onarım SQL Server mdf veritabanı bozulması ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com