Is this possible?Shared calendar reminders between 3 people &remin

[Mitch]

Hi, I'm working on creating a macro to create 2 appointments, but it has to
send reminders to 3 specific people.

I have the code to create items in the Calendar so I can modify it and setup
the 2 appointments, but how do you get Outlook to use a shared calendar and
setup 3 reminders is beyond me right now. Also how do you substract a date
variable in VB? I'll be asking a user for a date, I then setup 2 reminders 90
days and 7 days before the 'specified date'.

Also how do you specify the amount of time for a reminder? (Instead of 30
mins).
I found ReminderMinutesBeforeStart on MSDN and figure if I do
appt.ReminderMinutesBeforeStart =90 that should do the trick right?

Thank you for any help. Outlook 2003 is being used in an Exchange Server
environment.

Also they requested that they use a shared calendar and that the reminder
show up on 3 mailboxes. How do I reference a shared mailbox? I tried putting
a reminder in a shared calendar and it tells me it's not in my mailbox but it
reminded the other user successfully but did not remind me.

I'm going to use some of the code I found on here.

Dim appt As Outlook.AppointmentItem

Dim Location As String
Dim Time As Variant
Dim StartDate As Variant
Dim Subject As String
Dim Notes As String
Dim Category As String

Location = "Somewhere"
Subject = "My Subject"
Notes = "Some notes..."
StartDate = #1/31/2006#
Time = "1:05 pm"
Category = "Business, Competition, Favorites"

Set appt = Session.Folders.Item("Personal
Folders").Folders.Item("Calendar").Items.Add

appt.Location = Location
appt.Subject = Subject
appt.Body = Notes
appt.Start = Format$(StartDate, "mm/dd/yy") & " " & Format$(Time,
"hh:MM:ss am/pm")
appt.Categories = Category
appt.ReminderSet = True
appt.ReminderMinutesBeforeStart = ?? (Don't know what format it takes

appt.Save

Set appt = Nothing

 

[Mitch]

I found this bit of code.
I assume if I replaced Public Folder path with say.

Calendar/Shared

It would load the secondary Shared Calendar (I made a second calendar for
these reminders specifically)

' GetFolder - Gets a Public folder based on a string path - e.g.
'If Folder name in English is
'Public Folders\All Public Folders\Europeen Workflow
'The just pass in "Europeen Workflow'

Public Function GetPublicFolder(strFolderPath)

Dim colFolders
Dim objFolder
Dim arrFolders
Dim i
On Error Resume Next
strFolderPath = Replace(strFolderPath, "/", "\")
arrFolders = Split(strFolderPath, "\")

Set objFolder = Application.Session.GetDefaultFolder(18)
Set objFolder = objFolder.Folders.Item(arrFolders(0))
If Not objFolder Is Nothing Then
For i = 1 To UBound(arrFolders)
Set colFolders = objFolder.Folders
Set objFolder = Nothing
Set objFolder = colFolders.Item(arrFolders(i))
If objFolder Is Nothing Then
Exit For
End If
Next
End If
Set GetPublicFolder = objFolder
Set colFolders = Nothing
Set objApp = Nothing
Set objFolder = Nothing
End Function


But the question now is how do I get it to send reminders to 3 people whom
have access to this?