Managing Outlook calendar items with Excel

Hi everybody!

I've got a macro that downloads my work roster from the web to excel.

Now i want to create a macro that:

- Updates exsisting appointments to match current data from Excel (or delete if they dont exsist in Excel anymore)
Update if one of following values doesnt match: Start Date, Start Time, End Date, End Time, Subject
Delete if appointment in outlook doesnt occur in Excel sheet between "FirstDayPrevMonth" and "LastDayNextMonth"
FirstDayPrevMonth and LastDayNextMonth variables are set allready

- Create new appointment if appointment doesnt exist

All the appointments will go in the same callendar named:
WorkRoster

Here is my workbook: Calendar.xlsm

The sheet "Import" contains appointments to be set.

The sheet "Make Appointments" is how i would like to have my sheet.
Calendar name: WorkRoster
Subject: Always the same value (strSubject?)
Location: Always the same value (strLocation?)
Body: Worksheet("Import") Column("E")
Category: (do i need this?)
Start Date: Worksheet("Import") Column("B")
Start Time: Worksheet("Import") Column("C")
End Date: Worksheet("Import") Column("D")
End Time: Calculate with formula =if(Start Time > End Time ; Start Date + 1 ; Start Date)
Reminder: Always the same value (strReminder, 24hrs before)

Any input is greatly appriciated !

How to addapt the following code to work with worksheet "Make Appointments"

Naamloos.png

This will check allready added items and create new by calling a sub as down below if it doesnt excist

Please Login or Register  to view this content.