Create new PST and import .msg files

The following example shows you how to create a new PST file and import messages from .msg files into it.

C# example

using System;
using System.IO;
using System.Collections.Generic;
using Independentsoft.Pst;

namespace Sample
{
    class Program
    {
        static void Main(string[] args)
        {
            PstFile file = PstFile.Create("c:\\testfolder\\NewOutlook.pst");

            using (file)
            {
                Folder startFolder = file.MailboxRoot;

                startFolder.AddFolder(new Folder("Inbox"));

                Folder inbox = startFolder.GetFolder("Inbox");

                string[] msgFiles = Directory.GetFiles("c:\\testfolder\\messages", "*.msg");

                IList<Item> items = new List<Item>();

                for (int i = 0; i < msgFiles.Length; i++)
                {
                    Independentsoft.Msg.Message msgFile = new Independentsoft.Msg.Message(msgFiles[i]);
                    Item item = new Item(msgFile);
                    items.Add(item);
                }

                inbox.AddItems(items);

                file.Save();
            }

            Console.WriteLine("Done.");
            Console.WriteLine("Press ENTER to exit.");
            Console.Read();
        }
    }
}

VB example

Imports System
Imports System.IO
Imports System.Collections.Generic
Imports Independentsoft.Pst

Namespace Sample
    Class Module1
        Shared Sub Main(ByVal args As String())

            Dim file As PstFile = PstFile.Create("c:\testfolder\NewOutlook.pst")

            Using file
                Dim startFolder As Folder = file.MailboxRoot

                startFolder.AddFolder(New Folder("Inbox"))

                Dim inbox As Folder = startFolder.GetFolder("Inbox")

                Dim msgFiles() As String = Directory.GetFiles("c:\testfolder\messages", "*.msg")

                Dim items As IList(Of Item) = New List(Of Item)()

                For i As Integer = 0 To msgFiles.Length - 1
                    Dim msgFile As New Independentsoft.Msg.Message(msgFiles(i))
                    Dim item As New Item(msgFile)
                    items.Add(item)
                Next

                inbox.AddItems(items)

                file.Save()
            End Using

            Console.WriteLine("Done.")
            Console.WriteLine("Press ENTER to exit.")
            Console.Read()

        End Sub
    End Class
End Namespace

IndependentsoftProfessional software libraries for developers

PST .NET > Tutorial > Create new PST and import .msg files

Need help? Ask our developers: