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.
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!
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! ![]()
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
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.
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)
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.
Fick denna av Fredrik, tackar!!!
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!!!!!!
So I don’t forget what extensions I am using in Firefox 1.5, here is the list:
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.