Skip to main content

Conas fillteán de réir ainm a fháil in Outlook?

Mar shampla, chruthaigh tú go leor fillteán ríomhphoist in Outlook, nuair is gá fillteán pearsanta sonraithe a oscailt, caithfidh tú ilfhillteáin a leathnú go dtí go dtaispeánfar an fillteán sonraithe sin. Tá sé trioblóideach fillteáin iolracha a leathnú ceann ar cheann díreach chun fillteán pearsanta sonraithe a oscailt. I ndáiríre, más cuimhin leat ainm an fhillteáin, éireoidh gach rud go héasca. Sa rang teagaisc seo, cuirfimid modh ar fáil duit chun fillteán a aimsiú faoina ainm in Outlook in ionad fillteáin a leathnú ceann ar cheann chun an fillteán a aimsiú.

Faigh fillteán de réir ainm in Outlook le cód VBA

Cuardaigh fillteán de réir ainm ar fud na gcuntas in Outlook le Kutools le haghaidh Outlooksmaoineamh maith3


mboilgeog cheart gorm saighead Faigh fillteán de réir ainm in Outlook le cód VBA

Agus an cód VBA seo a leanas agat, is féidir leat fillteán sonraithe faoina ainm a fháil go héasca.

nótaí: Ní mór duit ainm an fhillteáin a mheabhrú d’fhonn an cód VBA seo a úsáid.

1. Brúigh an Eile + F11 eochracha ar an méarchlár chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Ansin cliceáil faoi dhó ar an Project1 > Microsoft Outlook Object > ThisOutlookSession a oscailt Tionscadal1 - ThisOutlookSession fuinneog. Féach an pictiúr:

3. Cóipeáil agus greamaigh an cód VBA seo a leanas isteach i bhfuinneog Project1 - ThisOutlookSession.

VBA: faigh fillteán de réir ainm

