Экспорт писем в формат PST - PullRequest
Новая
       39

Экспорт писем в формат PST

0 голосов
/ 01 августа 2020

У меня есть этот код из Как я могу создать файл Outlook PST, используя. Net? , но при этом просто не экспортируются данные внутри. Кто-нибудь может мне помочь? 

Const BACKUP_PST_PATH As String = "C:\backup.pst"    

Dim oFolder As Outlook.MAPIFolder = Nothing
Dim oMailbox As Outlook.MAPIFolder = Nothing

Dim app As New Outlook.Application()
Dim ns As Outlook.NameSpace = app.GetNamespace("MAPI")
Try
    //if the file doesn not exist, outlook will create it
    ns.AddStore(BACKUP_PST_PATH)
    oFolder = ns.Session.Folders.GetLast()
    oMailbox = ns.PickFolder()

    For Each f As Outlook.Folder In oMailbox.Folders
        If f.DefaultItemType <> Microsoft.Office.Interop.Outlook.OlItemType.olMailItem And f.FolderPath <> oFolder.FolderPath Then
            f.CopyTo(oFolder )
        End If
    Next

    ns.RemoveStore(oFolder)

Catch ex As Exception
    ns.RemoveStore(oFolder)
    IO.File.Delete(BACKUP_PST_PATH)
    Throw ex
End Try
...