Outlook’ta arama sonucunun bulunduğu klasöre nasıl hızlıca ulaşılır ve açılır?

Outlook’ta Arama işlevini kullanarak belirli bir metne göre e-postalarınızı kolayca bulabilirsiniz. Ancak “Tüm Outlook Öğeleri” üzerinden arama yaptığınızda, arama sonucunun hangi klasörde olduğunu hızlıca tespit etmek zor olabilir. Neyse ki, bu durumda arama sonucunun bulunduğu klasöre anında ulaşmanıza ve hemen açmanıza yardımcı olacak bazı pratik püf noktalarım var!

Arama sonucunun klasörüne VBA ile gidin ve açın

Arama sonucunun klasörüne sağ tıklayarak gidin ve açın

---

Arama sonucunun klasörüne VBA ile gidin ve açın

Outlook'ta bu görevi gerçekleştirmek için yerleşik bir işlev bulunmamaktadır; VBA kodu dışında.

VBA kodunu kullanmadan önce, arama sonuçlarında **Klasör Adı** sütununun görünür olduğundan emin olun.

1. Görünüm > Birden Çok Sütun Ekle seçeneğine tıklayın.

2. Sütunları Göster iletişim kutusunda, Şu kaynaktan kullanılabilir sütunları seçin açılır liste seçeneğinden Tüm Posta alanları’nı seçin, ardından Klasörde seçeneğini Kullanılabilir sütunlar listesinden seçin.

3. Ekle düğmesine tıklayarak Klasörlerde sütununu Bu sırada şu sütunlar gösterilsin listesine ekleyin, ardından Yukarı Taşı düğmesine tıklayarak Klasörde sütununu listenin en üstüne taşıyın.

4. Tamam düğmesine tıklayarak iletişim kutusunu kapatın. Artık e-posta ararken Klasör Adı sütunu, arama sonuçlarında görüntülenecektir.

5. Şimdi Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın, ardından Ekle > Modül seçeneğine tıklayarak yeni bir modül oluşturun.

6. Aşağıdaki kodu kopyalayın ve Modül içine yapıştırın.

VBA: Belirtilen Outlook klasörünü aç adına göre

Sub FindFolderByName()
'UpdatebyExtendoffice20181105
    Dim xFldName As String
    Dim xFoundFolder As Folder
    Dim xYesNo As Integer
    On Error Resume Next
    xFldName = InputBox("Folder Name:", "Kutools for Outlook")
    If Len(Trim(xFldName)) = 0 Then Exit Sub
    Set xFoundFolder = ProcessFolders(Application.Session.Folders, xFldName)
    If xFoundFolder Is Nothing Then
        MsgBox "Not Found", vbInformation, "Kutools for Outlook"
        Exit Sub
    End If
    xYesNo = MsgBox("Activate Folder: " & vbCrLf & xFoundFolder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
    If xYesNo = vbNo Then Exit Sub
    Set Application.ActiveExplorer.CurrentFolder = xFoundFolder
End Sub
Function ProcessFolders(Flds As Outlook.Folders, Name As String)
    Dim xSubFolder As Outlook.MAPIFolder
    On Error Resume Next
    Set ProcessFolders = Nothing
    For Each xSubFolder In Flds
        If UCase(xSubFolder.Name) = UCase(Name) Then
            Set ProcessFolders = xSubFolder
            Exit For
        Else
            Set ProcessFolders = ProcessFolders(xSubFolder.Folders, Name)
            If Not ProcessFolders Is Nothing Then Exit For
        End If
    Next
End Function

7. F5 tuşuna basarak kodu çalıştırın; ardından gitmek istediğiniz klasör adını "Klasör Adı" iletişim kutusuna girin.

8. Tamam düğmesine tıklayın. Klasörün konumunu hatırlatan bir iletişim kutusu açılacaktır. Klasöre doğrudan gitmek için Evet'e, iptal etmek için ise Hayır'a tıklayın.

---

Arama sonucunun klasörüne sağ tıklayarak gidin ve açın

Eğer Kutools for Outlook yüklüyse, sağ tık menüsüne “Klasörü Aç” aracı entegre edilir; bu araç, arama sonuçları listesinde olsanız bile seçili e-postanın bulunduğu klasöre anında ulaşmanızı sağlar.

Ücretsiz olarakKutools for Outlook yükleyin ve aşağıdaki adımları izleyin:

Aramayı tamamladıktan sonra, klasörünü açmak istediğiniz sonuca sağ tıklayın ve bağlam menüsünden Klasörde Aç (Kutools) seçeneğini seçin.