Backup Calendar, Contacts, Tasks in an POP3 data file

[v70sth]

Hello,
Backup Calendar, Contacts, Tasks in an IMAP data file shows how to backup calendar, contacts, tasks in a OST file.
What modifications shall I do for a PST file ?
Regards
v70sth

 

[Diane Poremsky]

if they are in a pst file, all you need to do is copy the pst (with outlook closed).

If you wanted to use it to export just those folders, you only need to remove the lines that change the folder type as the pst will have the correct folder types. But even then, it won't hurt to leave it in.

Those would be all of the lines that reference the propertyaccessor -

Dim oPA As Outlook.PropertyAccessor
Dim PropName, Value As String
PropName = "http://schemas.microsoft.com/mapi/proptag/0x3613001E"
Set oPA = myBackup.PropertyAccessor
oPA.SetProperty PropName, Value

 

[v70sth]

Hello Diane,
Thank you for your reply.
Pardon my ignorance, but would you like to write down the entire macro for PST ?

 

[Diane Poremsky]

if you just want to back up the pst, I have this - Use PowerShell to backup Outlook PST files


But if you want to export the calendar & contacts, and tasks.

Sub CreateBackupFiles()
 
Dim OlApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim copyToDataFile As Outlook.folder
Dim copyFrom As Outlook.folder
Dim myBackup As Outlook.folder
Dim objFolder As Outlook.folder
Dim folderType
Dim enviro As String, strDate As String
Dim strFileName As String, pstName As String

Set objNS = Application.GetNamespace("MAPI")
 
enviro = CStr(Environ("USERPROFILE"))
strDate = Format(Date, "yyyymmdd") & Format(Time, "hhmmss")
strFileName = enviro & "\Documents\Outlook Files\" & strDate & "-BackUp" & ".pst"
pstName = "Backup " & strDate
 
Debug.Print strFileName
 
' Create the backup pst file
objNS.AddStore strFileName
Set objFolder = objNS.Folders.GetLast
objFolder.Name = pstName
 
Set copyToDataFile = objFolder
 
For i = 1 To 4
Select Case i
    Case 1
     folderType = olFolderCalendar
     Value = "IPF.Appointment"

    Case 2
     folderType = olFolderContacts
     Value = "IPF.Contact"

    Case 3
     folderType = olFolderTasks
     Value = "IPF.Task"

    Case 4
     folderType = olFolderNotes
     Value = "IPF.StickyNote"

End Select
 
Set copyFrom = objNS.GetDefaultFolder(folderType)
Set myBackup = copyFrom.CopyTo(copyToDataFile)

 Next i
 
' remove the pst from the folder list
'objNS.RemoveStore objFolder
 
Set oPA = Nothing
Set objNS = Nothing
End Sub