Dec
31
Posted on 31-12-2005
Filed Under (Books, Photographing) by Johan Känngård

Book cover of The Da Vinci Code by Dan Brown

Even if I don’t believe in everything he writes, the story is great and I can’t stop reading it!

(0) Comments    Read More   
Dec
31
Posted on 31-12-2005
Filed Under (Tools) by Johan Känngård

Via Ned Batchelder, I found TaskSwitchXP, which is very useful! I often have a zillion windows open, and the normal task switcher is not good enough to distinguish different instances of applications and windows. I’ve tried other similar addons, but this is both fast and very customizable.

(0) Comments    Read More   
Dec
31
Posted on 31-12-2005
Filed Under (JavaScript, Tools) by Johan Känngård

Via Tom, I found Jim Andertons blog, which mentions Venkman. It is a JavaScript debugger, that can be used to find those irritating small typos and bugs (not written by me of course ;-). It seems to be a jewel, and I will probably use it when I’m back from vacation!

(0) Comments    Read More   
Dec
21
Posted on 21-12-2005
Filed Under (Fun) by Johan Känngård

Jag vet att det finns olika fängelsen, t.ex. för kvinnor, för tungt kriminella etc, men att det finns ett fängelse för falska frimärken, det var något nytt för mig! :-D

(0) Comments    Read More   
Dec
16
Posted on 16-12-2005
Filed Under (LotusScript, XML) by Johan Känngård

So I don’t forget the next time I want to do this, and trust me, I got a short memory!


Dim xml As String
Dim rootElementNode As NotesDOMElementNode
xml = "YOUR XML HERE"
Set rootElementNode = parseXML(xml)._
getElementsByTagName("THE ROOTNODE").getItem(1)
Public Function parseXML(xml As String) _
As NotesDOMDocumentNode
  ' Parses the specified xml.
  On Error Goto catch
  Dim session As New NotesSession()
  Dim stream As NotesStream
  Set stream = session.createStream()
  Call stream.writeText(xml)
  Dim domparser As NotesDOMParser
  Set domparser = session.createDOMParser(stream)
  domParser.exitOnFirstFatalError = True
  Call domParser.parse()
  Set parseXML = domparser.Document
  Exit Function
catch:
  Error Err, _
Err & "|" & Error & "|" & Lsi_info(2) & ":" & Erl
End Function

(0) Comments    Read More   
Dec
16
Posted on 16-12-2005
Filed Under (Fun) by Johan Känngård

Lättlagad och trevlig fruktkaka, som vanligt är det Fredrik som ska ha tack! :-)

#1dl socker
#4 st ägg
#2 dl torkad frukt
#1 tsk salt
#1 dl farinsocker
#4 msk citronsaft
#nötter
#2 l whisky

Ta fram en mellanstor skål.
Kolla whiskyn genom att smaka.
Häll whiskyn i dl mått och drick.
upprepa.
Sätt på elvispen.
Smaka återigen på whiskyn om den fortfarande håller kvaliteten.
Blanda 1 dl smör i en stor skål, lägg till en msk socker och vispa igen.
Kolla om whiskyn fortfarande är god, ta ännu en kopp.
schtäng av elvischpen.

Knäck tvÃ¥ hönor och schläng i schkÃ¥len med all tojkad fjukt…
Schätt på elvischpen igen.
Om den fjuktande tojken fastnaj i schkålen, vrid loss den med en muvschkrejsel.
Schmaka sen om whiskyn fortfarande är god
Scen scka de schila 2 dl schalt eller nåt schånt.
De e inte schå noga.
kolla whiskyn

Schila chitronen, lägg till en mat…..sched…och schÃ¥ socker eller nÃ¥t,va fan.
schmörj ugnen
Vrid kakformen på 220 grader, glöminte ett schtänga av elvichpen.
Schläng ut schkålen genom fönsctret, och så kolla sen whiskyn.

GÃ¥ Ã¥ lägg dej……… Vem fan schänner för Ã¥ äta nÃ¥n jävla fjuktkaka.

(1) Comment    Read More   
Dec
13
Posted on 13-12-2005
Filed Under (LotusScript) by Johan Känngård

