Opening outlook tasks in Access 1

[gbaughma]

I'd like to be able to dynamically update the Tasks on Exchange/Outlook by creating tasks in Access.

Well, I can open the linked Tasks table, but unfortunately I'm not getting all of the fields.

For example, when I double-click on a task, I have a large memo field that I can type notes into, but that is not opening in the tasks table.

Any clues on how to read/write these other fields? And where the heck is the key field?

Thanks in advance!


Just my 2¢

"What the captain doesn't realize is that we've secretly replaced his Dilithium Crystals with new Folger's Crystals."

--Greg

http://parallel.tzo.com

 

[Remou]

Would you be happy with VBA?

http://lessthandot.com

 

[gbaughma]

Well, we're writing VBA in Access. We want to be able to edit/read tasks in Outlook/Exchange from Access.

I can load the table as linked, but not all of the fields are there....



Just my 2¢

"What the captain doesn't realize is that we've secretly replaced his Dilithium Crystals with new Folger's Crystals."

--Greg

http://parallel.tzo.com

 

[Remou]

(Apparently you can get more control with RDO:

http://www.dimastr.com/redemption/rdo/introduction.htm

also CDO

http://www.cdolive.com/cdo10.htm)

I have not found linked Outlook tables to be quite satisfactory for managing tasks and prefer to use an Access form and some code, for example,

http://msdn.microsoft.com/en-us/library/aa220073(office.11).aspx.

I think the ID you want is itm.EntryID, for example 00000000181C74A235F20144848742C9CD279E47A4142000

Here are some notes, not all properties are available in the version of Outlook on this PC (OL 2000)

'Needs a reference to the Outlook library
Dim olAp As Outlook.Application
Dim ns As Outlook.NameSpace
Dim fldrparent As MAPIFolder
Dim fldrs As Folders
Dim fldr As MAPIFolder
Dim itm As Outlook.TaskItem

Set olAp = CreateObject("Outlook.Application")
Set ns = olAp.GetNamespace("MAPI")

Set fldr = ns.GetDefaultFolder(olFolderTasks)

For Each itm In fldr.Items


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

Set olAp = Nothing

http://lessthandot.com

 

[gbaughma]

So, that would allow you to read/set information with the properties... is there an easy way to either link the table with all that information, or bounce a SQL statement against it to read/set those properties?



Just my 2¢

"What the captain doesn't realize is that we've secretly replaced his Dilithium Crystals with new Folger's Crystals."

--Greg

http://parallel.tzo.com