Outlook'ta klasör adıyla nasıl bulunur?

Örneğin, Outlook'ta birçok e-posta klasörü oluşturdunuz, belirli bir kişisel klasörün açılması gerektiğinde, belirtilen klasör görünene kadar birden çok klasörü genişletmeniz gerekir. Yalnızca belirli bir kişisel klasörü açmak için birden fazla klasörü tek tek genişletmek zahmetlidir. Aslında, klasör adını hatırlarsanız, her şey kolayca hale gelecektir. Bu eğiticide, klasörü bulmak için klasörleri tek tek genişletmek yerine Outlook'ta klasörün adına göre bulma yöntemi sunacağız.

Outlook'ta VBA kodu ile klasörü ada göre bulun

Outlook için Kutools ile Outlook'ta hesaplar arasında klasör adına göre arama yapın

Outlook'ta VBA kodu ile klasörü ada göre bulun

Aşağıdaki VBA kodunu kullanarak, belirli bir klasörü adına göre kolayca bulabilirsiniz.

not: Bu VBA kodunu kullanabilmek için klasör adını hatırlamanız gerekir.

1. Tuşuna basın. Ara Toplam + F11 açmak için klavyedeki tuşlar Uygulamalar için Microsoft Visual Basic pencere.

2. Ardından çift tıklayın Project1 > Microsoft Outlook Nesnesi > Bu OutlookOturumu açmak için Project1 - ThisOutlookSession pencere. Ekran görüntüsüne bakın:

3. Aşağıdaki VBA kodunu kopyalayıp Project1 - ThisOutlookSession penceresine yapıştırın.

VBA: klasörü ada göre bul

Sub FindFolderByName()
    Dim Name As String
    Dim FoundFolder As Folder
    
    Name = InputBox("Find Name:", "Search Folder")
    If Len(Trim$(Name)) = 0 Then Exit Sub
    
    Set FoundFouder = FindInFolders(Application.Session.Folders, Name)
    
  If Not FoundFouder Is Nothing Then
    If MsgBox("Activate Folder: " & vbCrLf & FoundFouder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
      Set Application.ActiveExplorer.CurrentFolder = FoundFouder
    End If
  Else
    MsgBox "Not Found", vbInformation
  End If
End Sub
Function FindInFolders(TheFolders As Outlook.Folders, Name As String)
  Dim SubFolder As Outlook.MAPIFolder
  
  On Error Resume Next
  
  Set FindInFolders = Nothing
  
  For Each SubFolder In TheFolders
    If LCase(SubFolder.Name) Like LCase(Name) Then
      Set FindInFolders = SubFolder
      Exit For
    Else
      Set FindInFolders = FindInFolders(SubFolder.Folders, Name)
      If Not FindInFolders Is Nothing Then Exit For
    End If
  Next
End Function 

4. Ardından F5 VBA kodunu çalıştırmak için klavyedeki tuşuna basın.

5. içinde Makrolar iletişim kutusunda, koşmak düğmesine basın.

6. Açılırken Arama Klasörü iletişim kutusunda lütfen metin kutusuna klasör adını yazın ve ardından OK buton. Ekran görüntüsüne bakın:

7. Sonra a Microsoft Outlook iletişim kutusu açılır, istediğiniz klasörün yolunu gösterir ve ardından Evet düğmesine basın.

8. Ardından belirtilen e-posta klasörü hemen açılacaktır.

not: Bu VBA kodu Outlook 2007, 2010 ve 2013'e uygulanabilir.

Outlook için Kutools ile Outlook'ta hesaplar arasında klasör adına göre arama yapın

VBA'da iyi değilseniz, deneyebilirsiniz Outlook için Kutools's git ad veya belirli bir karakterle klasörü bulabilen ve arayabilen yardımcı program, ardından doğrudan klasöre gidin

Ücretsiz kurulum Outlook için Kutools ve ardından aşağıdaki adımları uygulayın:

1. tık Kutools Artı > git.

2. içinde git iletişim kutusunda, arama çubuğuna klasör adını veya belirli karakterleri yazın, ardından ilgili klasörler listelenir.

3. Gitmek ve açmak istediğiniz klasör adına çift tıklayın, ardından klasör açılır.

  Gösteri

---

En İyi Ofis Üretkenlik Araçları

Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik

🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...

???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir)  /  E-posta Gönderimini Planla  /  E-posta Gönderirken Kurallara Göre Otomatik CC/BCC  /  Otomatik İletme (Gelişmiş Kurallar)   /  Otomatik Karşılama Ekleme   /  Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...

📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın  /  Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin  /  Yinelenen E-postaları Silin  /  gelişmiş Arama  /  Klasörleri Birleştir ...

📁 Ekler Pro: Toplu Kaydetme  /  Toplu Ayır  /  Toplu Sıkıştırma  /  Otomatik kaydet   /  Otomatik Ayır  /  Otomatik Sıkıştır ...

🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji   /  Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın  /  Outlook'u Kapatmak Yerine Küçültün ...

👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla  /   Kimlik Avına Karşı E-postalar  /  🕘Gönderenin Saat Dilimini Göster ...

👩🏼‍🤝‍👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme  /  Kişi Grubunu Bireysel Gruplara Bölme  /  Doğum Günü Hatırlatıcılarını Kaldır ...

üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.

Devamını Oku       Bedava indir      Satın alma