Hvordan få de fullstendige mappebanene til søkeresultatene med Outlook VBA

Når du står overfor utallige søkeresultater, håper du kanskje å finne mappebanene deres. Outlook har ingen slik innfødt støtte for det. Men du kan fortsatt bruke VBA-koder for å oppnå det. Denne artikkelen vil avsløre de forseggjorte trinnene for deg.

I min forrige artikkel - "4 måter å identifisere den lokaliserte mappen for søkeresultatene”, har jeg introdusert 4 måter å få den lokaliserte mappen med søkeresultatene. Men alle av dem kan bare oppgi mappenavnet som befinner seg. Så det blir problemer med disse måtene. Hvis du for eksempel har flere mapper med samme navn, vil bruk av disse metodene ikke tillate deg å identifisere hvilken mappe søkeresultatene er nøyaktig i. I denne situasjonen må du håpe å få mappebanen i stedet for bare et mappenavn. Siden Outlook ikke har noen direkte funksjon for å støtte dette, må du gå tilbake til Outlook VBA. Her er de detaljerte kodene og trinnene.

Få de fullstendige mappebanene til søkeresultatene

1. For det første bør du start Outlook og gå til "Utvikler"-fanen.
2. Deretter finner du og klikker på "Visual Basic"-knappen i båndet, som åpner VBA-redigeringsvinduet.
3. Deretter bør du åpne en ny modul og kopiere følgende koder inn i modulvinduet.

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 = olSelItemath(1)Itemath(34)Itemath. .Parent.FolderPath strMsg = "Det valgte elementet er plassert på " & olFPath & "." & vbCrLf & "Vil du kopiere mappebanen eller se til mappen?" & vbCrLf & vbCrLf & "Klikk " & Chr(34) & "Ja" & Chr(34) & " for å kopiere" & vbCrLf & "Klikk " & Chr(34) & "Nei" & Chr(34) & " til gå til mappen" & vbCrLf & "Klikk " & Chr(34) & "Cancel" & Chr(XNUMX) & " for å lukke dialogboksen." 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.ActiveExplorer.CurrentFolder = olItem.Parent End Velg End Sub

4. Etter det kan du gå ut av det gjeldende vinduet og klikke på "Makroinnstillinger" på fanen "Utvikler". Sett makronivået til lavt i popup-vinduet.
5. Deretter bør du legge til den nye makroen til Quick Access Toolbar.

• Først klikker du på pil ned i hurtigtilgangsverktøylinjen og velger "Flere kommandoer" fra rullegardinlisten.
• I det nye vinduet tar du deretter følgende trinn vist på skjermbildet nedenfor:

6. Endelig kan du prøve.

• Utfør først et øyeblikkelig søk i «Alle varer»-søkeområdet.
• Deretter viser du ett søkeresultat og trykker på makroknappen i verktøylinjen for hurtigtilgang.
• Med en gang vil du motta en meldingsboks som inneholder den detaljerte mappebanen og tre handlingsalternativer, som følgende bilde:
• Hvis du klikker "Ja", vil du kopiere mappebanen til utklippstavlen. Hvis du trykker "Nei", vil du umiddelbart flytte til mappen for det valgte elementet. Hvis du vil forbli i søkeresultatlisten, kan du ganske enkelt trykke "Avbryt".

Få tilbake dine dyrebare Outlook-data

Outlook er sårbart, så noen ganger kan du dessverre lide Outlook PST data korrupsjon. Under disse omstendighetene vil du ikke lenger kunne få tilgang til PST-dataene dine. Du vil bli pålagt å bruke noen fremtredende og velprøvde reparasjonsverktøy, som f.eks DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparasjon korrupt SQL Server mdf-data og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med