To send HTML mails in R6, you have to use the setContentFromText method in the NotesMIMEEntity class. To add inline images, use the setContentFromBytes method in the same class, like this:


Dim session as New NotesSession()
session.convertMIME = False ' Do not convert to rich text 
Dim currentDb As NotesDatabase
Set currentDb = session.currentDatabase
Dim path As String
path = "c:\temp\test.html"
Dim message As NotesDocument
Set message = currentDb.createDocument()
Call message.replaceItemValue("Form", "memo")
Call message.replaceItemValue("From", "your@email.com")
Call message.replaceItemValue("Subject", _
"HTML email via MIME")
Call message.replaceItemValue("SendTo", "another@email.com")
Dim body As NotesMIMEEntity
Set body = message.CreateMIMEEntity
Dim mh As NotesMimeHeader
Set mh = body.CreateHeader({MIME-Version})
Call mh.SetHeaderVal("1.0")
Set mh = body.CreateHeader("Content-Type")
Call mh.SetHeaderValAndParams( _
{multipart/related;boundary="=NextPart_="})
Dim mc As NotesMIMEEntity
Set mc = body.createChildEntity()
Dim stream As NotesStream
Set stream = session.createStream()
If Not stream.open(path, "ISO-8859-1") Then
  Error 2000, "Could not open file"
End If
Call mc.setContentFromText(stream, _
{text/html;charset="iso-8859-1"}, ENC_NONE)
Call stream.close()
Call addImage(body, "C:\temp\image1.gif")
Call addImage(body, "C:\temp\image2.gif")
Call message.send(False)


The addImage method looks like this:

Public Sub addImage(body As NotesMimeEntity, _
imagePath As String)
  Dim id As String
  Dim stream As NotesStream
  Dim mh As NotesMimeHeader
  Dim mc As NotesMIMEEntity
  id = Strrightback(imagePath, "\")
  Set stream = session.createStream()
  Set mc = body.createChildEntity()
  Set mh = mc.createHeader({Content-ID})
  Call mh.setHeaderVal(id)
  Call stream.open(imagePath)
  Call mc.setContentFromBytes(stream, _
 "image/gif;name=""" + id + """", ENC_IDENTITY_BINARY)
  Call stream.close
End Sub

The HTML code must refer to the images via URL:s containing cid and the “path” to the image, like this:


<img src="cid:imagename.gif" />

Found this great tip via LDD, posted by Raymond Neeves.

(15) Comments    Read More   
Dec
12
Posted on 12-12-2005
Filed Under (Fun) by Johan Känngård

Fick denna av Fredrik, tackar!!! :-D

På ett företag hade fem kannibaler anställts.
Första arbetsdagen säger chefen:
- Ni har nu fast arbete, ni tjänar bra och ni kan äta i vår matsal, så låt nu de andra vara ifred, OK??? Kannibalerna lovar att inte röra kollegorna.

Efter fyra veckor kommer chefen igen och säger:
- Det saknas en städerska. Är det någon av er som vet var det har blivit av henne? Alla kannibalerna skakar på huvudena och svär på att de inte har med saken att göra.

När chefen gått vänder sig en av kannibalerna till de andra:
- Okej, vem av er miffon har käkat upp städtanten??????
Kannibalen längst bak svarar med låg röst och skuld i blicken:
- Det var jag…
- IDIOT!! säger den förste. De sista fyra veckorna har vi ätit avdelningschefer, sektionschefer, gruppledare, projektledare och konsulter utan att någon har märkt det, och så skulle du prompt sätta i dig städkärringen!!!!!!

(0) Comments    Read More   
Dec
09
Posted on 09-12-2005
Filed Under (Tools) by Johan Känngård

So I don’t forget what extensions I am using in Firefox 1.5, here is the list:

(1) Comment    Read More   
Dec
09
Posted on 09-12-2005
Filed Under (Photographing) by Johan Känngård

The mushroom

This construction can be found at the heart of Stockholm at Stureplan, and is often used as a meeting place, since it is hard to miss.

(0) Comments    Read More