Print without recipients

This tip describe how to print with out receipts.

Here's a setup for a mail template change to allow the user to print an email without printing the recipient lists.


Agent: PrintwithoutRecipients

Description: Makes a copy of the current ui document, clears the recipients (SendTo, BlindCopyTo and EnterCopyTo), and sets the saveoptions field to 0 to not allow the document to be saved, then launches the print dialog. Once the print dialog is closed the copied document is closed returning the user to the start point.

Sub Initialize
 Dim ws As New NotesUIWorkspace
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim uidoc As NotesUIDocument 
 Dim thisdoc As NotesDocument
 Dim copydoc As NotesDocument
 
'This captures the current document
 Set uidoc = ws.CurrentDocument
'This takes it to the backend
 Set thisdoc = uidoc.Document
'This sets the db to the current db
 Set db = session.CurrentDatabase
'This creates the copydoc
 Set copydoc = New NotesDocument ( db )
'This copy's the values of all of the fields 
from the document to the copy document
 Call thisdoc.CopyAllItems( copydoc, True )
'This saves the new copy doc
' Call copydoc.Save( True, True ) 
 copydoc.SaveOptions = 0
 copydoc.EnterSendTo = ""
 copydoc.SendTo = ""
 copydoc.EnterCopyTo = ""
 copydoc.tmpEnterCopyTo = ""
 copydoc.CopyTo = ""
 copydoc.EnterBlindCopyTo = ""
 copydoc.tmpEnterBlindCopyTo = ""
 copydoc.BlindCopyTo = ""
 Set uidoc = ws.EditDocument(True,copydoc,False) 
 uidoc.Refresh
 uidoc.Print
 uidoc.Close
End Sub


New Shared Action: Print without Recipients

@Command([ToolsRunMacro]; "FAAPrintwithoutRecipients")


Shared Action added to Forms:
Memo
Reply

Dig Deeper on LotusScript

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