Flere Task/Opgave felter

Hermed en liste af standard egenskaber på en opgave i Outlook 2003 - der kan være enkelte der ikke findes i tidligere versioner.

Application
Class
Session
Parent
Actions
Attachments
BillingInformation
Body
Categories
Companies
ConversationIndex
ConversationTopic
CreationTime
EntryID
FormDescription
GetInspector
Importance
LastModificationTime
MessageClass
Mileage
NoAging
OutlookInternalVersion
OutlookVersion
Saved
Sensitivity
Size
Subject
UnRead
UserProperties
ActualWork
CardData
Complete
ContactNames
DateCompleted
DelegationState
Delegator
DueDate
IsRecurring
Ordinal
Owner
Ownership
PercentComplete
Recipients
ReminderTime
ReminderOverrideDefault
ReminderPlaySound
ReminderSet
ReminderSoundFile
ResponseState
Role
SchedulePlusPriority
StartDate
Status
StatusOnCompletionRecipients
StatusUpdateRecipients
TeamTask
TotalWork
Links
DownloadState
ItemProperties
InternetCodepage
MarkForDownload
IsConflict
AutoResolvedWinner
Conflicts

VH CK

OK, det ser jo lovende ud, men jeg mangler deres egenskaber og hvordan jeg skriver dem. Har du evt et link?

Egenskaberne kan du som regel læse udfra deres navne, hvordan du bruger dem er på samme måde som Subject og Body egenskaben.

Jeg har ikke et link, da disse egenskaber er autogenereret udfra Outlook selv.

VH CK

OK. Kan du så fortælle mig hvor i Outlook jeg finder dem?
Tak fo din hjælp.

VH Torsten Menzel

Jeg har ganske enkelt blot lavet en makro i Outlook der skriver dem i Immidiate vinduet.

Sub test()
    Dim oTask As TaskItem
   
    Set oTask = Application.CreateItem(olTaskItem)
    On Error Resume Next
    For Each Item In oTask.ItemProperties
        Debug.Print Item.Name
    Next
   
    Set oTask = Nothing
End Sub

VH CK

Nå, ok. Jeg kan bare ikke få sat flueben i feltet privat, tilføje en kategori til opgaven og sætte en ansvarlig. Hvis du ved noget om det så er jeg lutter øre :)

Beklager svartiden - men jeg har haft lidt travlt :-)

Sådan ville jeg gøre i Outlook.

Sub test()
    Dim oTask As TaskItem
    Set oTask = Application.CreateItem(olTaskItem)
    oTask.Subject = "Vigtig opgave"
    oTask.Categories = "Vigtig, kunde, venter, special"
    oTask.Sensitivity = olPrivate
    oTask.Save
    Set oTask = Nothing
End Sub

Hvor konstanterne er:

olPrivate = 2
olTaskItem = 3

Hvad angår Ansvarlig, så kan du ikke ændre på den ansvarlige med mindre du lægger din opgave i en offentlig mappe.

VH CK

OK, jeg siger mange tak for din hjælpsomhed.

VH
Torsten