Question : Adding Outlook Calendar entries from server

I'm wondering if there is a way like creating a distribution group and adding users, then setting up Outlook calendar appointments for the group, which go to each users Outlook calendar?

Alternatively, is there a way to do this directly from the server to each users calendar?

From a 2003/2008 server to Outlook 2007 clients.

Thanks

Answer : Adding Outlook Calendar entries from server

This should only add one appointment per day.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:



Const olAppointmentItem = 1
Const olFolderCalendar = 9
Dim olkApp, olkSes, olkFld, olkApt
Set olkApp = CreateObject("Outlook.Application")
Set olkSes = olkApp.GetNamespace("MAPI")
olkSes.Logon olkApp.DefaultProfileName
Set olkFld = olkSes.GetDefaultFolder(olFolderCalendar)
Set olkApt = olkFld.Items.Find("[Subject] = 'Change Backup Tapes' And [Start] = '" & Format(Date & " 3:00 PM", "ddddd h:nn AMPM") & "'")
If TypeName(olkApt) = "Nothing" Then
    Set olkApt = olkApp.CreateItem(olAppointmentItem)
    With olkApt
        'Change the subject as desired'
        .Subject = "Change Backup Tapes"
        'Change the starting time as desired'
        .Start = Date & " 3:00 PM"
        'Change the duration as desired (in minutes)'
        .Duration = 30
        'Change the reminder time as desired'
        .ReminderMinutesBeforeStart = 10
        .ReminderSet = True
        .Save
    End With
End If
Set olkApt = Nothing
Set olkFld = Nothing
olkSes.Logoff
Set olkSes = Nothing
Set olkApp = Nothing