如下:
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
上面通过Call msgnote.Send(False,NotesManList(i))发的邮件标志是已读标志,请问如何将邮件设置为未读标志啊?
|