Outlook 2000 VBA: Making New Appointment in Current Folder
I am now getting a "missing NameSpace" error message. Here is what I am
doing (the "Master Calendar" is the name on my computer; "Sheri" has it
as her default calendar):
(First, I clear prior uses of the space:)
Set objNameSpace = Nothing
Set objDateItem = Nothing
Set objNameSpace = Application.GetNameSpace("MAPI")
If StrUserName = "Sheri" then
Set objDateItem = Application.CreateItem(1) 'Create appointmentitem
else
Set MyFolder=NameSpace.Folders("Public Folders").Folders("All Public
Folders").Folders("Master Calendar")
Set objDateItem = MyFolder.CreateItem(1) 'create appointmentitem
End If
Quote:
> Try this:
> Set objNameSpace = Application.GetNameSpace("MAPI")
> Set MyFolder=NameSpace.Folders("Public Folders").Folders _
> ("All Public Folders").Folders("Master Calendar")
> Set objDateItem = MyFolder.CreateItem(1)
> 'Insert data here
> objDateItem.Save
> Dave
> >-----Original Message-----
> >I want to be able to use VBA to create a new appointment
> IN THE CURRENT
> >CALENDAR (called "Master Calendar"), not the default
> calendar. VBA
> >creates the appointment and then always places it into
> the local default
> >calendar ("Calendar").
> >Here's how I start:
> > Set objNameSpace = Application.GetNameSpace("MAPI")
> > Set objDateItem = Application.CreateItem(1) 'Create
> appointmentitem
> >Then I insert the data and conclude:
> > objDateItem.Save
> >.
