VBA - Outlook Calender Export

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.

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

VB Code:

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

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

Be back in a few.

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.

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.

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.

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.

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.

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.

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.

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.

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?

:)

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.

Here is the screenshot of my final product.

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

http://www.vbforums.com/attachment.p...postid=1763839

Later

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

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

thks

fabien