Note: The other languages of the website are Google-translated. Back to English
Oturum aç  \/ 
x
or
x
Kaydol  \/ 
x

or

 Outlook'ta tüm okunmamış e-postaları nasıl açarım?

Outlook Gelen Kutunuzda birden çok okunmamış e-posta iletisi varsa, hepsini olabildiğince hızlı bir şekilde okumak için nasıl açabilirsiniz?

VBA kodu ile belirli bir Gelen Kutusu veya başka bir klasördeki tüm okunmamış e-posta mesajlarını açın

VBA kodu ile belirli bir Gelen Kutusu veya başka bir klasördeki tüm okunmamış e-posta mesajlarını açın

Aşağıdaki VBA kodu, Gelen Kutunuzdaki veya diğer belirli bir klasördeki tüm okunmamış e-posta mesajlarını bir kerede açmanıza yardımcı olabilir, lütfen aşağıdaki adımları uygulayın:

1. Öncelikle, okunmamış tüm e-postaları açmak istediğiniz bir klasör seçmelisiniz.

doc okunmamış tüm eamilleri aç 1

2. Sonra basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

3. Ve sonra tıklayın Ekle > modül, 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: Okunmamış tüm e-posta mesajlarını belirli bir klasörde açın:

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

doc okunmamış tüm eamilleri aç 2

4. Ve sonra F5 Bu kodu çalıştırmak için anahtar ve tüm okunmamış e-postalar belirtilen klasörde bir kerede açılacak, sonunda, açılan okunmamış e-postaların sayısını hatırlatmak için bir istem kutusu açılacak, ekran görüntüsüne bakın:

doc okunmamış tüm eamilleri aç 3

not: Bu kod, toplantı e-postaları için kullanılamaz.


Outlook için Kutools - Outlook'a 100 Gelişmiş Özellik Getirir ve Çalışmayı Çok Daha Kolay Hale Getirir!

  • Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Özel olarak birden çok E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
  • BCC Uyarısı - tümünü yanıtlamaya çalıştığınızda mesaj göster posta adresiniz BCC listesindeyse; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
  • Posta görüşmesindeki Tüm Eklerle Yanıtla (Tümü); Birçok E-postayı Yanıtla saniyeler içinde; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Tarih Ekle ...
  • Ek Araçları: Tüm Postalardaki Tüm Ekleri Yönetin, Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Kaydet ... Hızlı Rapor, Seçili Postaları Say...
  • Güçlü Önemsiz E-postalar özel olarak; Yinelenen Postaları ve Kişileri Kaldır... Outlook'ta daha akıllı, daha hızlı ve daha iyi yapmanızı sağlar.
shot kutools görünüm kutools sekmesi 1180x121
shot kutools görünüm kutools artı sekme 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    srinivasan · 2 months ago
    my mails not opening .since 10days. please help me sir.