使用 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