Manage Learn to apply best practices and optimize your operations.

Forward as link

We all often forward each other items from the applications by selecting "Actions" ---> "Forward."

We all often forward each other items from the applications by selecting "Actions" ---> "Forward." This copies the entire selected document into a Memo document that can then be sent. Obviously, this option is slow and catches a lot of disk space to you and to your recipient's mail DB.

Here is a better solution: "Forward As Link." This will create a new mail memo where a link plus the selected document's subject are already embedded into the new Memo Body.


Create an Agent that runs on selected docs:

Sub Initialize
     Dim session As New NotesSession
     Dim db,maildb As NotesDatabase
     Dim collection As NotesDocumentCollection
     Dim doc As NotesDocument
     Set db = session.CurrentDatabase
     Set collection = db.UnprocessedDocuments
     For i = 1 To collection.Count
          Set doc = collection.GetNthDocument( i )
     Next     
     Const NotesMacro$ = "@MailDbName"
     result = Evaluate(NotesMacro$, doc)
     Set maildb=Session.GetDatabase( result(0), result(1) )     
     Set mailDoc = maildb.CreateDocument
     mailDoc.form="Memo"
     Set rtitem = New NotesRichTextItem(mailDoc, "Body")
     Call rtitem.AddNewLine(2)     
     Call rtitem.Appendtext(doc.index(0) + " ------->")
     Call rtitem.AppendDocLink (doc,"Goto RQ")
     Call rtitem.Appendtext(+"("+doc.subject(0)+")")
     Call mailDoc.save(True,True)
     Dim workspace As New NotesUIWorkspace
     Dim maildocui As NotesUIDocument
     Set maildocui=workspace.EditDocument( True,mailDoc, False )
End Sub

Dig Deeper on Lotus Notes Domino Administration Tools

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchDataCenter

SearchContentManagement

Close