Hvordan finne mappen ved navn i Outlook?
For eksempel har skapt mange e-postmapper i Outlook, når en bestemt personlig mappe må åpnes, du må utvide flere mapper til det som er angitt mappe dukker opp. Det er vanskelig å utvide flere mapper en etter en for å åpne en spesifisert personlig mappe. Egentlig, hvis du husker navnet på mappen, vil alt bli lett. I denne opplæringen, vil vi gi deg en metode for å finne mappen ved navn i Outlook i stedet for å utvide mapper en etter en for å finne mappen.
2013.
Finn mappen med navn i Outlook med VBA-kode
med følgende VBA-kode, kan du enkelt finne en bestemt mappe med navnet
. Merk: du må huske mappenavnet for å bruke denne VBA-kode
1.. Trykk på ALT + F11-tastene på tastaturet for å åpne Microsoft Visual Basic for Applications vinduet.
2. Deretter dobbeltklikker du på Project1 > Microsoft Outlook Object > ThisOutlookSession å åpne Project1 - ThisOutlookSession vindu. Se skjermbilde:
tre. Kopier og lim inn følgende VBA kode i Project1 - ThisOutlookSession vindu
VBA. Finne mappen ved navn
Sub FindFolderByName () Dim navn As String Dim FoundFolder Som Folder Name = InputBox ( "Finn navn:", "Søk Folder ") Hvis Len (Trim $ (navn)) = 0 Then Exit Sub Set FoundFouder = FindInFolders (Application.Session.Folders, navn) Hvis ikke FoundFouder Er Ingenting Deretter Hvis MsgBox (" Aktiver Folder: "& vbCrLf & FoundFouder .FolderPath, vbQuestion Eller vbYesNo) = vbYes Så Set Application.ActiveExplorer.CurrentFolder = FoundFouder End If Else MsgBox "Not Found", vbInformation End IfEnd underfunksjon FindInFolders (TheFolders Som Outlook.Folders, navn As String) Dim undermappe som Outlook.MAPIFolder På feil Resume Next Set FindInFolders = Nothing For hver undermappe I TheFolders Hvis LCase (SubFolder.Name) Liker LCase (navn) Deretter Sett FindInFolders = undermappe Exit For Else Set FindInFolders = FindInFolders (SubFolder.Folders, navn) Hvis ikke FindInFolders Er Nothing Then Exit for End If NextEnd Function 4. trykk deretter F5-tasten på tastaturet for å kjøre VBA-kode.
5. I dialogboksen Makroer, klikker du på Kjør-knappen.
6. I dukker opp søkemappe dialogboksen, kan du skrive inn navnet på mappen i tekstboksen, klikker du på OK-knappen. Se skjermbilde:
7. Så en dialogboks Microsoft Outlook dukker opp, det viser banen til ønsket mappe, og klikk deretter på Ja.
8. Da den angitte e-postmappe vil bli åpnet umiddelbart
. Merk: Denne VBA-kode kan brukes til Outlook 2007, 2010 og 2013.
