Outlook'ta arama sonucu klasörüne nasıl hızlı bir şekilde gidip açılır?

Outlook'ta, Arama işlevi ile belirli bir metne göre e-postalarda arama yapabilirsiniz. Ancak, tüm görünüm öğelerinde arama yapıyorsanız, arama sonucunun bulunduğu klasörü hızlı bir şekilde bulamazsınız. Bu durumda, burada, arama sonucunun bulunduğu klasöre hızlı bir şekilde gidip açmanıza yardımcı olabilecek bazı hilelerim var.

VBA ile arama sonucu klasörüne gidin ve açın

Sağ Tıkla arama sonucu klasörüne gidin ve açın

VBA ile arama sonucu klasörüne gidin ve açın

Outlook'ta, VBA kodu dışında bu işi halledebilecek yerleşik bir işlev yoktur.

VBA kodunu kullanmadan önce, aranan sonuçlarda klasör adını görüntülemeniz gerekir.

1. tık Görüntüle > Sütun ekle.

2. içinde Sütunları Göster diyalog ve içinde Kullanılabilir sütunları seçin açılan listeden Tüm Posta alanları, Daha sonra seçmek Klasörde içinde Kullanılabilir sütunlar liste.

3. tık Ekle eklemek Klasörlerde için Bu sütunları bu sırayla gösterin liste, ardından tıklayın Yukarı Taşı hareket ettirmek için düğme Klasörde üst.

4. tık OK iletişim kutusunu kapatmak için. Artık e-postaları ararken, klasör adı arama sonuçlarında görüntülenecektir.

5. Şimdi basın Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül yeni bir Modül oluşturmak için.

6. Aşağıdaki kodu kopyalayıp Modüle yapıştırın.

VBA: Klasöre bir ada göre git

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. Basın F5 kodu etkinleştirmek için tuşuna basın, şimdi gitmek istediğiniz klasör adını iletişim kutusuna girin.

8. tık OK, size klasörün konumunu hatırlatmak için bir iletişim kutusu açılır, Evet doğrudan klasöre gitmek için veya Yok hayır iptal etmek.

Sağ Tıkla arama sonucu klasörüne gidin ve açın

Eğer varsa Outlook için Kutoolsbir olacak Açık dosya yardımcı program, seçilen e-postanın klasörüne hızlı bir şekilde gidebilen sağ tıklama menüsüne gömülür.

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

Arama yaptıktan sonra, klasörünü açmak istediğiniz sonuca sağ tıklayın, seçin Açık dosya bağlam menüsünden.

---

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