使用 Jmail 的日历邀请
Calendar invite using Jmail
有人可以向我提供使用 JMail 发送会议邀请(与 Outlook 兼容)的 snippet/function(PHP 或经典 ASP)的 full/working 示例?
这是我在 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
有人可以向我提供使用 JMail 发送会议邀请(与 Outlook 兼容)的 snippet/function(PHP 或经典 ASP)的 full/working 示例?
这是我在 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