Domino 9 und frühere Versionen > Entwicklung

how to mark a doc read/unread from mail db ?

(1/2) > >>

Toma Bogdan:
in the inbox I see a new doc with red colour .. I need to modify specific docs form mail db with Lotus Script (also I can modify this status with Insert key or from Edit menu) - how can I make this ? 10x

doliman:
Hi,

give me some more information. I don't understand excatly what you mean.

Toma Bogdan:
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


--- Code: ---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 )

--- Ende Code ---

if I use the code:


--- Code: ---eval$={@Command([ToolsMarkSelectedUnread]) }
result=Evaluate(eval$)

--- Ende Code ---
it will works ?

ata:
... I think @Commands will not work in Evaluate(...)

ata

doliman:
Hi,

how ata said the @command doesn't work at Lotus Script.
But try this:
make a agent with your formular an call the agent from the Lotus script.

Dim session As New NotesSession
Dim db As NotesDatabase
Dim theAgent As NotesAgent
Dim agentString As String
Set db = session.CurrentDatabase
Set theAgent = db.GetAgent("your agent")
If Not(theAgent Is Nothing) Then
     Call theAgent.Run
Else

Navigation

[0] Themen-Index

[#] Nächste Seite