楼主,如何给一封邮件设置“未讯标记”?
如下面的:
For i = 0 To Ubound(NotesManList)
Set msgnote = New NotesDocument(db)
msgnote.Form = "MessageBoard"
msgnote.IsReadFlag = 0
msgnote.ChineseName = note.CurrentUser(0)
msgnote.CreateAuthor = note.CurrentUser(0)
msgnote.CreateDate = Now
msgnote.Subject = " 请评阅文档: " & note.Subject(0)
'设置文档的读者
Set tmpReader = New NotesItem( msgnote, "FileReaders", NotesManList(i),READERS )
Set rtitem = New NotesRichTextItem(msgnote, "Body")
If IsLink(0) = "1" Then '1 连接文档 ,其他不连接
Call rtitem.AppendText( "希望你评阅的文档标题:" )
Call rtitem.AddNewLine( 1 )
Call rtitem.AppendText( note.Subject(0) )
Call rtitem.AddNewLine( 1 )
Call rtitem.AppendText( "请单击图标评阅该文档" )
Call rtitem.AppendDocLink(note, note.Subject(0))
Else
rtitem.AppendText("有文件需要你评阅,请尽快办理!")
End If
Call msgnote.Send(False,NotesManList(i))
Next |