Moving Calendar items to a folder


Keith Brown

I have several macros setup to move emails from my inbox to a specified
folder. I would like to know how to move calendar items such as meeting
requests, replies from people when they accept or decline a meeting invite,
etc. to a folder using a macro as well. Below is the macro I use to move
email items to a folder called "California", a sub-folder of my Inbox. I
want to know if I can modify this macro to also include moving calendar
items. if not, I would like to know what I need to do to move calendar items.

Sub MoveToCalifornia()
On Error Resume Next

Dim objFolder As Outlook.MAPIFolder, objInbox As Outlook.MAPIFolder
Dim objNS As Outlook.NameSpace, objItem As Outlook.MailItem

Set objNS = Application.GetNamespace("MAPI")
Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
Set objFolder = objInbox.Folders("California") 'Assume this is a mail

If objFolder Is Nothing Then
MsgBox "This folder doesn't exist!", vbOKOnly + vbExclamation,
End If

If Application.ActiveExplorer.Selection.Count = 0 Then
'Require that this procedure be called only when a message is selected
Exit Sub
End If

For Each objItem In Application.ActiveExplorer.Selection
If objFolder.DefaultItemType = olMailItem Then
If objItem.Class = olMail Then
objItem.Categories = "Personal"
objItem.Move objFolder
End If
End If

Set objItem = Nothing
Set objFolder = Nothing
Set objInbox = Nothing
Set objNS = Nothing
End Sub

Michael Bauer [MVP - Outlook]

Get the default calendar with the olFolderCalendar constant. As items in a
calendar are AppointmentItems and not MailItems, you need to change the
declaration of the objItem variable.

Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: <>

Am Sat, 15 Nov 2008 11:30:01 -0800 schrieb Keith Brown:

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question