25 feb 2009

De Prooi

Binnen de ABNAMRO is het haast verplichte kost: “de Prooi” van Jeroen Smit. Ook ik heb me laten verleiden.

Jeroen Smit is een onderzoeks journalist die aan de hand van verschillende gesprekken de teneergang van de ABNAMRO recontrueert. Hij doet dit op dusdanige wijze dat de lezer meegezogen word in de chain of events die geleid hebben tot het uiteindelijke resultaat: de nationalisering van de ABNAMRO. Een prachtig boek dat het zeker waard is om te gaan lezen.

19 feb 2009

Voeg “Quote” toe aan Outlook 2007

Noem me een sukkel, maar ik vind het leuk om “Quotes” van bekende mensen onderaan mijn mail te tonen. Om dit te bewerkstelligen zijn er verschillende addons te downloaden. Deze kosten echter allemaal geld en maken gebruik van een vast aantal quotes. Ik wilde echter een onberkt aantal verschillende quotes en ik wilde er niet voor betalen.

Op het internet zijn er verschillende sites waar je een Quote van de dag kunt downloaden. Ook zij er sites waar je deze Quote van de dag als RSS kunt downloaden.

Het idee nu is om bij het oepnen van een nieuwe mail deze RSS uit te lezen, en dat onderaan je mail te plaatsen.

Hiervoor heb ik binnen Outlook 2007 een signature ( handtekening ) gedefinieerd. In deze handtekening heb ik een keyword “<<Quote>>” opgenomen. Deze handtekening word als html bestand opgeslagen op de harde schijf van de computer. Bij het openen van een nieuw mailitem word dit bestand uitgelezen, en het keyword “<<Quote>>” word vervangen door een willekeurige Quote uit de RSS download.

Alles wat hiervoor nodig is is een stukje VBA, en het werkt als een trein.

Hieronder is de module code te zien en om deze te laten werken is er nog hetvolgende nodig:

  • Installeer ChilKat ActiveX component voor het uitlezen van de RSS ( download
  • Zorg ervoor dat het event Application_ItemLoad de volgende code bevat:

Private Sub Application_ItemLoad(ByVal Item As Object)
    editSignature "Quotes", ""
    editSignature "Quotes", getQuote()
End Sub

Module code:

Const CONST_RSS_URL = "http://feeds.feedburner.com/brainyquote/QUOTEBR" '"http://www.quotationspage.com/data/mqotd.rss"
Public Function getQuote() As String
Dim rss As New ChilkatRss
Dim arrOut() As String
Dim tmp As String
Dim success As Long
getQuote = ""
'  Download from the feed URL:
success = rss.DownloadRss(CONST_RSS_URL)
If (success <> 1) Then
    Exit Function
End If
'  Get the 1st channel.
Dim rssChannel As ChilkatRss
Set rssChannel = rss.GetChannel(0)
If (rssChannel Is Nothing) Then
    Exit Function
End If
'  For each item in the channel, display the title, link,
'  publish date, and categories assigned to the post.
Dim numItems As Long
numItems = rssChannel.numItems
Dim i As Long
ReDim arrOut(numItems - 1)
For i = 0 To numItems - 1
    Dim rssItem As ChilkatRss
    Set rssItem = rssChannel.GetItem(i)
    tmp = rssItem.GetString("title") & " :" & "<br>"
    tmp = tmp & rssItem.GetString("description")
    arrOut(i) = tmp
Next
getQuote = arrOut(Rand(0, UBound(arrOut)))
End Function
Public Function Rand(ByVal Low As Long, _
                     ByVal High As Long) As Long
  Rand = Int((High - Low + 1) * Rnd) + Low
End Function
Public Sub editSignature(sigName As String, signatureText As String)
Dim sigPath As String
Dim fso As Object
Dim ts As Object
Dim oldSig As String
Dim newSig As String
Dim newQuote As String
Dim CONST_EMPTY_QUOTE As String
Dim intStars As Integer
CONST_EMPTY_QUOTE = "&lt;&lt;Quote&gt;&gt;"
intStars = 100
On Error GoTo errh
sigPath = "C:\Documents and Settings\" & Environ("username") & _
                "\Application Data\Microsoft\Handtekeningen\" & sigName & ".htm"
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sigPath).OpenAsTextStream(1, -2)
oldSig = ts.readall
ts.Close
If signatureText = "" Then
    newQuote = Mid(oldSig, InStr(oldSig, String(intStars, "*")))
    newQuote = Left(newQuote, InStr(intStars + 4, newQuote, String(intStars, "*")) + (intStars - 1))
    'MsgBox (newQuote)
    signatureText = CONST_EMPTY_QUOTE
    CONST_EMPTY_QUOTE = newQuote
  Else
    signatureText = String(intStars, "*") & "<br>" & signatureText & "<br>" & String(intStars, "*")
