How to update a meeting in a calendar? runtime error -278904827(ef604005): no permission to move Item

[rventuradiaz]

I try to update appointment's start and end date. On trying to
change .start property then error occur.
Would you please help me to fix the error or find an alternative
solution please?
Thanks
Rafael

The code is below:

Dim olAppt As Outlook.AppointmentItem

Set olAppt = objSubCalFolder.Items.Item(Subject)
Set myRecurrPatt = olAppt.GetRecurrencePattern
myRecurrPatt.RecurrenceType = olRecursDaily
myRecurrPatt.PatternStartDate = beginDate
myRecurrPatt.PatternEndDate = endDate

' Configurar la información de otra cita...
With olAppt
If olAppt.EntryID = olcode Then '19-4-2010: Añadir una restricción
para actualizar
.Start = FecIni + CDbl(HorIni) '+ (2# / 24# / 60#) .Duration =
Duracion
.End = FecFin + CDbl(HorIni) + CDbl(Duracion) / 60# / 24#
.Subject = Asunto
.Body = "Reserva de Aula para actividad: " & Asunto
.Location = "Oficina doméstica"
.ReminderMinutesBeforeStart = 60
.ReminderSet = True
End If
End With

[Ken Slovak - [MVP - Outlook]]

First of all, never try to get a recurrence pattern for an appointment
before checking the IsRecurring Boolean property to see if it is a recurring
item. If it wasn't then it will become one after you use
GetRecurrencePattern.

Second, you can't change the entire pattern start and end times, you'd need
to create a new recurring item or to change one instance's start and end
times to create an exception. Once you have the master appointment you'd use
GetOccurrence() to get a specific occurrence, which you can then modify.

Again, read the object browser help on RecurrencePattern and related topics.
That help also has sample code.
--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"rventuradiaz" <***@gmail.com> wrote in message news:b11b4c69-9b79-4bd6-9440-***@8g2000yqz.googlegroups.com...
I try to update appointment's start and end date. On trying to
change .start property then error occur.
Would you please help me to fix the error or find an alternative
solution please?
Thanks
Rafael

The code is below:

Dim olAppt As Outlook.AppointmentItem

Set olAppt = objSubCalFolder.Items.Item(Subject)
Set myRecurrPatt = olAppt.GetRecurrencePattern
myRecurrPatt.RecurrenceType = olRecursDaily
myRecurrPatt.PatternStartDate = beginDate
myRecurrPatt.PatternEndDate = endDate

' Configurar la información de otra cita...
With olAppt
If olAppt.EntryID = olcode Then '19-4-2010: Añadir una restricción
para actualizar
.Start = FecIni + CDbl(HorIni) '+ (2# / 24# / 60#) .Duration =
Duracion
.End = FecFin + CDbl(HorIni) + CDbl(Duracion) / 60# / 24#
.Subject = Asunto
.Body = "Reserva de Aula para actividad: " & Asunto
.Location = "Oficina doméstica"
.ReminderMinutesBeforeStart = 60
.ReminderSet = True
End If
End With

[rventuradiaz]

Post by Ken Slovak - [MVP - Outlook]
First of all, never try to get a recurrence pattern for an appointment
before checking the IsRecurring Boolean property to see if it is a recurring
item. If it wasn't then it will become one after you use
GetRecurrencePattern.
Second, you can't change the entire pattern start and end times, you'd need
to create a new recurring item or to change one instance's start and end
times to create an exception. Once you have the master appointment you'd use
GetOccurrence() to get a specific occurrence, which you can then modify.
Again, read the object browser help on RecurrencePattern and related topics.
That help also has sample code.
--
Ken Slovak
[MVP - Outlook]http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.http://www.slovaktech.com/products.htm
I try to update appointment's start and end date. On trying to
change .start property then error occur.
Would you please help me to fix the error or find an alternative
solution please?
Thanks
Rafael
 Dim olAppt As Outlook.AppointmentItem
 Set olAppt = objSubCalFolder.Items.Item(Subject)
 Set myRecurrPatt = olAppt.GetRecurrencePattern
    myRecurrPatt.RecurrenceType = olRecursDaily
    myRecurrPatt.PatternStartDate = beginDate
    myRecurrPatt.PatternEndDate = endDate
 ' Configurar la informaci n de  otra cita...
 With olAppt
    If olAppt.EntryID = olcode Then '19-4-2010: A adir una restricci n
para actualizar
    .Start = FecIni + CDbl(HorIni)  '+ (2# / 24# / 60#)    .Duration =
Duracion
    .End = FecFin + CDbl(HorIni) + CDbl(Duracion) / 60# / 24#
    .Subject = Asunto
    .Body = "Reserva de Aula para actividad: " & Asunto
    .Location = "Oficina dom stica"
    .ReminderMinutesBeforeStart = 60
    .ReminderSet = True
    End If
End With

Thank you very much Kevin. I will do it straight away.
Kind regards,
Rafael