有人可以为我提供一个使用 JMail 发送会议邀请(与 Outlook 兼容)的片段/函数(PHP 或经典 ASP)的完整/工作示例吗?
问问题
145 次
1 回答
1
这是我在 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
于 2015-11-12T20:34:37.393 回答