Outlook бағдарламасында қайталанбай бірнеше қалталардан элементтерді қалай тез біріктіруге болады

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Егер сіз барлық элементтерді бірнеше Outlook қалталарынан біріктіргіңіз келсе және оның қайталанбауын қамтамасыз етсеңіз, осы мақалада енгізілген әдісті қолдануға болады. Мұны тығын сияқты орындауға көмектесетін VBA кодын қолданады.

Outlook бағдарламасында көшірмелерсіз бірнеше қалталардан элементтерді жылдам біріктіру

Кейде бірнеше Outlook қалталарының элементтерін біріктіруді қалауыңыз мүмкін, мысалы, бірнеше Outlook контактілері қалталарының барлық контактілерін біріктіру. Мұндай жағдайда, егер бұл қалталардың арасында бірнеше қайталанатын контактілер болса, сіз біріктіру кезінде телнұсқаларды автоматты түрде алып тастауға болады деп үміттенуіңіз керек. Бұл жағдайда сіз қиындықсыз жүзеге асыру үшін келесі VBA кодын пайдалана аласыз.

Бірнеше қалталардан элементтерді көшірмесіз біріктіру

  1. Кімгеtart көмегімен Outlook бағдарламасын іске қосыңыз.
  2. Содан кейін, сіз Outlook VBA редакторына Outlook негізгі экранындағы «Alt + F11» батырмасын басу арқылы кіруіңіз керек.
  3. Әрі қарай, «Microsoft Visual Basic for Applications» терезесінде сіз қолданылмаған модульді ашуыңыз керек.
  4. Осыдан кейін сіз келесі модульге VBA кодын көшіруіңіз керек.
'Here we take "merging two folders" as an example
Sub MergeOutlookFolders_WithoutDuplicates()
    Dim objSourceFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
    Dim i, n, x As Long
    Dim objItem As Object
    Dim objDictionary As Object
    Dim strKey As String
 
    Set objSourceFolder = Application.Session.PickFolder
    Set objTargetFolder = Application.Session.PickFolder

    If objSourceFolder.DefaultItemType <> objTargetFolder.DefaultItemType Then
       MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly
    Else
       'Merge the two folders
       For i = objSourceFolder.Items.count To 1 Step -1
           Set objItem = objSourceFolder.Items.Item(i)
           objItem.Move objTargetFolder
       Next i
 
       Set objDictionary = CreateObject("scripting.dictionary")
 
       'Remove the duplicates
       x = 0
       For n = objTargetFolder.Items.count To 1 Step -1
           Set objItem = objTargetFolder.Items.Item(n)
 
           Select Case objItem.Class
                  Case olMail
                       strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
                  Case olAppointment
                       strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
                  Case olContact
                       strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
                  Case olTask
                       strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
           End Select
 
           strKey = Replace(strKey, ", ", Chr(32))
 
           If objDictionary.Exists(strKey) = True Then
              objItem.Delete
              x = x + 1
           Else
              objDictionary.Add strKey, True
           End If
      Next n
 
      'Prompt you of the count of removed duplicates
      If x <> 0 Then
         MsgBox x & " duplicates removed when merging!", vbInformation + vbOKOnly
      End If
    End If
End Sub

VBA коды - элементтерді бірнеше қалталардан көшірмесіз біріктіру

  1. Кейінірек макросты қамтамасыз ете отырып, Outlook макро параметрлерін тексеру қажет.
  2. Соңында сіз көріңіз.
  • Біріншіден, жаңа модуль терезесіне оралыңыз.
  • Осы макросты іске қосу үшін келесі F5 батырмасын басыңыз.
  • Содан кейін біріктірілетін екі қалтаны таңдау керек. Біріншісі - бастапқы, ал екіншісі - tarбіреуін ал.
  • Осыдан кейін Outlook барлық элементтерді бастапқы қалтадан файлға көшіре бастайды tarбіреуін ал. Сонымен қатар, бұл арада телнұсқалар автоматты түрде жойылады.
  • Сайып келгенде, сіз төмендегі скриншот сияқты жойылған телнұсқаларды санауға шақыратын хабарлама ала аласыз:Жойылған телнұсқаларды санауға шақыратын хабарлама

Кішкентай қателіктер үлкен апаттарға әкелуі мүмкін

Көптеген керемет функциялар жүктелгеніне қарамастан, Outlook қателіктер мен бүлінулерге әлі де ұшырайды. Мүмкін сіз Outlook-та әртүрлі мәселелермен кездескен шығарсыз. Көптеген пайдаланушылар кездейсоқ қателіктерді елемеуге бейім. Алайда, бұл Outlook файлына қауіп төндіретін елеулі Outlook апатына себеп болатын кішкентай қателік. Осылайша, кез-келген кішігірім қателіктерді ескермеу керек. Керісінше, оларды мүмкіндігінше тезірек жою керек. Сонымен қатар, сіз өзіңіздің жағдайыңызды сақтағаныңыз жөн PST жөндеу сияқты құрал DataNumen Outlook Repair. Қалпына келтірудің жоғары жылдамдығының арқасында бұл утилиталар өз құрдастарының үстінен өтті.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. бүлінген кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.