Outlook: как архивировать файлы, используя диапазон дат?

Question

Как я могу архивировать электронные письма в PST-файлы, используя диапазон дат? Я хотел бы создать файл .pst для каждого года.

Я использую MS Outlook 2003.

Answer 1

Хотя этот вопрос довольно старый, я считаю, что методы макроса Роберта МакМерри сработали бы для этого, потому что он звучит как то, что ищет оригинальный вопрос.

В интересах предотвращения наихудших потерь бит-гнили приведем соответствующий блок кода. В настоящей статье гораздо больше подробностей о том, что она делает, и о возможных улучшениях, таких как добавление рекурсии; похоже, он работает только с одной папкой ("Входящие") и, вероятно, может использоваться в качестве отправной точки.

Sub MoveOldEmails()

    ' Declare all variables.
    Dim objOutlook As Outlook.Application
    Dim objNamespace As Outlook.NameSpace
    Dim objSourceFolder As Outlook.MAPIFolder
    Dim objDestFolder As Outlook.MAPIFolder
    Dim objVariant As Variant
    Dim lngMovedMailItems As Long
    Dim intCount As Integer
    Dim intDateDiff As Integer
    Dim strDestFolder As String

    ' Create an object for the Outlook application.
    Set objOutlook = Application
    ' Retrieve an object for the MAPI namespace.
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    ' Retrieve a folder object for the source folder.
    Set objSourceFolder = objNamespace.GetDefaultFolder(olFolderInbox)

    ' Loop through the items in the folder. NOTE: This has to
    ' be done backwards; if you process forwards you have to
    ' re-run the macro an inverese exponential number of times.
    For intCount = objSourceFolder.Items.Count To 1 Step -1
        ' Retrieve an object from the folder.
        Set objVariant = objSourceFolder.Items.Item(intCount)
        ' Allow the system to process. (Helps you to cancel the
        ' macro, or continue to use Outlook in the background.)
        DoEvents
        ' Filter objects for emails or meeting requests.
        If objVariant.Class = olMail Or objVariant.Class = olMeetingRequest Then
            ' This is optional, but it helps me to see in the
            ' debug window where the macro is currently at.
            Debug.Print objVariant.SentOn
            ' Calculate the difference in years between
            ' this year and the year of the mail object.
            intDateDiff = DateDiff("yyyy", objVariant.SentOn, Now)
            ' Only process the object if it isn't this year.
            If intDateDiff > 0 Then
                ' Calculate the name of the personal folder.
                strDestFolder = "Personal Folders (" & _
                    Year(objVariant.SentOn) & ")"
                ' Retrieve a folder object for the destination folder.
                Set objDestFolder = objNamespace.Folders(strDestFolder).Folders("Inbox")
                ' Move the object to the destination folder.
                objVariant.Move objDestFolder
                ' Just for curiousity, I like to see the number
                ' of items that were moved when the macro completes.
                lngMovedMailItems = lngMovedMailItems + 1
                ' Destroy the destination folder object.
                Set objDestFolder = Nothing
            End If
        End If
    Next

    ' Display the number of items that were moved.
    MsgBox "Moved " & lngMovedMailItems & " messages(s)."

End Sub

Answer 2

Единственный способ, которым я знаю, - это использовать инструменты архивации MS Outlook. Вы можете выбрать от / до (дата) для архивирования, а затем назвать ваши PST-файлы по имени.

Вы не можете выбрать с 1 января 2009 года по 1 января 2010 года, но вы можете архивировать с этого момента до 1 января 2011 года. Затем с 31 декабря 2010 года по 1 января 2010 года и так далее ...