Outlook'ta klasör adı ile klasörü (tam klasör yolu) nasıl bulabilirim?
Örneğin, Gezinti bölmesinde bir klasörü yanlışlıkla bilinmeyen bir klasöre taşıyıp bırakıyorsunuz ve bu klasörü geri yüklemek istiyorsunuz ancak hemen bulamıyorsunuz. Ne yazık ki, Outlook, Microsoft Word veya Excel'deki gibi "Bul" özelliğini desteklemiyor. Endişelenmeyin! Bu sorunu çözmek için bir VBA makrosu uygulayabilirsiniz.
VBA ile klasör adı ile klasör (tam klasör yolu) bulma
Lütfen Outlook'ta VBA ile klasör adlarına göre klasör aramak için aşağıdaki adımları izleyin.
1. "Alt" + "F11" tuşlarına birlikte basarak "Microsoft Visual Basic for Applications" penceresini açın.
2. "Ekle" > "Modül"'e tıklayın ve ardından aşağıdaki VBA kodunu yeni Modül penceresine yapıştırın.
VBA: Outlook'ta klasör adıyla klasörleri ara ve aç
Private m_Folder As MAPIFolder
Private m_Find As String
Private m_Wildcard As Boolean
Private Const SpeedUp As Boolean = True
Private Const StopAtFirstMatch As Boolean = True
Public Sub FindFolder()
Dim sName As String
Dim oFolders As Folders
Set m_Folder = Nothing
m_Find = ""
m_Wildcard = False
sName = InputBox("Find:", "Search folder")
If Len(Trim(sName)) = 0 Then Exit Sub
m_Find = sName
m_Find = LCase(m_Find)
m_Find = Replace(m_Find, "%", "*")
m_Wildcard = (InStr(m_Find, "*"))
Set oFolders = Application.Session.Folders
LoopFolders oFolders
If Not m_Folder Is Nothing Then
If MsgBox("Activate folder: " & vbCrLf & m_Folder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
Set Application.ActiveExplorer.CurrentFolder = m_Folder
End If
Else
MsgBox "Not found", vbInformation
End If
End Sub
Private Sub LoopFolders(Folders As Outlook.Folders)
Dim oFolder As MAPIFolder
Dim bFound As Boolean
If SpeedUp = False Then DoEvents
For Each oFolder In Folders
If m_Wildcard Then
bFound = (LCase(oFolder.Name) Like m_Find)
Else
bFound = (LCase(oFolder.Name) = m_Find)
End If
If bFound Then
If StopAtFirstMatch = False Then
If MsgBox("Found: " & vbCrLf & oFolder.FolderPath & vbCrLf & vbCrLf & "Continue?", vbQuestion Or vbYesNo) = vbYes Then
bFound = False
End If
End If
End If
If bFound Then
Set m_Folder = oFolder
Exit For
Else
LoopFolders oFolder.Folders
If Not m_Folder Is Nothing Then Exit For
End If
Next
End Sub
3. "F5" tuşuna basın veya "Çalıştır" düğmesine tıklayarak bu VBA'yı çalıştırın.
4. Açılan "Klasör Ara" iletişim kutusunda, aranacak belirli klasör adını yazın ve "Tamam" düğmesine tıklayın.
Not: Bu VBA joker karakter olan yıldız işareti (*) destekler. Örneğin, adı tes ile başlayan tüm klasörleri bulmak için tes* yazabilirsiniz.
5. Şimdi bir iletişim kutusu çıkıyor ve bulunan klasörün yolunu gösteriyor. Bulunan klasörü açmanız gerekiyorsa lütfen "Evet" düğmesine tıklayın.
Ve şimdi bulunan klasör aşağıdaki ekran görüntüsünde gösterildiği gibi Gezinti Bölmesi'nde açılıyor:
Not: Belirtilen isimde birden fazla klasör varsa, bu VBA yalnızca bir klasörü bulabilir ve açabilir.
Outlook'daki AI Mail Asistanı: Daha Akıllı Yanıtlar, Daha Açık İletişim (tek tıklama sihirbazlığı!) ÜCRETSİZ
Kutools for Outlook'un AI Mail Asistanı ile günlük Outlook görevlerinizi kolaylaştırın. Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek size akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesaj taslaklarını hazırlamada ve geliştirmede size yardımcı olur.

Bu özellik şunları destekler:
- Akıllı Yanıtlar: Geçmiş konuşmalarınızdan oluşturulan, kişiselleştirilmiş, kesin ve kullanıma hazır yanıtlar alın.
- Geliştirilmiş İçerik: E-posta metniniz otomatik olarak netlik ve etki için iyileştirilir.
- Kolay Taslak Oluşturma: Sadece anahtar kelimeler sağlayın ve AI'nın gerisini halletmesine izin verin; birden fazla yazım stiliyle.
- Akıllı Genişletmeler: Bağlam farkındalığına sahip önerilerle düşüncelerinizi genişletin.
- Özetleme: Uzun e-postaların kısa ve öz bir özetini anında alın.
- Küresel Kapsam: E-postalarınızı herhangi bir dile kolayca çevirin.
Bu özellik şunları destekler:
- Akıllı e-posta yanıtları
- Optimize edilmiş içerik
- Anahtar kelimeye dayalı taslaklar
- Akıllı içerik genişletme
- E-posta özetleme
- Çok dilli çeviri
En önemlisi, bu özellik sonsuza kadar tamamen ücretsiz! Boşuna beklemeyin—şimdi AI Mail Asistanını indirin ve keyfini çıkarın
Harika bir araç ile klasör adı ile klasör ara
"Kutools for Outlook" yüklüyse, belirli bir klasör adına göre tüm klasörleri hızlıca bulmak için "Klasörü Aç" özelliğini kullanabilir ve bulunan herhangi bir klasörü kolayca açabilirsiniz.
Kutools for Outlook ile en üst düzey e-posta verimliliğini açın! Sonsuza kadar tamamen ücretsiz olarak 70 güçlü özelliğe erişin. Ücretsiz Sürümü Şimdi İndirin!
1. "Kutools Plus" > "Klasörü Aç" seçeneğine tıklayarak bu özelliği etkinleştirin.
2. "Klasörü Aç" iletişim kutusunda, "Ara" kutusuna belirli bir klasör adı yazın, arama sonuçlarından bir klasör seçin ve "Tamam" düğmesine tıklayın.
Şimdi belirli bir klasör adı ile belirtilen klasör bulunur ve hemen açılır.
İlgili makaleler:
En İyi Ofis Verimlilik Araçları
Son Dakika: Kutools for Outlook Ücretsiz Sürümünü Başlattı!
Yepyeni Kutools for Outlook ÜCRETSİZ sürümünü70'ten fazla harika özellikle sonsuza dek kullanabilirsiniz! Şimdi indirmek için tıklayın!
📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-postaları Zamanla Gönder / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selamlama Ekle / Çoklu Alıcılı E-postaları Otomatik Olarak Bireysel E-postalara Böl...
📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu ve Diğerlerine Göre Dolandırıcılık E-postalarını Engelle / Yinelenen E-postaları Sil / Gelişmiş Arama / Klasörleri düzenle...
📁 Ekler Pro: Toplu Kaydet / Toplu Ayır / Toplu Sıkıştır / Otomatik Kaydet / Otomatik Ayır / Otomatik Sıkıştır...
🌟 Arayüz Sihri: 😊Daha Fazla Güzel ve Havalı Emoji / Önemli e-postalar geldiğinde sizi uyarır / Outlook'u Kapatmak Yerine Simge Durumuna Küçült...
👍 Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Kimlik Avı E-postalarına Karşı Koruma / 🕘Gönderenin Saat Dilimini Göster...
👩🏼🤝👩🏻 Kişiler & Takvim: Seçilen E-postalardan Toplu Kişi Ekle / Bir Kişi Grubunu Bireysel Gruplara Böl / Doğum günü hatırlatıcısını kaldır...

