PowerBuilder

Add an iCalendar Meeting Invitation to an Email

Demonstrates the Chilkat Email.AddiCalendarAlternativeBody method, which adds or replaces an iCalendar body as a text/calendar alternative. The first argument is the iCalendar content and the second is the iCalendar method (such as REQUEST, REPLY, or CANCEL). If an iCalendar alternative already exists it is replaced, so repeated calls leave at most one. This example attaches a simple meeting request.

Background: When you receive a calendar invite that your mail client shows with Accept/Decline buttons, it arrives as an iCalendar (.ics) body carried in the message as a text/calendar alternative. The METHOD — REQUEST to invite, CANCEL to withdraw, REPLY to respond — tells the recipient's client how to treat it. Delivering it as an alternative means clients that understand calendars show the invite UI, while others fall back to the plain-text or HTML body.

Chilkat PowerBuilder Downloads

Download Chilkat for PowerBuilder

PowerBuilder

integer li_rc
oleobject loo_Email
string ls_Ical

//  Demonstrates the AddiCalendarAlternativeBody method, which adds (or replaces) an
//  iCalendar body as a text/calendar alternative.  The first argument is the iCalendar content and the second
//  is the iCalendar method (such as REQUEST, REPLY, or CANCEL).

loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")
if li_rc < 0 then
    destroy loo_Email
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Email.Subject = "Meeting invitation"
loo_Email.SetTextBody("You are invited to the Project Sync meeting.","text/plain")

//  The iCalendar (VCALENDAR) content.  In practice this is generated iCalendar text.
ls_Ical = "BEGIN:VCALENDAR~r~nVERSION:2.0~r~nMETHOD:REQUEST~r~nBEGIN:VEVENT~r~nSUMMARY:Project Sync~r~nDTSTART:20260720T160000Z~r~nDTEND:20260720T163000Z~r~nEND:VEVENT~r~nEND:VCALENDAR~r~n"

//  Add the iCalendar as a text/calendar alternative using the REQUEST method.
loo_Email.AddiCalendarAlternativeBody(ls_Ical,"REQUEST")

Write-Debug "NumAlternatives = " + string(loo_Email.NumAlternatives)


destroy loo_Email