VBA - Outlook Calender Export

[Bruce Fox]

Hi All,

Scenario:
I want to automate a process to:
a) export my Outlook 'calender' to a .pst file,
then I plan to take that file to another PC, and
b) import it (no duplicates) into the other PC's Outlook (calender).

Can someone please kick this off with a snippet to export the 'calender' to .pst file?




Regards,
Bruce.

[Bruce Fox]

The start of part a; (base code credit to JordanChris)

Option Explicit
 
Public Sub Extract_Calender()
Dim NameSpace As Outlook.NameSpace
Dim myCal As Object
Dim myCalItems As Object
Dim myItem As Object
 
On Error GoTo Err_Handler:
 
    Set NameSpace = Outlook.GetNamespace("MAPI")
    Set myCal = NameSpace.GetDefaultFolder(9)
    Set myCalItems = myCal.Items
 
    For Each myItem In myCalItems
        MsgBox "Calendar Item " & _
            myItem.Location & " " & _
            myItem.Subject & " " & _
            myItem.Body & " " & _
            myItem.Start & " " & _
            myItem.End
    Next
 
    Set NameSpace = Nothing
    Set myCal = Nothing
    Set myCalItems = Nothing
    
Exit Sub
 
Err_Handler:
 
    If Not (NameSpace Is Nothing) Then Set NameSpace = Nothing
    If Not (myCal Is Nothing) Then Set myCal = Nothing
    If Not (myCalItems Is Nothing) Then Set myCalItems = Nothing
    
    MsgBox "Description: " & Err.Description & vbCrLf & _
            "Number: " & Err.Number, vbOKOnly + vbInformation, "Extraction Error"
 
End Sub

[RobDog888]

I will create a custome example for you. I have seen others
asking for this also.

Be back in a few.

[Bruce Fox]

Thanks Rob,

I knew you were the man for the job

I had seen some of your similar posts, but couldn't find much on Calendar.
For what its worth, the above does return all Calendar events (VBA, and in VB)

I could, if required, extract this into a textfile, then reload as required (using the appropriate fields).

Thanks for your efforts.



Bruce.

[RobDog888]

Almost have it finished. I am approaching it from a different point
of view. This is going to be fast and good! I think I will use this
myself too. Couple of minutes more. Had to help my daughter
with something.

[Bruce Fox]

Thanks Rob,

Ultimately, its a method of 'syncronising' two different Outlooks without the need of a PocketPc or the like. I thought I'd start off with the Calendar, then maybe the Addressbook (seems to be alot about that).


Must be getting late for you



Bruce.

[RobDog888]

No not too late. What version of Outlook do you run?
I tested and wrote it on 2003 and no problems. I am currently
uploading and testing on my system at work which has 2000.
Then I will post in a couple of minutes.

[Bruce Fox]

2000 SP 3.

I off home in a tick, will check when I get home. I will also test when I get back to work on Monday. Many thanks.
If I dont catch you online tonight; have a great weekend.

I'm sure it will be helpful, as you know other have asked and there has been no decent response.



Bruce.

[RobDog888]

I have finished it for 2000, but for 2003 I have a bug I want to fix
first. It will be up before monday.

Later.

[Bruce Fox]

For the benifit of others, there is a method that you can do manually thru Outlook, but how handy would it be to have it done automatically.

The manual method would sort of be like this:
You would export the calander/addressbook as a .pst file (taking time to make the appropriate selections),
then once you have this file, you can import it back into Outlook,
manually making/selecting appropriate selection (ie where to copy it, don't copy duplicates etc). Although pretty much simple, it takes a few mouse clicks and dialog boxes to achieve.

So, it would be handy to have some (VB/VBA) code to achieve this automatically.
In my case I will set up my friends PC at work with a button to envoke a macro that will perform the export. Then, with the file now on on a pen drive have a similar button that will envoke a macro to do the import of the file to his home PC - simple



Bruce.

[RobDog888]

Bruce, I am a little busy this morning at work to fit in time to finish
the program, but it is working fine for Outlook 2000 SR-1 running
on Windows 2000 Terminal Server. I will have more time tonight
at home.

BTW, my program is very similar to the manual method.

I will pm you on something else.

[RobDog888]

Bruce, I am back. Here is main part of the solution.

First, need to add a new pst file with a date/time filename stamp
using the .AddStoreEx method from the Namespace object for
2003 else use the .AddStore for 2002 and below with a version
trap for unsupported version of Outlook.

Then, use the .GetLast method to set a MAPIFolder object equal
to the newly added pst file.

Then iterate through the folders you want to backup by re-
creating the objects in the pst folder.

I can email you my program as soon as I finish the last of the
help file if you want since you inspired me on this utility.

Ps: hows the weather down in Australia?

[Bruce Fox]

G'Day RobDog,

Thanks for the reply.

I'm now testing on a Palm SizePC (issues detailed on a different post). However, I'll give that ago; watch this space

Still a bit chilly down this way.
Seems our guys are doing well in the pool over in Greece.



Bruce.

[RobDog888]

Here is the screenshot of my final product.

Working on giving it the XP look, but not working yet.



Later

[CptnCalculator]

I would be very interested in this as well, if you could post the code in this thread it would be much appreciated!

[kromega]

hi,
is it possible to have that macro ? just need to export regularly the calendar to a .pst...

thks

fabien