Codejock Developer Community : Mark Event as Exception via Code

Codejock Developer Community : Mark Event as Exception via Code http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Thu, 13 Aug 2026 16:45:26 +0000 Mon, 28 Sep 2009 18:03:10 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=15231 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Mark Event as Exception via Code : Hi, I've tried the code...]]> http://forum.codejock.com/forum_posts.asp?TID=15231&PID=53507&title=mark-event-as-exception-via-code#53507 Author: AndyWilton
Subject: 15231
Posted: 28 September 2009 at 6:03pm

Hi,

I've tried the code you've suggested but its still not working

. I tried it on a keypress of a button and also on the Selection Changed event.

I don't want to be cheeky but do you have any other ideas? or can you explain the process a little further?

Thanks in advance,

Andy

]]> Mon, 28 Sep 2009 18:03:10 +0000 http://forum.codejock.com/forum_posts.asp?TID=15231&PID=53507&title=mark-event-as-exception-via-code#53507 <![CDATA[Mark Event as Exception via Code : Hi Andy, See the bold lines...]]> http://forum.codejock.com/forum_posts.asp?TID=15231&PID=53412&title=mark-event-as-exception-via-code#53412 Author: mbrogdon
Subject: 15231
Posted: 24 September 2009 at 6:07am

Hi Andy,

See the bold lines for key to deleting an exception occurence. You must first create an event, the set it as deleted (it will actually exist in the database), but the calendar will know not to display it because of the deleted flag.

      Set excepEv = m_pCalendar.DataProvider.CreateEventEx(InEvent.EventId)
      excepEv.StartTime = InEvent.RExceptionStartTimeOrig
      excepEv.EndTime = InEvent.RExceptionEndTimeOrig
      excepEv.MakeAsRExceptionEx YOURPatternID
      With excepEv
         .Subject = InEvent.Subject
         .Location = InEvent.Location
         .Body = InEvent.Body
         .MeetingFlag = InEvent.IsMeeting
         .PrivateFlag = InEvent.IsPrivate
         .Label = InEvent.LabelID
         .BusyStatus = InEvent.BusyStatus
         .Importance = InEvent.ImportanceLevel
         .StartTime = InEvent.StartDateTime
         .EndTime = InEvent.EndDateTime
         .AllDayEvent = InEvent.IsAllDayEvent
         .Reminder = InEvent.IsReminder
         .ReminderMinutesBeforeStart = InEvent.ReminderMinutesBeforeStart
         .ReminderSoundFile = InEvent.ReminderSoundFile
         .CustomProperties.LoadFromString InEvent.CustomPropertiesXMLData
         .ScheduleID = InEvent.ScheduleID
         If InEvent.IsRecurrenceExceptionDeleted = True Then
            .SetRExceptionDeleted True
         End If
      End With
      blnDisAllowUpdates = True
      m_pCalendar.DataProvider.ChangeEvent excepEv
      m_pCalendar.Populate

]]> Thu, 24 Sep 2009 06:07:36 +0000 http://forum.codejock.com/forum_posts.asp?TID=15231&PID=53412&title=mark-event-as-exception-via-code#53412 <![CDATA[Mark Event as Exception via Code : Hi All, I'm trying...]]> http://forum.codejock.com/forum_posts.asp?TID=15231&PID=53381&title=mark-event-as-exception-via-code#53381 Author: AndyWilton
Subject: 15231
Posted: 23 September 2009 at 10:08am

Hi All,

I'm trying to either mark or delete some occurrences of a Recurring Event via some code that is executed by a button press.

To be honest, I'm struggling to even mark an event as an exception let alone delete it. I've tried various code combinations - none with success. Some of the things I've tried include:-

on the button press after selecting an event -

pMasterEvent = ?OLE{'ActiveView.GetSelectedEvents.ViewEvent(0).Event.RecurrencePattern.MasterEvent'}
pPatternObj = ?OLE{pMasterEvent & '.RecurrencePattern'}
pRecurObj = ?OLE{'ActiveView.GetSelectedEvents.ViewEvent(0).Event'}

?OLE{pRecurObj & '.MakeAsRException'}

?OLE{pMasterEvent & '.RecurrencePattern.SetException(' & pRecurObj & ')'}

?OLE{pMasterObj & '.UpdateRecurrence(' & pPatternObj & ')'}
?OLE{'DataProvider.ChangeEvent(' & pRecurObj & ')'}
?OLE{'DataProvider.ChangeEvent(' & pMasterEvent & ')'}

?OLE{'Populate'}
?OLE{'RedrawControl'}

on the SelectedChanged event when a Calendar Event has been selected -

pMasterObj = OLEControlFEQ{'ActiveView.HitTest.ViewEvent.Event.RecurrencePattern.MasterEvent'}
pPatternObj = OLEControlFEQ{pMasterObj & '.RecurrencePattern'}

OLEControlFEQ{pPatternObj & '.Exceptions.SetException.Add(' & OLEControlFEQ{'ActiveView.HitTest.ViewEvent.Event'} & ')'}

OLEControlFEQ{pMasterObj & '.UpdateRecurrence(' & pPatternObj & ')'}
OLEControlFEQ{'DataProvider.ChangeEvent(' & pMasterObj & ')'}

Obviously it�s something that I've either missed or misunderstood.

I'd really appreciate some help and guidance on the steps needed to delete an occurrence of a Recurring Event.

Many thanks in advance,

Andy

PS. I do have a full annual subscription (well, 2 actually because of 2 difference companies J)

]]> Wed, 23 Sep 2009 10:08:02 +0000 http://forum.codejock.com/forum_posts.asp?TID=15231&PID=53381&title=mark-event-as-exception-via-code#53381