1

这是我的脚本。我想在这个脚本中有 2 个日期和时间，所以当有人点击按钮时，收件人日历中应该有两个条目

我真的很感激在这个问题上的任何帮助。

Sub Click(Source As Button)

    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim subject As String
    Dim maildoc As NotesDocument
    Dim rtitem As NotesRichTextItem
    Set db = s.CurrentDatabase
    Set doc = New NotesDocument(s.CurrentDatabase)
    Set maildoc = New NotesDocument(s.CurrentDatabase)
    Set ritem = New NotesRichTextItem(maildoc, "Body")

'Modify Subject, Location, Start Day and Time, End Day and Time before sending!!
'#########################################################################

    doc.subject = "test"
    doc.location = "bangalore"
    Set startdatetime = New NotesDateTime("03/26/2013 04:00:00 PM")
    Set enddatetime = New NotesDateTime("03/24/2008 05:00:00 PM")

'#########################################################################


    doc.From = s.UserName
    doc.Form = "Appointment"
    doc.AppointmentType = "0"
    doc.Chair = s.UserName
    doc.StartDateTime = startdatetime.LSLocalTime
    doc.EndDateTime = enddatetime.LSLocalTime
    doc.CalendarDateTime = startdatetime.LSLocalTime
    doc.TimeRange = Timevalue(doc.startdatetime(0)) & "-" & Timevalue(doc.enddatetime(0))
    doc.ExcludefromView = "D"

    Call doc.ReplaceItemValue("_ViewIcon", 160)
    Call doc.AppendItemValue("$BusyName", s.UserName)
    Call doc.AppendItemValue("$BusyPriority", "1")
    Call doc.AppendItemValue("$PublicAccess", "1")
    Call doc.save(True,True)

    Print "An entry for this event was successfully added to your calendar and an e-mail confirmation was sent."
    Msgbox "Calendar successfully updated and e-mail confirmation sent.", 64, "Success"

'Send e-mail confirmation

    maildoc.Form = "Memo"

'Modify Subject and Send to
'############################################################################

    maildoc.Subject = "test to send multiple emails"
    Dim recip(2) As Variant
    recip(0) = ""
    recip(1) = ""

    maildoc.sendto = recip

'############################################################################

    Call maildoc.Send(False)

End Sub
4

2 回答 2

1

IBM 将已发布的 Lotus Notes C&S Schema 文档移至此处。上面找到的另一个链接是未更新的先前版本。

除了添加 ORGRepeat 值“1”之外，要使条目重复，您需要有 3 个平行的值列表：StartDateTime、EndDateTime 和 RepeatInstanceDates。最初，StartDateTime 和 RepeatInstanceDates 项将包含相同的值，因此您可以在创建它后简单地设置该值。

CalendarDateTime 项还需要具有与上述列表相同数量的值，以便条目将显示在日历上的正确日期/时间。

与您的脚本有关的一个潜在问题是它将使用用户时区作为时间。因此，如果任何用户在另一个时区并且他们点击它，条目将被放置在错误的时间。您可以通过将 3 个字符的时区标识符放在值的末尾来解决此问题（例如“03/26/2013 04:00:00 PM EDT”）

您可能还想查看我在此处找到的按钮脚本，以了解如何执行此操作的另一个示例。

于 2014-02-12T06:02:01.980 回答
1

IBM在此处发布了 Lotus Notes 日历约会的模式。如果您想创建两天的重复约会，但在每天的同一时间，然后从第 12 页开始。有很多选项，但我认为您可能希望设置 Repeats="1 ", RepeatUnit="C" 并将 RepeatCustom = 设置为包含两个日期的数组。

于 2013-03-27T02:39:46.907 回答