Ако искате да обедините множество PST файлове в един файл, можете да използвате метода, представен в тази статия. Ще ви позволи бързо да го получите чрез Outlook VBA.
Ако имате много PST файлове, със сигурност ще ви е доста трудно да управлявате всичките междувременно. По-конкретно, ако често се изисква достъп до данните в тези PST файлове, ще бъде досадна задача да преминете през всички файлове, за да разберете какво желаете. В този случай най-доброто решение е да ги обедините в един PST файл, така че да можете да ги управлявате много по-лесно и ефективно.
Като цяло, ако искате само да обедините два файла в един, можете просто да импортирате един в другия. Ако обаче искате да обедините няколко такива, това ръчно ще бъде значително обезпокоително. И така, тук ще ви запознаем с обединяването на множество PST файлове за кратко време чрез VBA. Сега прочетете, за да го получите подробно.
Обединете PST файлове чрез Outlook VBA
- На първо място, трябва да отворите всички PST файлове, които искате да обедините. За груповото отваряне на множество PST файлове можете да се обърнете към другата ни статия - „Как да групирате отворени няколко Outlook PST файла наведнъж във вашия Outlook"
- След като ги отворите, трябва да влезете в редактора на Outlook VBA, като щракнете върху бутона „Visual Basic“ под раздела „Разработчик“ или натиснете клавишите „Alt + F11“
- След това в прозореца „Microsoft Visual Basic for Applications“ отворете модул.
- След това копирайте и поставете следните VBA кодове в прозореца на модула.
Public objNewPSTFileFolder As Outlook.Folder
Private Sub CreateNewPSTFile()
'Create a new PST file
Outlook.Application.Session.AddStore "E:\NewPSTMerge3.pst"
Set objNewPSTFileFolder = Session.Folders.GetLast()
Call SelectANDMergePSTFiles
End Sub
Sub SelectANDMergePSTFiles()
Dim objSourceFile As Object
Dim strMsg As String
Dim nResponse As Integer
'Select the source PST file
Set objSourceFile = Outlook.Application.Session.PickFolder
Call CopyFolder(objSourceFile)
'Ask if select one more PST file
strMsg = "One Completes! Do you want to select one more PST file?"
nResponse = MsgBox(strMsg, vbExclamation + vbYesNo, "Merge PST Files")
If nResponse = vbYes Then
Call SelectANDMergePSTFiles
Else
MsgBox ("All Complete!")
End If
End Sub
Sub CopyFolder(ByVal objCurrentFile As Object)
Dim objFolder As Outlook.Folder
For Each objFolder In objCurrentFile.Folders
objFolder.CopyTo objNewPSTFileFolder
Next objFolder
End Sub
- Впоследствие трябва да потвърдите, че вашият Outlook разрешава макроси.
- Накрая можете да опитате.
- Първо кликнете върху подпрограмата „CreateNewPST“.
- След това щракнете върху иконата “Run” в лентата с инструменти.
- След това ще трябва да изберете изходния файл в изскачащия диалогов прозорец като следната екранна снимка:
- След като изберете такъв, щракнете върху „OK“.
- Тогава Outlook ще копира всички елементи от избрания файл в новия PST файл.
- След това ще получите съобщение с въпрос дали да изберете още един файл. Натиснете „Да“, можете да изберете следващия PST файл с източник.
- Докато приключите с избора и обединяването на всички желани изходни файлове, можете да изберете „Не“.
- И накрая, успешно ще получите нов PST файл, който е обединеният файл на всички избрани от вас изходни файлове.
Какво ще стане, ако PST файлът се повреди
Тъй като Outlook PST файлът е податлив на грешки и повреди, трябва да положите усилия за защита на вашите PST данни. Без съмнение един от most ефективни предпазни мерки е да продължите при редовно архивиране на данни, което ще ви позволи възстановяване на Outlook данни много по-лесно. Освен това е по-добре да държите под ръка мощен инструмент за ремонт, като DataNumen Outlook Repair.
Въведение на автора:
Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително фиксира SQL Server и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com