Lotus notes 日历按钮条目

我有一个用于Notes日历输入的按钮

基本上，当有人点击它时，它只会创建一个新条目

这是完整的脚本：

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 = "HI"
    doc.location = "I2-300"
    Set startdatetime = New NotesDateTime("05/29/2014 04:00:00 PM")
    Set enddatetime = New NotesDateTime("05/29/2014 05:00:00 PM")

"#########################################################################

我的问题是如何添加描述字段，我可以在哪里插入文本，它应该显示在日历条目的描述字段下

我试过了文档描述不起作用条目没有更新

---

有人能看一下吗？

Notes中的邮件和日历表单共享许多公共字段。其中一个字段称为Body。在预约表单中，正文字段标记为“描述”。所以身体就是你想要的

正文是一个富文本字段。您应该使用

doc.CreateRichTextItem（“Body”）

和

NotesRichTextItem

类的方法来处理它，而不仅仅是使用

doc.AppendItemValue（“Body”，someVariable）

在将来，请记住Notes开发人员可以很容易地自己研究许多类似的问题。只需在Domino Designer中打开邮件模板并查看_CalendarEntry表单。（“约会”是一个别名。）它是开源的。你会看到那里的田野。一直滚动到底部，你会发现“描述”标签，下面你会看到Body字段。里面的很多东西都很凌乱，但身体区域却不是。对于你可能要处理的大多数其他事情来说，花时间研究这些杂乱无章的部分，看看它是如何工作的，这确实是值得的

    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 = "Yes - I will attend - May 29"
    maildoc.SendTo = "" 

'############################################################################
    Call maildoc.Send(False)

End Sub