By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,689 Members | 1,718 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,689 IT Pros & Developers. It's quick & easy.

Adding Appointment to Outlook Public Folder

P: n/a
Hello,

I have basic code to Creat an Outlook appointment and add Access Data.
(code below)
This works to add appointments to the basic calendar in my user folder.
However I wish to add it to a Calendar that resides in Public folder.
Any advice or resources on how to do this?
The "address" is .... Public Folders...All Public
Folders...CommonRanchCalendar

And...if I can push my luck a little further.
How can I read/delete appointments in the same calendar through code.
I would want to limit what I delete to entries of a certain Category
(ie. "AccessAdded") although they will also have other categories
assigned to them.

Thanks in Advance for any help or pointers.

Mal.
=====
Existing Code to add basic Appointment.

Private Sub SndToOutlook_Click()
On Error GoTo Add_Err

'Add a new appointment.

Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Dim objRecurPattern As Outlook.RecurrencePattern

Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)

With objAppt
.Start = Me!ApptDate
.End = Me!ApptEnd
.AllDayEvent = True
.Subject = Me!ApptName
.Categories = "Retreat Groups" 'Check GroupID for CHR and
also add "Sponsored Retreat"
.Save
.Close (olSave)
End With

'Release the AppointmentItem object variable.
Set objAppt = Nothing

'Release the Outlook object variable.
Set objOutlook = Nothing

'Set the AddedToOutlook flag, save the record, display a message.
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Appointment Added!"

Exit Sub

Nov 13 '05 #1
Share this Question
Share on Google+
1 Reply


P: n/a
this is a bit of a dodge answer, but I would check two places for this:
the MS website or
www.slipstick.com - Sue Mosher's Outlook MVP site. If it's not there,
I'd be surprised.

Nov 13 '05 #2

This discussion thread is closed

Replies have been disabled for this discussion.