Note: The other languages of the website are Google-translated. Back to English

Kako združiti dve mapi brez dvojnikov v eno mapo v Outlooku?

V Outlooku imate morda veliko e-poštnih računov z več mapami, v nekaterih primerih želite združiti dve mapi v eno in odstraniti podvojene elemente. Kako lahko hitro rešite to delo? V tem članku predstavljam kodo VBA, ki vam pomaga, da jo v Outlooku čim hitreje obravnavate.

Združite dve mapi brez dvojnikov v eno s kodo VBA

Združite več map in odstranite podvojene elemente s programom Kutools for Outlook


Združite dve mapi brez dvojnikov v eno s kodo VBA

Če želite združiti dve mapi v eno in odstraniti podvojene predmete, lahko to storite s kodo VBA, kot sledi:

1. Pritisnite Alt + F11 tipke, da omogočite Microsoft Visual Basic za aplikacije okno

2. Dvokliknite na Ta OutlookSession iz Project1 v levo podokno, nato kopirajte in prilepite spodnjo kodo v desni skript.

VBA: združite dve mapi brez dvojnikov

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

mape doc združijo brez dvojnikov 1

3. klik Orodja > Reference in v pojavnem pogovornem oknu potrdite Izvajanje Microsoftovih skriptov potrditveno polje.

mape doc združijo brez dvojnikov 2 doc puščica desno mape doc združijo brez dvojnikov 3

4. klik OK. Zdaj pritisnite F5 tipko za zagon kode. Pojavi se pogovorno okno, ki vas opomni, da izberete prvo mapo, ki jo želite združiti (opomba: vsi elementi v prvi mapi bodo po združitvi z drugo mapo odstranjeni).
mape doc združijo brez dvojnikov 4

5. klik OK, v drugem pogovornem oknu izberite drugo mapo, ki jo želite primerjati in združiti.
mape doc združijo brez dvojnikov 5

6. klik OK, zdaj bodo vsi elementi v prvi mapi premaknjeni v drugo mapo, dvojniki pa bodo prav tako odstranjeni.
mape doc združijo brez dvojnikov 6


Združite več map in odstranite podvojene elemente s programom Kutools for Outlook

Če kode VBA ne poznate, poskusite uporabiti Kutools za Outlook, priročen dodatek s svojim Utrjevanje map in Podvojena e-poštna sporočila gospodarske javne službe, ki lahko to delo enostavno in hitro rešijo.

Kutools for Outlook , Vključuje 100 + zmogljive funkcije in orodja za Microsoft Outlook 2016, 2013, 2010 in Office 365.

Brezplačna namestitev Kutools za Outlook in nato naredite spodnja navodila:

Združi več map

1. klik Kutools Plus > Utrjevanje map, potem v Združi več map v eno dialog, kliknite Dodaj če želite dodati mape na seznam, ki bo združen, izberite mapo kot ciljno mapo.
doc utrditi in odstraniti dvojnik 1

2. klik OK > OK. Zdaj so bili vsi elementi v izbranih mapah združeni v eno določeno mapo.
doc utrditi in odstraniti dvojnik 2

Odstranite podvojene predmete

3. klik Kutools > Izbriši dvojnik > Podvojena e-poštna sporočila. Nato v Podvojena sporočila v pogovornem oknu označite mapo, v kateri želite odstraniti dvojnike.
doc utrditi in odstraniti dvojnik 3

4. klik Naslednjiv Nastavitve podvojenih sporočil v pogovornem oknu določite merila, ki jih uporabljate za primerjavo e-poštnih sporočil, nato preverite Izbrišite podvojena sporočila možnost in izberite Primerjaj za podvojena sporočila v eni mapi.
doc utrditi in odstraniti dvojnik 4

5. klik Naslednji > Naslednji, podvojena e-poštna sporočila so bila filtrirana. Kliknite Izbriši podvojeno sporočilo gumb> OK če želite uspešno odstraniti podvojena e-poštna sporočila.
doc utrditi in odstraniti dvojnik 5 mape doc združijo brez dvojnikov 6


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije