/ Forums / Advansys Formativ / Creating Solutions with Formativ / Recurring Appointment for a whole day (Autodate) / Reply To: Recurring Appointment for a whole day (Autodate)

#7788
Support 3
Participant

Its a known GroupWise Object API limitation that you can not create the autodate appointments. However you can create all day appointments but the AllDay property only available in GroupWise 7.0 and later. The example below creates all day appointments for 3 years:

  
  for x = 0 to 2
    Set objAppt = GroupWise.Account.Calendar.Messages.Add("GW.MESSAGE.APPOINTMENT", fgwPersonal)

    With objAppt
      .OnCalendar = TRUE
      .Priority = fgwNormal
      .Place = "City"

      ' An AllDay appointment starts at midnight of the first day and ends at midnight of the next day.
      ' For example, the properties show up in the Object API StartDate as 23-June-2006 at 12:00:00 a.m. and in the
      ' EndDate as 24-June-2006 at 12:00:00 a.m. — GroupWise 7.0 and later
      .AllDay = true

      ' See the Visual Basic Scripting help for the DateAdd function
      .StartDate = DateAdd("yyyy", x, date)

      .Subject = "Birthday"
      .Private = TRUE
      .AlarmSet = TRUE
      .AlarmReminderMinutes = 900
      .BodyText.PlainText = "Happy birthday to you! Don't forget my present"
    End With

    Set objAppt = Nothing
  next

Hope this helps.

Regards,
Advansys Support