Finde opgaver i Outlook

Det er vel kun Tasks der har en udløbs dato.

Et eksempel der henter åbne tasks.

Dim objOutlook As Outlook.Application
Dim objCalendar As Outlook.MAPIFolder
Dim objItem As Outlook.TaskItem
Dim objToDayItems As Outlook.Items

Set objOutlook = New Outlook.Application
objOutlook.Session.Logon
Set objCalendar = objOutlook.Session.GetDefaultFolder(olFolderTasks)
Text1.Text = "Opgaver:"
Set objToDayItems = objCalendar.Items.Restrict("[Complete]=False")
For Each objItem In objToDayItems
    Text1.Text = Text1.Text & vbCrLf & objItem.Subject & " - " & objItem.DueDate
Next objItem

hmm... jeg har sat det ind i en *.vbs-fil... og jeg får en fejl i linie 1-4 og jeg får en fejl hvis jeg sletter dem...

Hvad er der galt?

Nåh - vbs.
Så skal du oprette dem på en lidt anden måde.

Set objOutlook = New CreateObject("Outlook.Application")
objOutlook.Session.Logon
Set objCalendar = objOutlook.Session.GetDefaultFolder(olFolderTasks)
mText = "Opgaver:"
Set objToDayItems = objCalendar.Items.Restrict("[Complete]=False")
For Each objItem In objToDayItems
    mText = mText & vbCrLf & objItem.Subject & " - " & objItem.DueDate
Next objItem
msgbox(mText)

stadig fejl:
Linie: 1
Tegn: 35
Fejl: Slut på sætning var ventet
Kode: 800A0401
Kilde: Der opstod en Microsoft VBScript-kompliteringsfejl

Wops - det gik lidt for hurtigt
Set objOutlook = CreateObject("Outlook.Application")

hmm... stadig fejl... jeg fordobler lige til 60 points ;-)

Linie: 3
Tegn: 2
Fejl: Handlingen kunne fuldføres. En eller flere parameterværdier er ikke gyldige
Kode: 80070057
Kilde: Microsoft Outlook

Ja - OK. Den stakkels vbs kan jo ikke vide hvad olFolderTasks er.
Den er 13

Så alt i alt bliver det:

Set objOutlook = CreateObject("Outlook.Application")
objOutlook.Session.Logon
Set objCalendar = objOutlook.Session.GetDefaultFolder(13)
mText = "Opgaver:"
Set objToDayItems = objCalendar.Items.Restrict("[Complete]=False")
For Each objItem In objToDayItems
    mText = mText & vbCrLf & objItem.Subject & " - " & objItem.DueDate
Next
msgbox(mText)

Et sidste spørgsmål... er det muligt at sortere dem omvendt efter dato?

Jow da.

objToDayItems.Sort "[DueDate]", True


Du har da sikkert også selv en "manual" med referencen i.

Prøv at søge efter VBAOL10.CHM eller VBAOL9.CHM

C:\Program Files\Microsoft Office\Office10\1033\VBAOL10.CHM