Outlook'ta tüm okunmamış e-postaları nasıl açabilirim?
Outlook'un Gelen Kutusu'nda birden fazla okunmamış e-posta varsa, bunların hepsini mümkün olduğunca hızlı bir şekilde tek seferde nasıl açabilirsiniz?
Belirli bir Gelen Kutusu veya diğer klasördeki tüm okunmamış e-postaları VBA kodu ile açın
"Belirli bir Gelen Kutusu veya diğer klasördeki tüm okunmamış e-postaları VBA kodu ile açın
Aşağıdaki VBA kodu, Gelen Kutusu'nuzda veya başka belirli bir klasördeki tüm okunmamış e-postaları tek seferde açmanıza yardımcı olabilir. Lütfen aşağıdaki adımları izleyin:
1. İlk olarak, tüm okunmamış e-postaları açmak istediğiniz bir klasörü seçmelisiniz.
2. Sonra "ALT + F11" tuşlarına basılı tutarak "Microsoft Visual Basic for Applications" penceresini açın.
3. Ardından, "Ekle" > "Modül" üzerine tıklayın, aşağıdaki kodu kopyalayıp açılan boş modüle yapıştırın, ekran görüntüsüne bakın:
VBA Kodu: Belirli bir klasördeki tüm okunmamış e-postaları açma
Sub OpenAllUnreadEmails()
Dim xFolders As Outlook.Folders
Dim xFolder As Outlook.Folder
Dim xUnreadEmailCount As Long
On Error Resume Next
xUnreadEmailCount = 0
Set xFolders = Application.ActiveExplorer.CurrentFolder.Folders
Call OperatingFolders(Application.ActiveExplorer.CurrentFolder, xUnreadEmailCount)
For Each xFolder In xFolders
Call OperatingFolders(xFolder, xUnreadEmailCount)
Next
MsgBox "Open " & xUnreadEmailCount & " unread emails successfully!", vbExclamation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub OperatingFolders(ByVal xCurrentFld As Outlook.Folder, UnreadEmailCount As Long)
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xSubFolder As Outlook.Folder
On Error Resume Next
If xCurrentFld.DefaultItemType = olMailItem Then
For Each xItem In xCurrentFld.Items
If xItem.Class = olMail Then
Set xMailItem = xItem
If xMailItem.UnRead = True Then
xMailItem.Display
UnreadEmailCount = UnreadEmailCount + 1
End If
End If
Next
End If
If xCurrentFld.Folders.Count > 0 Then
For Each xSubFolder In xCurrentFld.Folders
Call OperatingFolders(xSubFolder, UnreadEmailCount)
Next
End If
End Sub
4. Ve sonra, bu kodu çalıştırmak için "F5" tuşuna basın ve belirlenen klasördeki tüm okunmamış e-postalar anında açılacaktır. En sonunda, kaç tane okunmamış e-postanın açıldığını bildiren bir uyarı kutusu çıkacak, ekran görüntüsüne bakın:
Not: Bu kod toplantı e-postaları için geçerli değildir.
En İyi Ofis Verimlilik Araçları
Son Dakika: Kutools for Outlook Ücretsiz Sürümünü Sunmaya Başladı!
Yepyeni Kutools for Outlook ile100'den fazla etkileyici özelliği deneyimleyin! Şimdi indir!
📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Zamanla / E-posta Gönderirken Kurala Göre Otomatik CC/BCC / Gelişmiş Kurallar ile Otomatik Yönlendirme / Selamlama Ekle / Çoklu Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Böl...
📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu veya diğer kriterlere göre dolandırıcılık amaçlı e-postaları engelle / Yinelenen e-postaları sil / Gelişmiş Arama / Klasörleri Düzenle...
📁 Ekler Pro: Toplu Kaydet / Toplu Ayır / Toplu Sıkıştır / Otomatik Kaydet / Otomatik Ayır / Otomatik Sıkıştır...
🌟 Arayüz Büyüsü: 😊 Daha Fazla Şık ve Eğlenceli Emoji / Önemli e-postalar geldiğinde uyarı / Outlook'u kapatmak yerine küçült...
👍 Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Kimlik Avı E-postalarına Karşı Koruma / 🕘 Gönderenin Saat Dilimini Göster...
👩🏼🤝👩🏻 Kişiler & Takvim: Seçilen E-postalardan Toplu Kişi Ekle / Bir Kişi Grubunu Bireysel Gruplara Böl / Doğum günü hatırlatıcısını kaldır...
Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla başka dili destekler!
🚀 Tek Tıkla İndir — Tüm Ofis Eklentilerini Edinin
Şiddetle Tavsiye Edilen: Kutools for Office (5'i1 arada)
Tek tıkla beş kurulum paketini birden indirin — Kutools for Excel, Outlook, Word, PowerPoint ve Office Tab Pro. Şimdi indir!
- ✅ Tek tık kolaylığı: Beş kurulum paketinin hepsini tek seferde indirin.
- 🚀 Her türlü Ofis görevi için hazır: İhtiyacınız olan eklentileri istediğiniz zaman yükleyin.
- 🧰 Dahil olanlar: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint