Conas cineálacha éagsúla míreanna scriosta a bhogadh isteach i bhfillteáin éagsúla go huathoibríoch in Outlook?
In Outlook, bogfar gach cineál míreanna scriosta (ríomhphoist, tasc, teagmhálacha, etc.) chuig an bhfillteán Míreanna Scriosta. Más mian leat na míreanna a bhogadh chuig fillteáin éagsúla bunaithe ar an gcineál míre faoin bhfillteán Míreanna Scriosta mar atá thíos an screenshot a thaispeántar, conas is féidir leat é a dhéanamh in Outlook?
Bog cineálacha éagsúla míreanna scriosta isteach i bhfillteáin éagsúla go huathoibríoch le cód VBA
Is féidir leis an gcód VBA thíos cabhrú leat na míreanna scriosta a aistriú go fillteáin éagsúla go huathoibríoch, déan mar seo le do thoil:
1. Seoladh an Outlook, agus ansin, coinnigh síos ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Ansin, cliceáil faoi dhó ThisOutlookSession ó na Tionscadal-Tionscadal1 pane, agus ansin, cóipeáil agus greamaigh an cód thíos isteach sa fhuinneog cód bán:
Cód VBA: Bog cineálacha éagsúla míreanna scriosta isteach i bhfillteáin éagsúla go huathoibríoch
Public WithEvents GDeletedFolder As Outlook.Folder
Public WithEvents GDeletedItems As Outlook.Items
Private Sub Application_Startup()
Set GDeletedFolder = Application.Session.GetDefaultFolder(olFolderDeletedItems)
Set GDeletedItems = GDeletedFolder.Items
End Sub
Private Sub GDeletedItems_ItemAdd(ByVal Item As Object)
'Updateby ExtendOffice
Dim xTargetFolder As Outlook.Folder
On Error Resume Next
Select Case TypeName(Item)
Case "MailItem", "PostItem", "ReportItem", "MeetingItem"
Set xTargetFolder = GDeletedFolder.Folders("Deleted Mails")
If xTargetFolder Is Nothing Then
Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Mails", olFolderInbox)
End If
Case "AppointmentItem"
Set xTargetFolder = GDeletedFolder.Folders("Deleted Appointments")
If xTargetFolder Is Nothing Then
Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Appointments", olFolderCalendar)
End If
Case "ContactItem", "DistListItem"
Set xTargetFolder = GDeletedFolder.Folders("Deleted Contacts")
If xTargetFolder Is Nothing Then
Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Contacts", olFolderContacts)
End If
Case "TaskItem"
Set xTargetFolder = GDeletedFolder.Folders("Deleted Tasks")
If xTargetFolder Is Nothing Then
Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Tasks", olFolderTasks)
End If
Case "JournalItem"
Set xTargetFolder = GDeletedFolder.Folders("Deleted Journals")
If xTargetFolder Is Nothing Then
Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Journals", olFolderJournal)
End If
Case "NoteItem"
Set xTargetFolder = GDeletedFolder.Folders("Deleted Notess")
If xTargetFolder Is Nothing Then
Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Notess", olFolderNotes)
End If
End Select
If xTargetFolder Is Nothing Then Exit Sub
Item.Move xTargetFolder
Set xTargetFolder = Nothing
End Sub
3. Ansin, sábháil an cód seo, agus atosaigh an Outlook chun an cód seo a ghníomhachtú.
4. As seo amach, nuair a scriosann tú mír, aistreofar é go dtí an cineál fillteán comhfhreagrach faoi Míreanna Scriosta fillteán go huathoibríoch.
5. Chun an toradh a fheiceáil, cliceáil le do thoil 
icon ag bun an phána fillteán, agus ansin cliceáil Fillteáin chun gach fillteán sa phána a leathnú, féach scáileáin scáileáin:
 |  | |
Cúntóir Ríomhphoist AI in Outlook: Freagraí níos Cliste, Cumarsáid níos soiléire (draíocht aon-cliceáil!) SAOR
Sruthlaigh do thascanna Outlook laethúla leis an Cúntóir Mail AI ó Kutools le haghaidh Outlook. Foghlaimíonn an uirlis chumhachtach seo ó do ríomhphoist roimhe seo chun freagraí cliste agus cruinne a thairiscint, chun ábhar do ríomhphoist a bharrfheabhsú, agus chun cabhrú leat teachtaireachtaí a dhréachtú agus a fheabhsú gan stró.
Tacaíonn an ghné seo le:
- Freagraí Cliste: Faigh freagraí ó do chomhráite san am a chuaigh thart - in oiriúint, beacht, agus réidh le dul.
- Ábhar Feabhsaithe: Déan do théacs ríomhphoist a bheachtú go huathoibríoch ar mhaithe le soiléireacht agus tionchar.
- Comhdhéanamh gan stró: Just a chur ar fáil eochairfhocail, agus lig AI láimhseáil an chuid eile, le stíleanna scríbhneoireachta iolracha.
- Eisínteachtaí Chliste: Leathnaigh do chuid smaointe le moltaí atá feasach ar an gcomhthéacs.
- Achoimre: Faigh forbhreathnú gonta ar ríomhphoist fhada láithreach.
- Global Reach: Aistrigh do ríomhphoist go teanga ar bith gan stró.
Tacaíonn an ghné seo le:
- Freagraí ríomhphoist cliste
- Ábhar optamaithe
- Dréachtanna bunaithe ar eochairfhocail
- Síneadh ábhar Chliste
- Achoimre ríomhphoist
- Aistriúchán ilteangach
Is fearr ar fad, tá an ghné seo go hiomlán saor go deo! Ná fan -íoslódáil Cúntóir Ríomhphoist AI anois agus bain sult as!
Uirlisí Táirgiúlachta Oifige is Fearr
Breaking News: Kutools le haghaidh Outlook Seolann Leagan saor in aisce!
Taithí a dhéanamh ar an Kutools uile-nua le haghaidh Outlook Leagan SAOR IN AISCE le 70+ gnéithe dochreidte, is féidir leatsa a úsáid go deo! Cliceáil le híoslódáil anois!
📧 Uathoibriú Ríomhphoist: Auto Reply (Ar fáil le haghaidh 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 / Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile / Scrios Ríomhphoist Dúblacha / Cuardach Casta / Comhdhlúthaigh Fillteáin ...
📁 Ceangaltáin Pro: Sá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 / Cuir i gcuimhne duit nuair a thagann ríomhphoist thábhachtacha / Í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á ...