End If
Set ts = Nothing
Set ts = fso.OpenTextFile(sigPath, 2)
newSig = Replace(oldSig, CONST_EMPTY_QUOTE, signatureText)
'MsgBox newSig
ts.Write (newSig)
ts.Close
errh:
Set ts = Nothing
Set fso = Nothing
End Sub

14 feb 2009

Times, they are changing

Deze week ging onze wasmachine vreemd doen. Tijdens het centrifugeren maakt hij een zwaar geluid. Mijn, niet al te technische, inzicht, denkt dat het de lagers van de trommel zijn.

Misschien dat ik vreemd ben, dat zou heel goed kunnen, maar ik ga dan gelijk denken aan een nieuw apparaat. Dus alle bankrekeningen nageplozen om het budget te regelen voor een dergelijk apparaat en online gezocht naar een mooi vervangend modelletje. Uiteindelijk bij de wehkamp uitgekomen omdat dat zo lekker makkelijk is: online bestellen, laten afleveren, oude mee laten nemen en klaar.

Vanochtend wilde ik het allemaal gaan regelen tot ik bedacht dat het wellicht ook handig zou zijn eerst eens een monteur te laten kijken. Deze zou vast een beter beeld kunnen krijgen of het nodig is een nieuwe te kopen. De oude is immers nog maar 5 jaar oud.

Maar hoe kom je tegenwoordig aan een wasmachine monteur? Van vroeger weet ik nog dat mijn ouders dan de plaatselijke witgoed handelaar belde en het een en ander werd geregeld. Tegenwoordig kan dat echter niet meer. Ik geloof niet dat de wehkamp, BCC of andere grote ketens monteurs hebben. De hele bedrijfsfilosofie van die bedrijven is gebaseerd op het aanschaffen van nieuwe apparaten, de wegwerp maatschappij.

Tegenwoordig ben je afhankelijk van kleine eenmansbedrijfjes die bij je langskomen om het apparaat te repareren. Gelukkig hebben we tegenwoordig ook internet, dus een bedrijfje in de buurt was snel gevonden.

Ik heb online een info formulier ingevuld, en nu is het afwachten wanneer hij contact op neemt.

Intussen speelt er een liedje in mijn hoofd "And the times they are changing...."

8 feb 2009

Pluis

Vannacht is onze kat doodgegaan. Ze was al sinds 1992 bij ons en de kinderen waren helemaal met haar vergroeid.

Een maand geleden bleek ze blaaskanker te hebben sinds die tijd ging het snel bergafwaarts met haar. Ze vermagerde, had steeds minder energie en gisterenavond was het duidelijk dat ze gauw dood zou gaan.

Ze zocht stille plekjes op en braakte bloed. Gerdien is vannacht uit bed gegaan en heeft bij haar gezeten. Tegen 6 uur is ze toen doodgegeaan.

Jeroen merkte vanochtend gelijk dat ze er niet was. Het verdriet is groot bij de jongens maar gelukkig zijn het kinderen. Een halfuur na het slechte nieuws keken ze alweer tv alsof er niets gebeurt was.

7 feb 2009

Uitstel van executie

De brug bij Muiden, op de A1, word aangepakt.

Eigenlijk zou ik er al last van moeten hebben maar de onderhoudswerkzaamheden zijn uitgesteld. Nog een relatief rustig weekje en dan....

Werkzaamheden Muiderbrug uitgesteld

Uitgegeven:
7 februari 2009 00:12

Laatst gewijzigd:
7 februari 2009 06:56

RIJSWIJK - De werkzaamheden aan de Muiderbrug bij de snelweg A1 die vrijdag 6 februari zouden beginnen, zijn een week uitgesteld. Rijkswaterstaat en het Ministerie van Verkeer en Waterstaat hebben dat vrijdag bekendgemaakt.

Rijkswaterstaat en het Ministerie van Verkeer en Waterstaat hebben dat vrijdag bekendgemaakt. Er worden ongunstige weersomstandigheden verwacht.

De werkzaamheden zullen tot de zomer duren. De verwachting is dat er meer files zullen zijn op het traject.

De brug wordt verbreed, verhoogd en sterker gemaakt. Daarbij krijgt de brug een ander uiterlijk.

Vloot

We rijden nu dus in short lease/huur auto's.

Da's best een dure oplossing en daar hebben we deze week een eind aan gemaakt. We zijn als bedrijf bezig om een heuse auto vloot te kopen en we zijn er best trots op:

Antoine:

Arjen:

Martijn:

Bertil:

3 feb 2009

Worldwide jamsession

Prince2

Ik ga weer leren!

Aangezien mijn werk steeds meer projectmanagement gerelateerde activiteiten bevat, ga ik in maart mijzelf certificeren voor Prince2 Foundation en Prince2 Practitioner.

Natuurlijk wil ik het wel allemaal snel, dus ik ga de fasttrack doen bij het Ruysdael college.

Dat gaat een leuke maand worden :-) Hopen dat het allemaal vlot verloopt!