Календарь приглашения с использованием Jmail

Вот функция, которую я создал для своего решения в Classic ASP для создания файла календаря.

Вам придется настроить его. например fmtDateTime & FmtDate — это пользовательские функции для форматирования даты. Вам нужно будет использовать свои собственные функции для этого.
Также у меня были некоторые вещи, жестко запрограммированные (например, ИМЯ ОТПРАВЛЯЮЩЕГО ЗАЯВКИ, ИМЯ ОТПРАВИТЕЛЯ & ОТПРАВИТЬ ПОЧТУ), но вы можете сделать эти параметры достаточно легко. И вы захотите установить соответствующий часовой пояс.

Function WriteICSFile(CalendarFileName,startdate,enddate,starttime,endtime,description,summary,venue)

If enddate = "" Then enddate = startdate

startdate = startdate & " " & starttime
enddate = enddate & " " & endtime
txtNow = fmtDateTime(now(),"yyyy-mm-dd hh:mm:ss")
txtNow = Replace(Replace(Replace(txtNow,"-","")," ","T"),":","")

txtStartDate=FmtDate(startdate,"%Y%M%DT%H%N00")
txtEndDate=FmtDate(enddate,"%Y%M%DT%H%N00")

Contents = "BEGIN:VCALENDAR" & vbCRLF &_
"VERSION:2.0" & vbCRLF &_
"PRODID:-//NAME OF SENDING APPLICATION//EN" & vbCRLF &_
"BEGIN:VEVENT" & vbCRLF &_
"UID:Event" & intEvents & vbCRLF &_
"DTSTAMP;TZID=Pacific/Auckland:" & txtNow & vbCRLF &_
"ORGANIZER;CN=SENDER NAME:MAILTO:SENDER EMAIL" & vbCRLF &_
"DTSTART;TZID=Pacific/Auckland:" & txtStartDate & vbCRLF &_
"DTEND;TZID=Pacific/Auckland:" & txtEndDate & vbCRLF &_
"DESCRIPTION:" & description & vbCRLF &_
"SUMMARY:" & summary & vbCRLF &_
"LOCATION:" & venue & vbCRLF &_
"END:VEVENT" & vbCRLF &_
"END:VCALENDAR"  & vbCRLF


set oFs = server.createobject("Scripting.FileSystemObject")
set oTextFile = oFs.OpenTextFile(CalendarFileName, 2, True)
oTextFile.Write Contents
oTextFile.Close
set oTextFile = nothing
set oFS = nothing
End Function