.net - .Netを使用してOutlookPSTファイルを作成するにはどうすればよいですか？

Question

Outlookのデータを操作するアプリを書いています。最初にそのデータのバックアップを作成したいと思います。連絡先やカレンダーの項目などをループして、PSTファイルに書き出すことができればと思っています。

.Netを使用して1つまたは複数のOutlookフォルダーの内容をPSTに書き込むにはどうすればよいですか？[vbまたはc＃は関係ありません]

Answer 1

インターネットやMSDNドキュメントのさまざまなサンプルから、このコードをつなぎ合わせることができました。これにより、Outlookの高レベルのフォルダを選択し、その下にあるすべてのフォルダをバックアップできます。私の場合、実際にはメールフォルダが必要なかったので、それらを除外します。

        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

Answer 2

C＃バージョン：

public Store CreateStore(string path)
{
    Application outlookApplication = new ();

    Store newPst = null;

    NameSpace outlookNamespace = outlookApplication.GetNamespace("mapi");

    outlookNamespace.Session.AddStore(path);

    foreach (Store store in outlookNamespace.Session.Stores)
    {
        if (store.FilePath == path)
        {
            newPst = store;
            break;
        }
    }

    return newPst;
}