Cum să obțineți căile complete ale folderului pentru rezultatele căutării cu Outlook VBA

Când vă confruntați cu nenumărate rezultate ale căutării, puteți spera să determinați căile de foldere ale acestora. Outlook nu are un astfel de suport nativ pentru el. Dar încă poți folosi codurile VBA pentru a-l realiza. Acest articol vă va expune pașii elaborați.

În articolul meu anterior – „4 moduri de a identifica folderul localizat al rezultatelor căutării”, am introdus 4 mijloace pentru a obține folderul localizat al rezultatelor căutării. Dar toți pot furniza doar numele folderului localizat. Deci va fi o problemă prin aceste mijloace. De exemplu, dacă aveți mai multe foldere cu același nume, utilizarea acestor metode nu vă va permite să identificați în ce folder se află exact rezultatele căutării. În această situație, trebuie să sperați să obțineți calea folderului în loc de pur și simplu numele unui folder. Deoarece Outlook nu are nicio funcție directă care să accepte acest lucru, trebuie să recurgeți la Outlook VBA. Iată codurile detaliate și pașii.

Obțineți căile complete ale folderului pentru rezultatele căutării

1. În primul rând, ar trebui să start Outlook și mergeți la fila „Dezvoltator”.
2. Apoi, în panglică, localizați și faceți clic pe butonul „Visual Basic”, care va deschide fereastra editorului VBA.
3. Apoi, ar trebui să deschideți un nou modul și să copiați următoarele coduri în fereastra modulului.

Sub GetFolderPathofSelectedItem() Dim olSel As Selection Dim olItem As Object Dim olFolder As Folder Dim olFPath As String Dim strMsg As String Dim Dataobj As DataObject Set olSel = Outlook.Application.ActiveExplorer.Selection Set olItem =( ol)Item olSel. .Parent.FolderPath strMsg = "Articolul selectat se află la " & olFPath & "." & vbCrLf & "Doriți să copiați calea dosarului sau să accesați folderul?" & vbCrLf & vbCrLf & „Clic „ & Chr(1) & „Da” & Chr(34) & „ pentru a copia” & vbCrLf & „Clic „ & Chr(34) & „Nu” & Chr(34) & „ pentru accesați folderul" & vbCrLf & "Faceți clic pe " & Chr(34) & "Anulați" & Chr(34) & " pentru a închide caseta de dialog." nRes = MsgBox(strMsg, vbInformation + vbYesNoCancel, "Get Item Folder Path") Select Case nRes Case vbYes Set Dataobj = New MSForms.DataObject Dataobj.SetText olFPath Dataobj.PutInClipboard Case vbNo Set Outlook.Application.Currere. End Selectați End Sub

4. După aceea, puteți ieși din fereastra curentă și faceți clic pe „Setări macro” din fila „Dezvoltator”. În fereastra pop-up, setați nivelul macro la scăzut.
5. Ulterior, ar trebui să adăugați noua macrocomandă la Bara de instrumente Acces rapid.

• În primul rând, faceți clic pe săgeata în jos din Bara de instrumente Acces rapid și alegeți „Mai multe comenzi” din lista derulantă.
• Apoi, în fereastra emergentă, parcurgeți următorii pași afișați în captura de ecran de mai jos:

6. În sfârșit, puteți încerca.

• Mai întâi, efectuați o căutare instantanee în domeniul de căutare „Toate articolele”.
• Apoi prezentați un rezultat al căutării și apăsați butonul macro din bara de instrumente Acces rapid.
• Imediat, veți primi o casetă de mesaj, care va conține calea detaliată a folderului și trei opțiuni de acțiune, cum ar fi următoarea imagine:
• Dacă faceți clic pe „Da”, veți copia calea folderului în clipboard. Dacă apăsați „Nu”, vă veți muta imediat în folderul articolului selectat. Dacă doriți să rămâneți în lista cu rezultatele căutării, puteți pur și simplu să apăsați pe „Anulare”.

Recuperează-ți datele prețioase Outlook

Outlook este vulnerabil, astfel încât uneori s-ar putea să suferi, din păcate Coruperea datelor PST din Outlook. În această circumstanță, nu veți mai putea accesa datele dvs. PST. Vi se va cere să utilizați un instrument de reparare preeminent și dovedit, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara corupt SQL Server date mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com