Outlook'ta bir klasörü ada göre nasıl bulabilirim?

Örneğin, Outlook’ta birçok e-posta klasörünüz varsa ve belirli bir kişisel klasörü açmanız gerekiyorsa, o klasör görünene kadar birden fazla klasörü tek tek genişletmek zorunda kalabilirsiniz. Bu işlem, özellikle belirli bir kişisel klasöre ulaşmak için klasörleri sırayla açmaya çalışıyorsanız oldukça yorucu olabilir. Ancak aslında, klasör adını hatırladığınızda her şey çok daha kolay hale gelir. Bu eğitimde, klasörleri tek tek genişletmek yerine Outlook’ta ada göre klasör bulmanın pratik bir yöntemini sizinle paylaşacağız.

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

Outlook'ta Kutools for Outlook ile tüm hesaplarda ada göre klasör arayın

---

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

Aşağıdaki VBA kodu sayesinde, 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. Microsoft Visual Basic for Applications penceresini açmak için klavyeden Alt+F11 tuşlarına basın.

2. Ardından, Project1 > Microsoft Outlook Object > ThisOutlookSession öğesine çift tıklayarak Project1 – ThisOutlookSession penceresini açın. Ekran görüntüsüne bakın:

3. Aşağıdaki VBA kodunu Project1 – ThisOutlookSession penceresine kopyalayıp 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 VBA kodunu çalıştırmak için klavyede F5 tuşuna basın.

5. Makrolar iletişim kutusunda, Çalıştır düğmesine tıklayın.

6. Karşınıza çıkan Klasör Ara iletişim kutusundaki metin kutusuna Klasör Adı girin ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

7. Ardından bir Microsoft Outlook iletişim kutusu açılır; bu kutuda istediğiniz klasörün yolu gösterilir. Ardından Evet düğmesine tıklayın.

8. Böylece belirtilen e-posta klasörü anında açılır.

Not: Bu VBA kodu, Outlook 2007, 2010 ve 2013 sürümlerinde kullanılabilir.

---

Outlook'ta Kutools for Outlook ile tüm hesaplarda ada göre klasör arayın

VBA konusunda pek iyi değilseniz, ada veya belirli bir karaktere göre klasör arayıp doğrudan ilgili klasöre gitmenizi sağlayan Kutools for Outlook’un Git özelliğini deneyebilirsiniz.

Kutools for Outlook'i ücretsiz olarak yükleyin ve aşağıdaki adımları uygulayın:Kutools for Outlook

1. KUTOOLS PLUS > Klasör > Git seçeneğine tıklayın.

2. Git iletişim kutusunda, arama çubuğuna klasör adı veya belirli karakterleri yazın; ilgili klasörler anında listelenir.

3. Gitmek ve açmak istediğiniz klasör adına çift tıklayın; böylece klasör açılacaktır.

  Demo