VBA: Hvad gør jeg forkert?

Hej
Jeg sidder med bogen, Pamela Palmer - Word 2000 Programmering med VBA og er ved at lave eksempel 21.1, HentOpgaver på side 339. VBA'en henter opgaver fra Outlook.

Jeg har selv Office 2003. Når jeg kører VBA'en viser debug'en, at der er fejl i "objOutlook As Outlook.Application". Hvordan får jeg det til at køre? Hvad skal jeg rette?


Sub HentOpgaver()
' Hente dato til behandlingen
    Dim IMåned As Variant, IÅr As Variant, strDato As String
    Dim dtFørste As Date, dtSidste As Date
    IMåned = Month(Now())
    IÅr = Year(Now())
    strDato = "01-" & IMåned & "-" & IÅr
    dtFørste = CDate(strDato)
    dtSidste = DateAdd("m", 1, dtFørste) - 1
' Hent Outlook-opgaver og opbyg liste
    Dim objOutlook As Outlook.Application, objNameSpace As NameSpace
    Dim objOpgaveMapper As MAPIFolder, objOpgave As TaskItem
    Set objOutlook = CreateObject("Outlook.Application")
    Set objNameSpace = objOutlook.GetNamespace("MAPI")
    Set objOpgaveMapper = objNameSpace.GetDefaultFolder(olFolderTasks)
    For Each objOpgave In objOpgaveMapper.Items
      If objOpgave.DueDate >= dtFørste And _
        objOpgave.DueDate <= dtSidste Then
        Selection.TypeText "Opgave: " & vbTab
        Selection.TypeText objOpgave.Subject
        Selection.TypeParagraph
        Selection.TypeText "Forfaldsdato: " & vbTab
        Selection.TypeText objOpgave.DueDate
        Selection.TypeParagraph
        Selection.TypeText "Status: " & vbTab
        Select Case objOpgave.Status
            Case olTaskComplete
                Selection.TypeText "Fuldført"
            Case olTaskDeferred
                Selection.TypeText "Udskudt"
            Case olTaskInProgres
                Selection.TypeText "I gang"
            Case olTaskNotStarted
                Selection.TypeText "Ikke startet"
            Case olTaskWaiting
                Selection.TypeText "Venter"
        End Select
        Selection.TypeParagraph
        Selection.TypeText "Kommentar: " & vbTab
        Selection.TypeText objOpgave.Body
        Selection.TypeParagraph
        Selection.TypeParagraph
    End If
  Next
     
End Sub