Ben Langhinrichs

Photograph of Ben Langhinrichs

E-mail address - Ben Langhinrichs

October, 2003
   01 02 03 04
05 06 07 08 09 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31

Search the weblog

Genii Weblog

Civility in critiquing the ideas of others is no vice. Rudeness in defending your own ideas is no virtue.

Tue 14 Oct 2003, 11:47 PM
How short is your shortest useful agent?  This one I wrote today converts Notes bitmaps to GIF format for every rich text field on the current document (there are several rich text fields in this form which might have images).  The full code is:

'Convert Bitmaps to GIFs for all: 

Option Public
Option Declare
Uselsx "*lsxrtc"

Sub Initialize
   Dim session As New NotesSession
   Dim doc As NotesDocument
   Dim gSession As New GeniiSession
   Set doc = session.DocumentContext
   On Event ActOnItem From gSession Call ConvertBitmaps
   Call gSession.BatchBackend(doc.Handle, "*")
End Sub

Sub ConvertBitmaps(Source As GeniiSession, Byval action As String, Byval properties As String, skipnote As Integer, continue As Integer)
   Print "Converting bitmaps in " & Source.BatchRTItem.Fieldname
   Call Source.BatchRTItem.Everything.ConvertBitmaps
End Sub

You don't get much shorter.  Maybe I should comment it or something.

Copyright 2003 Genii Software Ltd.