Check om aftale eksistere i Outlook 2003 før den oprettes.

Hej

Jeg har et lille script der opdatere Outlook 2003 kalender med data fra Project 2003 udtræk.
Jeg ville gerne checke om aftaler eksistere før jeg opretter dem så de ikke bliver oprettet dobbelt.

Mvh Henrik

Function OptetAftale(Emne,Start,Slut,Tid)

Const olAppointmentItem = 1
Set objOutlook = CreateObject("Outlook.Application")
Set objAppointment = objOutlook.CreateItem(olAppointmentItem)
objAppointment.Start = Start
objAppointment.End = Slut
objAppointment.Subject = Emne
objAppointment.Body = "Kalkuleret tid: " & Tid & " Timer"
objAppointment.ReminderMinutesBeforeStart = 15
objAppointment.ReminderSet = True
objAppointment.Save

End Function