日历按钮输入

时间:2014-01-31 16:41:16

标签: lotus-notes lotus-domino lotus-formula

我有一个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")

“############################################## ###########################

    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

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

嗯我试过Doc.Description不起作用条目没有得到更新?

有人可以看看吗?

1 个答案:

答案 0 :(得分:2)

Notes中的邮件和日历表单共享许多常用字段。其中一个领域叫做Body。在约会表单中,正文字段标记为“描述”。所以身体就是你想要的。

正文是一个富文本字段。您应该使用doc.CreateRichTextItem("Body")NotesRichTextItem类的方法来处理它,而不是仅使用doc.AppendItemValue("Body",someVariable)

将来请注意,Notes开发人员可以很容易地自己研究这样的问题。只需在Domino Designer中打开邮件模板,然后查看_CalendarEntry表单。 (“约会”是别名。)它是开源的。你会看到那里的字段。一直滚动到底部,您会看到“描述”标签,在下面您将看到“身体”字段。那里的很多东西都很乱,但是Body领域却不是。对于你可能正在处理的大多数其他事情,真的值得花时间研究凌乱的部分,看它是如何工作的。