Need this Script tweeked abit to get me to where I need to be....
Posted on 2004-03-22
Here is my current Lotus Script....
Right now the document comes into my mail and is picked up by this agent.
It is then put into the "New Summary" Folder( and saved there).
I need it to be not only put into "New Summary" but then removed from my mailbox.
Right now when I remove it from mailbox, it gets removed from "News Summary" as well.
Dim session As New Notessession
Dim db As notesdatabase
Set db = session.currentdatabase
Set doccoll = db.unprocesseddocuments
Set doc = doccoll.getfirstdocument
Dim fileNum As Integer
If Not doc Is Nothing Then
fileNum% = Freefile()
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
plainText = rtitem.GetFormattedText( False, 9999 )
' get a file number for the file
fileNum = Freefile
' open the file for writing
Open "c:\plane.txt" For Output As fileNum
' write the formatted text to the file
Print #fileNum, plainText
' close the file
Call doc.putInFolder("News Summary")