Check om aftale eksistere i Outlook 2003 før den oprettes.
HejJeg 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