Hogyan lehet két másolatok nélküli mappát egyesíteni egy mappába az Outlook programban?
Az Outlook programban sok e-mail fiókja lehet, sok mappával, egyes esetekben két mappát szeretne egyesíteni egybe és eltávolítani az ismétlődő elemeket. Hogyan tudja gyorsan megoldani ezt a munkát? Ebben a cikkben bemutatok egy VBA kódot, amely segít a lehető leggyorsabban kezelni az Outlook programban.
Két mappát másolatok nélkül egyesítsen egybe VBA kóddal
Egyesítsen több mappát, és távolítsa el az ismétlődő elemeket a Kutools for Outlook segítségével
Két mappát másolatok nélkül egyesítsen egybe VBA kóddal
Két mappa egyesítéséhez és az ismétlődő elemek eltávolításához VBA kóddal kezelheti az alábbi lépésekkel:
1. nyomja meg Alt + F11 gombok a Microsoft Visual Basic for Applications ablak
2. Kattintson duplán a ThisOutlookSession ból ből Project1 a bal oldali ablaktáblán, majd másolja és illessze be a kódot a jobb szkriptbe.
VBA: Két mappa egyesítése oklevelek nélkül
Sub MergeOutlookFolders_WithoutDuplicates()
'UpdatebyExtendoffice20180521
Dim xSourceFolder As Outlook.Folder
Dim xTargetFolder As Outlook.Folder
Dim xCount, i As Long
Dim xItem As Object
Dim xSourceItem As Object
Dim xTargetItem As Object
Dim xDictionary As Scripting.Dictionary 'Object
Dim xStr As String
On Error Resume Next
Set xDictionary = New Scripting.Dictionary
Set xSourceFolder = Application.Session.PickFolder
Set xTargetFolder = Application.Session.PickFolder
xCount = 0
If xSourceFolder.DefaultItemType <> xTargetFolder.DefaultItemType Then
MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly, "Kutools for Outlook"
Exit Sub
End If
For i = xSourceFolder.Items.Count To 1 Step -1
Set xSourceItem = xSourceFolder.Items.Item(i)
xSourceItem.Move xTargetFolder
Next
For i = xTargetFolder.Items.Count To 1 Step -1
Set xTargetItem = xTargetFolder.Items.Item(i)
Select Case xTargetItem.Class
Case olMail
With xTargetItem
xStr = .Subject & .Body & .SentOn
End With
Case olAppointment
With xTargetItem
xStr = .Subject & .Start & .Duration & .Location & .Body
End With
Case olContact
With xTargetItem
xStr = .FullName & .Email1Address & .Email2Address & .Email3Address
End With
Case olTask
With xTargetItem
xStr = .Subject & .StartDate & .DueDate & .Body
End With
End Select
If xDictionary.Exists(xStr) = True Then
xTargetItem.Delete
xCount = xCount + 1
Else
xDictionary.Add xStr, True
End If
Next i
If xCount <> 0 Then
MsgBox xCount & " duplicates removed when merging!", vbInformation + vbOKOnly, "Kutools for Outlook"
End If
End Sub
3. kettyenés Eszközök > Referenciák és a felbukkanó párbeszédpanelen ellenőrizze Microsoft Scripting Runtime jelölőnégyzetet.
4. kettyenés OK. Most nyomja meg F5 gombot a kód futtatásához. Megjelenik egy párbeszédpanel, amely emlékezteti Önt az első egyesítendő mappa kiválasztására (megjegyzés: az első mappa összes elemét eltávolítja, miután egyesült a második mappával).
5. kettyenés OK, a második felbukkanó párbeszédpanelen válassza ki a második mappát, amelyhez összehasonlítani és egyesíteni szeretné.
6. kettyenés OK, most az első mappában lévő összes elem áthelyezésre kerül a második mappába, és az ismétlődő elemek is eltávolításra kerülnek.
Egyesítsen több mappát, és távolítsa el az ismétlődő elemeket a Kutools for Outlook segítségével
Ha nem ismeri a VBA kódot, próbálja meg használni Kutools az Outlook számára, egy praktikus kiegészítő, annak Mappák konszolidálása és a Ismétlődő e-mailek segédprogramok, amelyek könnyen és gyorsan kezelhetik ezt a munkát.
Kutools for Outlook , Tartalmazza 100 + hatékony funkciók és eszközök a Microsoft Outlook 2016, 2013, 2010 és az Office 365 számára. |
||
Ingyenes telepítés Kutools for Outlook, majd tegye az alábbi lépéseket:
Több mappa egyesítése
1. kettyenés Kutools Plus > Mappák konszolidálása, majd a Egyesítsen több mappát egybe párbeszédpanelen kattintson a gombra hozzáad Ha hozzá szeretné adni a mappákat az egyesítendő listához, válasszon egy mappát célmappának.
2. kettyenés OK > OK. Most a kiválasztott mappákban lévő összes elem egyesítve van egy adott mappába.
Távolítsa el az ismétlődő elemeket
3. kettyenés Kutools > Az Ismétlődés törlése > Ismétlődő e-mailek. Aztán a Ismétlődő üzenetek párbeszédpanelen ellenőrizze a duplikátumokat eltávolítani kívánt mappát.
4. kettyenés Következő-ban Ismétlődő üzenetek beállításai párbeszédpanelen adja meg az e-mailek összehasonlításához használt feltételeket, majd ellenőrizze Törölje az ismétlődő üzeneteket opciót és válassza ki Összehasonlítás egyetlen mappában található ismétlődő üzenetek esetén.
5. kettyenés Következő > Következő, az ismétlődő e-maileket kiszűrtük. Kattintson a gombra Ismétlődő üzenet törlése gomb> OK az ismétlődő e-mailek sikeres eltávolításához.
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.