Cum se găsește folderul (calea completă a folderului) după numele folderului în Outlook?
De exemplu, în panoul de navigare mutați un folder și scăpați din greșeală într-un folder necunoscut în Outlook, doriți să restaurați acest folder, dar nu îl puteți afla imediat. Din păcate, Outlook nu acceptă Găsi caracteristică identică cu cea din Microsoft Word sau Excel. Nu iti face griji! Puteți aplica o macrocomandă VBA pentru a rezolva această problemă în Outlook.
- Găsiți folderul (calea completă a folderului) după numele folderului cu VBA
- Căutați folderul după numele folderului cu un instrument uimitor
Căutați rapid și deschideți folderele după numele folderului cu un instrument uimitor
În general, putem căuta foldere după numele folderului cu codul VBA. Majoritatea codului VBA poate căuta foldere în cutia poștală curentă și poate deschide numai primul folder găsit. Acum, cu funcția Trecere la Kutools pentru Outlook, puteți găsi cu ușurință foldere după numele folderului și puteți deschide oricine dintre folderele găsite după cum aveți nevoie.
Găsiți folderul (calea completă a folderului) după numele folderului cu VBA
Vă rugăm să urmați pașii de mai jos pentru a căuta foldere după numele folderelor cu VBA în Outlook.
1. presa Alt + F11 tastele împreună pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.
2. Clic Insera > Module, și apoi lipiți mai jos codul VBA în noua fereastră a modulului.
VBA: Căutați și deschideți folderele după numele folderului în Outlook
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. presa F5 tasta sau faceți clic pe Alerga pentru a rula acest VBA.
4. În caseta de dialog care apare în folderul Căutare, introduceți numele folderului specificat după care veți căuta și faceți clic pe OK buton. Vedeți captura de ecran:
notițe: Acest VBA acceptă asterisc wildcard. De exemplu, puteți tasta tes * pentru a afla toate folderele al căror nume începe cu tes.
5. Acum apare o casetă de dialog și afișează calea folderului folderului găsit. Dacă trebuie să deschideți folderul găsit, faceți clic pe Da butonul.
Și acum dosarul găsit se deschide pe panoul de navigare, după cum se arată în imaginea de mai jos:
notițe: Dacă există mai multe foldere denumite cu numele specificat, acest VBA poate găsi și deschide un singur folder.
Căutați folderul după numele folderului cu un instrument uimitor
Dacă aveți instalat Kutools pentru Outlook, puteți aplica funcția Go To pentru a afla rapid toate folderele cu un anumit nume de folder și pentru a deschide cu ușurință și oricine a găsit folderele.
Kutools pentru Outlook: Suplimentați Outlook cu peste 100 de instrumente obligatorii. Testați-l GRATUIT timp de 60 de zile, fără obligații! Citeşte mai mult ... Descarcă acum!
1. Clic Kutools Plus > Mergi la pentru a activa această caracteristică.
2. În dialogul Accesați, tastați numele folderului specificat în Caută , selectați un folder în rezultatele căutării și faceți clic pe Ok butonul.
Acum, folderul specificat cu numele anumit folder este găsit și deschis imediat.
Legate de articole:
Cele mai bune instrumente de productivitate de birou
Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook
🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...
📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP) / Programați trimiterea de e-mailuri / CC/BCC automat după reguli la trimiterea e-mailului / Redirecționare automată (Reguli avansate) / Adăugare automată felicitare / Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...
📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile / Blocați e-mailurile înșelătorii de către subiecți și alții / Ștergeți e-mailurile duplicate / Cautare Avansata / Consolidați foldere ...
📁 Atașamente Pro: Salvați în serie / Detașare lot / Compresă în loturi / Salvare automata / Detașare automată / Comprimare automată ...
🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool / Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file / Minimizați Outlook în loc să închideți ...
???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite / E-mailuri anti-phishing / 🕘Afișați fusul orar al expeditorului ...
👩🏼🤝👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate / Împărțiți un grup de contact în grupuri individuale / Eliminați mementouri de ziua de naștere ...
Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.