I try to copy through a picklist a doc from maildatabase Inbox to another db - db3 and I want the new doc marked with red from Inbox to be unmark after the doc was copied
Dim ws As New notesuiworkspace
Dim col As notesdocumentcollection
Dim db As New NotesDatabase( "", "" )
Call db.OpenMail
Dim db3 As New NotesDatabase("","")
Set db3=ws.currentdatabase.database
Set col = ws.PickListCollection( 1 ,False, db.server, db.filepath, "($Inbox)", "Inbox folder "," Select the doc !")
Dim session As New NotesSession
Dim doc As NotesDocument
Dim newdoc As NotesDocument
Dim userName As New NotesName(session.UserName)
Set doc = col.GetFirstDocument
Set newdoc= doc.Copytodatabase(db3)
Call newdoc.Save( True, False )
if I use the code:
eval$={@Command([ToolsMarkSelectedUnread]) }
result=Evaluate(eval$)
it will works ?