Sub FindFolderByName()
    Dim Name As String
    Dim FoundFolder As Folder
    
    Name = InputBox("Find Name:", "Search Folder")
    If Len(Trim$(Name)) = 0 Then Exit Sub
    
    Set FoundFouder = FindInFolders(Application.Session.Folders, Name)
    
  If Not FoundFouder Is Nothing Then
    If MsgBox("Activate Folder: " & vbCrLf & FoundFouder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
      Set Application.ActiveExplorer.CurrentFolder = FoundFouder
    End If
  Else
    MsgBox "Not Found", vbInformation
  End If
End Sub
Function FindInFolders(TheFolders As Outlook.Folders, Name As String)
  Dim SubFolder As Outlook.MAPIFolder
  
  On Error Resume Next
  
  Set FindInFolders = Nothing
  
  For Each SubFolder In TheFolders
    If LCase(SubFolder.Name) Like LCase(Name) Then
      Set FindInFolders = SubFolder
      Exit For
    Else
      Set FindInFolders = FindInFolders(SubFolder.Folders, Name)
      If Not FindInFolders Is Nothing Then Exit For
    End If
  Next
End Function 

4. Ansin brúigh F5 eochair ar an méarchlár chun an cód VBA a rith.

5. Sa Macraí bosca dialóige, cliceáil an Rith cnaipe.

6. Sa popping suas Fillteán Cuardaigh bosca dialóige, clóscríobh ainm an fhillteáin sa bhosca téacs, ansin cliceáil ar an OK cnaipe. Féach an pictiúr:

7. Ansin a Microsoft Outlook tagann bosca dialóige aníos, taispeánann sé cosán an fhillteáin atá uait, agus ansin cliceáil ar an Is ea cnaipe.

8. Ansin osclófar an fillteán ríomhphoist sonraithe láithreach.

nótaí: Is féidir an cód VBA seo a chur i bhfeidhm ar Outlook 2007, 2010 agus 2013.


mboilgeog cheart gorm saighead Cuardaigh fillteán de réir ainm ar fud na gcuntas in Outlook le Kutools le haghaidh Outlook

Mura bhfuil tú go maith ag VBA, is féidir leat triail a bhaint Kutools le haghaidh Outlook's Téigh go fóntais, ar féidir leis fillteán a aimsiú agus a chuardach le hainm nó carachtar sonrach, ansin téigh go díreach chuig an bhfillteán

Kutools for Outlook , Áirítear gnéithe agus uirlisí cumhachtacha do Microsoft Outlook 2016, 2013, 2010 agus Office 365.

Suiteáil saor in aisce Kutools for Outlook, agus ansin déan mar atá thíos na céimeanna:

1. cliceáil Kutools Plus > Téigh go.
doc aimsigh fillteán de réir ainm 5

2. Sa Téigh go dialóg, clóscríobh ainm an fhillteáin nó carachtair shonracha sa bharra cuardaigh, ansin tá na fillteáin choibhneasta liosta.
doc aimsigh fillteán de réir ainm 6

3. Cliceáil faoi dhó ar ainm an fhillteáin ar mhaith leat dul ann agus a oscailt, ansin tá an fillteán oscailte.
doc aimsigh fillteán de réir ainm 7


Uirlisí Táirgiúlachta Oifige is Fearr

Kutools le haghaidh Outlook - Níos mó ná 100 Gnéithe cumhachtacha chun do Outlook a shárú

🤖 Cúntóir Ríomhphoist AI: Ríomhphoist pro toirt le draíocht AI - aon-cliceáil chun freagraí genius, ton foirfe, máistreacht ilteangach. Trasfhoirmigh ríomhphost gan stró! ...

📧 Uathoibriú Ríomhphoist: As Oifig (Ar fáil do POP agus IMAP)  /  Sceideal Seol Ríomhphoist  /  Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh  /  Auto Ar Aghaidh (Ardrialacha)   /  Beannacht Auto Cuir leis   /  Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...

📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm go héasca  /  Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile  /  Scrios Ríomhphoist Dúblacha  /  Cuardach Casta  /  Comhdhlúthaigh Fillteáin ...

📁 Ceangaltáin ProSábháil Baisc  /  Baisc Dícheangail  /  Comhbhrú Baisc  /  Auto Sábháil   /  Auto Dícheangail  /  Comhbhrúite Auto ...

🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool   /  Treisiú Do Tháirgiúlacht Outlook le Radhairc Tabbed  /  Íoslaghdaigh Outlook In ionad Deiridh ...

???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach  /   Ríomhphoist Frith-Iascaireachta  /  🕘 Taispeáin Crios Ama an tSeoltóra ...

👩🏼‍🤝‍👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe  /  Roinn Grúpa Teagmhála ar Ghrúpaí Aonair  /  Bain Meabhrúcháin Breithlá ...

Thar Gnéithe 100 Fan le do Thaiscéalaíocht! Cliceáil Anseo le Tuilleadh Amach.

 

 

Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, 6 years later but have same issues as raised by the others. I once had this code but sadly lost it. Any ideas (i will try AI)
This comment was minimized by the moderator on the site
It looks great but I'm looking more folder with similar name....
This comment was minimized by the moderator on the site
I am currently working with Outlook 2013, and while this tool is wonderfully helpful, I'm in the same boat as Matt and Richard. I would like to be able to somehow go through multiple folders with the same name. I would also like to be able to do this: if I have multiple folders with dates, 2012,2013,2014 for example, I would like to be able to put in 20* or 20?? and then be prompted to view any of the aforementioned folders, instead of just defaulting to the first one it finds.
This comment was minimized by the moderator on the site
The line "Function FindInFolders(TheFolders As Outlook.Folders, Name As String)" is throwing a compile error message - User-defined type not defined
This comment was minimized by the moderator on the site
the line "Function FindInFolders(TheFolders As Outlook.Folders, Name As String)" is throwing a Compile error message: User-defined type not defined
This comment was minimized by the moderator on the site
Just like Matt wrote, I was also looking for this. The way the code operates is that it will open the first folder it finds with the name to search for. Is it possible to adjust the code so it will find multiple instances?
This comment was minimized by the moderator on the site
Is there a way to add folder iteration to the above code. Say the user has multiple folders named Employee, is it possible for it to go through a loop to find all instances and allow user to select appropriate folder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations