Question

用例：使用.ics文件并最好使用LotusScript发送事件邀请。

代码位于经典的Domino Web应用程序（$ WebObscureHiddenField）中，业务逻辑位于LotusScript中，我不太想编写其他任何东西。

我发现定义了https://icalendar.org/RFC-Specifications/iCalendar-RFC-5545/格式的RFC似乎很简单，只需遵循这些约定编写文本文件，然后附加它即可。

我在SO上也遇到了类似的问题，Thorsten Link建议在相关字段中填写“约会”表格，但对我来说似乎有点“肮脏”。

这里的最佳做法是什么？

Answer 1

一种方法是让Java Servlet实现ical4j之类的东西或其他ics库，然后再动态生成ics。

我用于发送ics文件的其他方法是将必要的字段写入n ics文件并将其附加到邮件中。

Answer 2

我最终自己建立了ics文件；一旦我了解了RFC，这简直是直截了当的，而我只是不相信任何自动的东西。

Ueli，我给了你正确的答案'tickmark'

'/*************************************************************************************
' * CalendarEntry Class
' * @author Andrew Magerman/Magerman/NotesNet
' * @version Sep 21, 2019
' *************************************************************************************/

Class CalendarEntry
    Public startdatetime As String
    Public enddatetime As String 
    Public summary As String
    Public location As String
    Public url As String
    Public description As String

' validator: https://icalendar.org/
' spec: https://tools.ietf.org/html/rfc5545

'/*************************************************************************************
' * Function as_NotesStream
' * @return: A NotesStream of the whole file, can be inputted directly into a NotesMimeEntity
' * @author Andrew Magerman/Magerman/NotesNet
' * @version Sep 22, 2019
' *************************************************************************************/
Function as_NotesStream As NotesStream
    On Error GoTo ErrorHandler

    Dim session As New NotesSession
    Dim stream As NotesStream

    Set stream = session.Createstream() ' charset Unicode as default

    Call stream.WriteText("BEGIN:VCALENDAR", EOL_CRLF)
    Call stream.WriteText("PRODID:" & me.prodid(), EOL_CRLF)
    Call stream.WriteText("VERSION:2.0", EOL_CRLF)
    Call stream.WriteText("METHOD:REQUEST", EOL_CRLF)

    ' TIMEZONE Section - describes the timezone, the TZID is an internal reference
    Call stream.WriteText("BEGIN:VTIMEZONE" , EOL_CRLF)
    Call stream.WriteText("TZID:Europe/Berlin" , EOL_CRLF)
    Call stream.WriteText("X-LIC-LOCATION:Europe/Berlin" , EOL_CRLF)
    Call stream.WriteText("BEGIN:DAYLIGHT" , EOL_CRLF)
    Call stream.WriteText("TZOFFSETFROM:+0100" , EOL_CRLF)
    Call stream.WriteText("TZOFFSETTO:+0200" , EOL_CRLF)
    Call stream.WriteText("TZNAME:CEST" , EOL_CRLF)
    Call stream.WriteText("DTSTART:19700329T020000" , EOL_CRLF)
    Call stream.WriteText("RRULE:FREQ=YEARLY;INTERVAL=1;BYDAY=-1SU;BYMONTH=3" , EOL_CRLF)
    Call stream.WriteText("END:DAYLIGHT" , EOL_CRLF)
    Call stream.WriteText("BEGIN:STANDARD" , EOL_CRLF)
    Call stream.WriteText("TZOFFSETFROM:+0200" , EOL_CRLF)
    Call stream.WriteText("TZOFFSETTO:+0100" , EOL_CRLF)
    Call stream.WriteText("TZNAME:CET" , EOL_CRLF)
    Call stream.WriteText("DTSTART:19701025T030000" , EOL_CRLF)
    Call stream.WriteText("RRULE:FREQ=YEARLY;INTERVAL=1;BYDAY=-1SU;BYMONTH=10" , EOL_CRLF)
    Call stream.WriteText("END:STANDARD" , EOL_CRLF)
    Call stream.WriteText("END:VTIMEZONE" , EOL_CRLF)

    Call stream.WriteText("BEGIN:VEVENT", EOL_CRLF)
    Call stream.WriteText("SUMMARY:" & me.summary, EOL_CRLF)
    '   Call stream.WriteText("PRIORITY:0", EOL_CRLF)
    '   Call stream.WriteText("CATEGORIES:GIG", EOL_CRLF)
    Call stream.WriteText("CLASS:PUBLIC", EOL_CRLF)
    Call stream.WriteText("UID:" & me.uid(), EOL_CRLF)
    Call stream.WriteText("DTSTAMP:" & me.dtstamp(), EOL_CRLF)
    Call stream.WriteText("DTSTART;TZID=Europe/Berlin:" & me.startdatetime, EOL_CRLF)
    Call stream.WriteText("DTEND;TZID=Europe/Berlin:" & me.enddatetime, EOL_CRLF)
    Call stream.WriteText("URL:" & me.url, EOL_CRLF)
    Call stream.WriteText("DESCRIPTION:" & prepareTextCorrectly(me.description), EOL_CRLF)
    Call stream.WriteText("LOCATION:" & prepareTextCorrectly(me.location), EOL_CRLF)
    Call stream.WriteText("END:VEVENT", EOL_CRLF)
    Call stream.WriteText("END:VCALENDAR", EOL_CRLF)

    Set as_NotesStream = stream

    Exit Function
ErrorHandler:
        Call logError
        Exit Function
    End Function

'/*************************************************************************************
' * Function domain: the customer-specific domain
' * @author Andrew Magerman/Magerman/NotesNet
' * @version Sep 22, 2019
' *************************************************************************************/
Function domain As String
    On Error GoTo ErrorHandler

    domain = "example.com"

    Exit Function
ErrorHandler:
        Call logError
        Exit Function
    End Function

'/*************************************************************************************
' * Function prodid:an id of the producer
' * @author Andrew Magerman/Magerman/NotesNet
' * @version Sep 22, 2019
' *************************************************************************************/
Function prodid As String
    On Error GoTo ErrorHandler

    prodid = "-//YOUR MEGA PROD_ID//DE"

    Exit Function
ErrorHandler:
        Call logError
        Exit Function
    End Function


'/*************************************************************************************
' * Function uid:An unique id for the calendar event
' * @author Andrew Magerman/Magerman/NotesNet
' * @version Sep 22, 2019
' *************************************************************************************/
Function uid As String
    On Error GoTo ErrorHandler

    Dim uuid As Variant
    uuid = Evaluate("@Unique")
    uid = startdatetime & "-" & CStr(uuid(0)) & "@" & domain

    Exit Function
ErrorHandler:
        Call logError
        Exit Function
    End Function



'/*************************************************************************************
' * @author Andrew Magerman/Magerman/NotesNet
' * @version Sep 21, 2019
' *************************************************************************************/
Function dtstamp As String

    Dim dtTmp As NotesDateTime  
    Set dtTmp = New NotesDateTime(Now())    
    Const RFC554FORMATFORUTC = "yyyymmddThhmmssZ"       
    dtstamp = Format$(dtTmp.lsgmttime, RFC554FORMATFORUTC) 

End Function

'/*************************************************************************************
' * @author Andrew Magerman/Magerman/NotesNet
' * @version Sep 21, 2019
' *************************************************************************************/
Function ReplaceCRLFWithSlashN (value As String) As String

    Dim CRLF As String
    CRLF = Chr$(13) + Chr$(10)

    ReplaceCRLFWithSlashN = Replace(value, CRLF, "\n") 

End Function


'/*************************************************************************************
' * Function prepareTextCorrectly
' * @author Andrew Magerman/Magerman/NotesNet
' * @version Sep 21, 2019
' *************************************************************************************/
Function prepareTextCorrectly(value As string) As String
    On Error GoTo ErrorHandler

    prepareTextCorrectly = ReplaceCRLFWithSlashN(value)

    Exit Function
ErrorHandler:
        Call logError
        Exit Function
    End Function



End Class

使用LotusScript创建.ics日历邀请

2 个答案: