Note: The other languages of the website are Google-translated. Back to English

Kako najti mapo (celotno pot do mape) po imenu mape v programu Outlook?

Na primer, v podoknu za krmarjenje mapo v Outlooku pomotoma premaknete v neznano mapo in jo želite obnoviti, vendar je ne morete takoj najti. Na žalost Outlook ne podpira Najdi funkcija enaka tisti v Microsoft Word ali Excel. Ne skrbi! Za rešitev te težave v Outlooku lahko uporabite makro VBA.

Hitro poiščite in odprite mape po imenih map z neverjetnim orodjem

Na splošno lahko mape iščemo po imenih map s kodo VBA. Večina kode VBA lahko išče po mapah v trenutnem nabiralniku in odpre samo prvo najdeno mapo. Zdaj s funkcijo Pojdi na Kutools za Outlook lahko enostavno poiščete mape po imenih map in po potrebi odprete katero koli od najdenih map. Kliknite za 60-dnevno brezplačno preskusno različico brez omejitev!


Poiščite mapo (celotno pot do mape) po imenu mape z VBA

Sledite spodnjim korakom za iskanje map po imenih map z VBA v Outlooku.

1. Pritisnite druga + F11 da odprete okno Microsoft Visual Basic for Applications.

2. Kliknite Vstavi > Moduliin nato prilepite pod kodo VBA v novo okno modula.

VBA: v Outlooku poiščite in odprite mape po imenih map

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. Pritisnite F5 ali kliknite Run za zagon tega VBA.

4. V pogovorno okno Iskanje po mapi vnesite ime mape, po kateri boste iskali, in kliknite OK . Oglejte si posnetek zaslona:

Opombe: Ta VBA podpira nadomestni znak z zvezdico. Lahko na primer vnesete tes * če želite izvedeti vse mape, katerih imena se začnejo tes.

5. Zdaj se odpre pogovorno okno in prikaže pot do najdene mape. Če želite odpreti najdeno mapo, kliknite Da gumb.

Zdaj se najde najdena mapa v podoknu za krmarjenje, kot je prikazano spodaj:

Opombe: Če je z navedenim imenom imenovanih več map, lahko ta VBA najde in odpre samo eno mapo.


Iščite mapo po imenu mape z neverjetnim orodjem

Če imate nameščen Kutools za Outlook, lahko uporabite njegovo funkcijo Pojdi, da hitro poiščete vse mape z določenim imenom mape in enostavno odprete tudi vse najdene mape.

Kutools za Outlook: Dodajte več kot 100 priročnih orodij za Outlook, ki jih lahko brezplačno preizkusite v 60 dneh. Preberi več      Brezplačna preizkusna različica zdaj

1. Kliknite Kutools Plus > Pojdi na da omogočite to funkcijo.

2. V pogovorno okno Pojdi na vnesite določeno ime mape v Iskalnik izberite mapo med rezultati iskanja in kliknite Ok gumb.

Zdaj je navedena mapa z določenim imenom mape najdena in takoj odprta.


Sorodni članki:


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (9)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni.

Vau - to je neverjetna funkcija, ki bo mojo vsakodnevno uporabo Outlooka na tone pospešila.
Najlepša hvala za objavo!!

Nasvet za zainteresirane:
Če želite iskati samo v mapah INBOX, brez javnih map itd.
Zaradi tega je bilo zame veliko hitrejše, ker so javne mape oddaljene, zato je iskanje precej počasno.
In tudi ti rezultati me ne zanimajo.


Zamenjajte vrstico 24 z:

Nastavi oFolders = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,

Hvala za ta makro. Deluje odlično!


Ali obstaja način, da makro vedno išče kot nadomestne znake? Lažje bi vtipkal ključno besedo, ne da bi vsakič dodal zvezdice.
Ta komentar je moderator na spletnem mestu minimiziral
Zamenjajte vrstico 18 z
m_Find = "*" & sIme & "*"
Ta komentar je moderator na spletnem mestu minimiziral
Zamenjajte vrstico 18 z

m_Find = "*" & sIme & "*"
Ta komentar je moderator na spletnem mestu minimiziral
Ta makro mi je res pomagal, je neverjetno, hvala!!!
Ali je mogoče iti na naslednjo pojavnost, tako da namesto samo Da/Ne imate nekaj kot Da/Naslednji/Ne?
Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Zasebna m_Folder Kot MAPIFolder
Zasebno m_Najdi kot niz
Zasebni m_Wildcard Kot Boolean

Private Const SpeedUp As Boolean = True
'Private Const StopAtFirstMatch As Boolean = True
Zasebno StopAtFirstMatch Kot Boolean

Javni pod FindFolder()
Dim sName kot niz
Zatemnite mape kot mape

Nastavite m_Folder = Nič
m_Najdi = ""
m_Nadomestni znak = False

sName = InputBox("Najdi:", "Iskanje mape")
Če je Len(Trim(sName)) = 0, potem zapustite Sub

'm_Find = sIme
' Dodan »*« ... za kateri koli niz v imenu mape
m_Find = "*" & sIme & "*"

m_Najdi = LCase(m_Najdi)
m_Najdi = Zamenjaj(m_Najdi, "%", "*")
m_Wildcard = (InStr(m_Find, "*"))

' Nastavi oFolders = Application.Session.Folders
Nastavi oFolders = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders

LoopFolders ofFolders

Če ne, potem je m_Folder nič
' Odstranjeno - Če MsgBox("Aktiviraj mapo: " & vbCrLf & m_Folder.FolderPath, vbQuestion Ali vbYesNo) = vbYes Potem
Nastavite Application.ActiveExplorer.CurrentFolder = m_Folder
Else
MsgBox "Konec iskanja ...", vbInformacije
Konec Če
End Sub

Zasebne mape pod zanke (mape kot Outlook. mape)
Zatemni mapa Kot mapa MAPI
Dim bNajdeno kot Boolean

Če je SpeedUp = False, potem DoEvents

Za vsako mapo v mapah
Če je m_Wildcard Potem
bNajdeno = (LCase(oFolder.Name) Like m_Find)
Else
bNajdeno = (LCase(oFolder.Name) = m_Find)
Konec Če


Če bNajdeno Potem
Če je StopAtFirstMatch = False, potem
Nastavite Application.ActiveExplorer.CurrentFolder = oFolder

Če MsgBox("Najdeno: " & vbCrLf & oFolder.FolderPath & vbCrLf & vbCrLf & "Iskanje naslednjega?", vbQuestion Ali vbYesNo) = vbYes Potem
bNajdeno = napačno
Konec Če
Else
MsgBox ("Ni najdeno")
Konec Če
Konec Če
Če bNajdeno Potem
Nastavite m_Folder = oFolder
Izhod za
Else
LoopFolders oFolder.Folders
Če ni, m_Folder ni nič, potem izstopite za
Konec Če
Naslednji
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Vau to je točno. Resnično cenim to in tako hitro si to naredil. Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, če poskušam kopirati makro da/naslednji/ne, sem prejel samo sporočilo "Search End". Ali lahko pogledate? Zelo bi bil hvaležen. Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, če poskušam kopirati makro da/naslednji/ne, sem prejel samo sporočilo "Search End".
Bi lahko pogledali? Zelo bi bil hvaležen. Hvala
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije