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.

---

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.

Devamı ... Şimdi İndirin...