Manage Learn to apply best practices and optimize your operations.

Forwarding the calendar

Code to take a snapshot of a calendar and paste it into a memo.

View member feedback to this tip.

The other day, a senior VP asked me how to forward his calendar to others. Well, there was no straightforward way to do this. So I worked off of a previous piece of code, did a print screen to take a snapshot of the calendar and pasted it into a memo. Place this button in the calendar view of the mail database.

Declaration:
Declare Sub keybd_event Lib
 "user32.dll" (Byval bVk As Integer, 
Byval bScan As Integer, 
Byval dwFlags As Integer,Byval 
dwExtraInfo As Integer)


Sub Click(Source As Button)
 
 Dim workspace As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 
 
 'copy the screen to the clipboard
 keybd_event 44,0,0,0 ' PrtScn down
 keybd_event 44,0,2,0 ' PrtScn up 
 
 Call workspace.ComposeDocument
( "", "", "Memo" )
 Set uidoc = workspace.CurrentDocument
 Call uidoc.GotoField("Body")
 Call uidoc.Paste
 
End Sub

MEMBER FEEDBACK TO THIS TIP

The major problem in general with Prt-Scrn is that it will use the screen resolution and color quality of the screen. In my case this means that 1280 x 1024 + highest color quality (32 bits) means the size of the memo is almost 150 KB (per picture!).

-- Art Z.

******************************************************

Or you can simply select the calendar entry from the calendar view and use the menu options ACTION - FORWARD. The calendar entry gets included as a Rich Text item the same way the a forwarded e-mail does.

-- SearchDomino.com member

******************************************************

To forward a calendar entry you simply define it as a "meeting" instead of an "appointment," and depending on circumstances put the receiver into the To, CC, or BCC field. It works even for non-Notes receivers.

-- Jens A.

******************************************************

Starting in Notes 6 when you are in your calendar simply choose Print, Print calendar to document, Preview, then Forward.

-- Alan L.

******************************************************

Here's another way: Download one of the Notes Calendar Print utilities from the Lotus Sandbox. From the screen where you would normally print the calendar, select Actions, Forward to send the formatted calendar.

-- Sharon K.

Do you have comments of your own? Let us know.

This was last published in September 2003

Dig Deeper on LotusScript

Start the conversation

Send me notifications when other members comment.

By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

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

SearchExchange

SearchContentManagement

Close