VBA: Hvad gør jeg forkert?
HejJeg 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