Ako je možné získať úplné priečinky s výsledkami vyhľadávania pomocou aplikácie Outlook VBA

Keď budete čeliť nespočetným výsledkom vyhľadávania, môžete dúfať, že určíte ich cesty k umiestneným priečinkom. Outlook nemá takú natívnu podporu. Stále však môžete na dosiahnutie tohto cieľa využiť kódy VBA. V tomto článku vám vysvetlíme zložité kroky.

V mojom predchádzajúcom článku - „4 spôsoby identifikácie umiestneného priečinka výsledkov vyhľadávania”, Zaviedol som 4 prostriedky na získanie umiestneného priečinka s výsledkami vyhľadávania. Ale všetky môžu poskytnúť iba názov umiestneného priečinka. Týmto spôsobom teda dôjde k problému. Napríklad, ak máte niekoľko priečinkov s rovnakým názvom, použitie týchto metód vám neumožní určiť, v ktorom priečinku sa presne nachádzajú výsledky hľadania. V takom prípade musíte dúfať, že namiesto jednoduchého názvu priečinka získate cestu k priečinku. Pretože Outlook nemá žiadnu priamu funkciu, ktorá by to podporovala, musíte sa vrátiť k Outlook VBA. Tu sú podrobné kódy a kroky.

Získajte úplné priečinky s výsledkami vyhľadávania

1. V prvom rade by ste mali start Outlook a prejdite na kartu „Vývojár“.
2. Potom na páse s nástrojmi vyhľadajte a kliknite na tlačidlo „Visual Basic“, ktoré otvorí okno editora VBA.
3. Ďalej by ste mali otvoriť nový modul a skopírovať nasledujúce kódy do okna modulu.

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 = olSel.Item (ol) olFPath .Parent.FolderPath strMsg = "Vybraná položka sa nachádza na" & olFPath & "." & vbCrLf & "Chcete skopírovať cestu k priečinku alebo priečinok do priečinka?" & vbCrLf & vbCrLf & „Kliknúť“ & Chr (1) & „Áno“ & Chr (34) & „kopírovať“ & vbCrLf & „Kliknúť“ & Chr (34) & „Nie“ & Chr (34) & „ do priečinka „& vbCrLf &“ Kliknutím na & Chr (34) & Zrušiť & Chr (34) & zatvorte dialógové okno. " nRes = MsgBox (strMsg, vbInformation + vbYesNoCancel, "Získať cestu k priečinku položky") Vybrať prípad nRes Prípad vbYes Nastaviť Dataobj = Nový MSForms.DataObject Dataobj.SetText olFPath Dataobj.PutInClipboard Prípad vbNo Nastaviť Outlook.Appler.Co = Outlook.ppler.Co Koniec Vyberte Koniec Sub

4. Potom môžete opustiť aktuálne okno a kliknúť na „Nastavenia makra“ na karte „Vývojár“. V rozbaľovacom okne nastavte nízku úroveň makra.
5. Následne by ste mali pridať nové makro na panel s nástrojmi Rýchly prístup.

• Najskôr kliknite na šípku nadol na paneli s nástrojmi Rýchly prístup a v rozbaľovacom zozname vyberte možnosť „Viac príkazov“.
• Potom vo vznikajúcom okne urobte nasledujúce kroky zobrazené na snímke obrazovky nižšie:

6. Nakoniec to môžete vyskúšať.

• Najskôr vykonajte okamžité vyhľadávanie v rozsahu vyhľadávania „Všetky položky“.
• Potom ponúknite jeden výsledok vyhľadávania a stlačte tlačidlo makra na paneli s nástrojmi Rýchly prístup.
• Okamžite dostanete okno so správou, ktoré bude obsahovať podrobnú cestu k priečinku a tri možnosti akcií, napríklad nasledujúci obrázok:
• Ak kliknete na „Áno“, skopírujete cestu k priečinku do schránky. Ak stlačíte „Nie“, okamžite sa presuniete do priečinka vybranej položky. Ak chcete zostať v zozname výsledkov vyhľadávania, môžete jednoducho stlačiť tlačidlo „Zrušiť“.

Získajte späť svoje vzácne údaje z Outlooku

Outlook je zraniteľný, takže niekedy môžete bohužiaľ trpieť Poškodenie údajov programu Outlook PST. Za týchto okolností už nebudete mať prístup k svojim údajom PST. Bude sa od vás vyžadovať, aby ste použili vynikajúci a osvedčený nástroj na opravu, ako napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť poškodený SQL Server MDF dáta a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S