-
Topic
-
I have an applet that calls a subroutine to send an appointment. In the subroutine, I set .BusyType = egwOutOfOffice, but on the calender, the actual item is displayed as “free”. Each user has an auto-accept rule to accept appointments from themselves as Busy.
What am I missing?
This is using GroupWise 7.0.1.
'
' Create appointments
'
Sub CreateAppointment
Dim objAppt
Dim objNewAppt
Dim objRecipient
' Create a draft appointment message with no user interface
Set objAppt = GroupWise.Account.Calendar.Messages.Add("GW.MESSAGE.APPOINTMENT", fgwDraft)
' Add a single recipient - myself
Set objRecipient = objAppt.Recipients.Add(GroupWise.Account.Owner.EmailAddress,,0)
With objAppt
.OnCalendar = TRUE
.Priority = fgwNormal
.Place = "calendar event"
.StartDate = HolidayDate
.EndDate = HolidayDate
.Duration = 1 '0.5 = 12 hours, 1/24 = 1 hour
.NotifyWhenAccepted = fgwNoNotify
.NotifyWhenDeclined = fgwNoNotify
.AlarmSet = FALSE
.BusyType = egwOutOfOffice
.Subject = HolidayTitle
.BodyText.PlainText = "Today is " & HolidayTitle
End With
Set objNewAppt = objAppt.Send
Set objRecipient = Nothing
Set objAppt = Nothing
End Sub
Viewing 6 replies - 1 through 6 (of 6 total)
- You must be logged in to reply to this topic.