Hogyan lehet a különböző típusú törölt elemeket automatikusan áthelyezni különböző mappákba az Outlookban?
Az Outlookban mindenféle törölt elem (levél, feladat, névjegy stb.) átkerül a Törölt elemek mappába. Ha az alábbi képernyőképen látható módon, a Törölt elemek mappa elemtípusa alapján különböző mappákba szeretné áthelyezni az elemeket, hogyan teheti meg az Outlookban?
A különböző típusú törölt elemeket automatikusan áthelyezheti különböző mappákba VBA-kóddal
Az alábbi VBA-kód segíthet abban, hogy a törölt elemeket automatikusan különböző mappákba helyezze, kérjük, tegye a következőket:
1. Indítsa el az Outlookot, majd tartsa lenyomva ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ezután kattintson duplán ThisOutlookSession tól Projekt-Projekt1 ablaktáblát, majd másolja ki és illessze be az alábbi kódot az üres kód ablakba:
VBA-kód: A különböző típusú törölt elemeket automatikusan különböző mappákba helyezi át
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. Ezután mentse el ezt a kódot, és indítsa újra az Outlookot a kód aktiválásához.
4. Ezentúl, amikor töröl egy elemet, az átkerül a megfelelő típusú mappába Törölt tárgyak mappa automatikusan.
5. Az eredmény megtekintéséhez kattintson a gombra ikonra a mappapanel alján, majd kattintson a gombra mappák a panel összes mappájának kibontásához tekintse meg a képernyőképeket:
A legjobb irodai hatékonyságnövelő eszközök
Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez
???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető) / Ütemezze az e-mailek küldését / Automatikus CC/BCC szabályok szerint e-mail küldésekor / Automatikus továbbítás (Speciális szabályok) / Automatikus üdvözlet hozzáadása / A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...
📨 Email Management: Könnyen visszahívhatja az e-maileket / Blokkolja az alanyok és mások átverő e-mailjeit / Törölje az ismétlődő e-maileket / Részletes keresés / Mappák összevonása ...
📁 Attachments Pro: Kötegelt mentés / Batch Detach / Batch tömörítés / Automatikus mentés / Automatikus leválasztás / Automatikus tömörítés ...
🌟 Interface Magic: 😊További szép és menő hangulatjelek / Növelje Outlook termelékenységét a füles nézetekkel / Minimalizálja az Outlookot a bezárás helyett ...
👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel / Adathalászat elleni e-mailek / 🕘A feladó időzónájának megjelenítése ...
👩🏼🤝👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből / Egy kapcsolattartó csoport felosztása egyéni csoportokra / Távolítsa el a születésnapi emlékeztetőket ...
Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.