我有一个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不起作用条目没有得到更新?
有人可以看看吗?
答案 0 :(得分:2)
Notes中的邮件和日历表单共享许多常用字段。其中一个领域叫做Body。在约会表单中,正文字段标记为“描述”。所以身体就是你想要的。
正文是一个富文本字段。您应该使用doc.CreateRichTextItem("Body")
和NotesRichTextItem
类的方法来处理它,而不是仅使用doc.AppendItemValue("Body",someVariable)
。
将来请注意,Notes开发人员可以很容易地自己研究这样的问题。只需在Domino Designer中打开邮件模板,然后查看_CalendarEntry表单。 (“约会”是别名。)它是开源的。你会看到那里的字段。一直滚动到底部,您会看到“描述”标签,在下面您将看到“身体”字段。那里的很多东西都很乱,但是Body领域却不是。对于你可能正在处理的大多数其他事情,真的值得花时间研究凌乱的部分,看它是如何工作的。