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.
Kutools for Outlook , Kapsar 100'den fazla Microsoft Outlook 2016, 2013, 2010 ve Office 365 için güçlü özellikler ve araçlar. |
||
Ü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.





