I have several public task folders from which I would like to import the
task information into Access including some form data. I've tried the
table linking deal but it doesn't include the start date and other form
data. I know the EntryIDs and StoreIDs but can't figure out how to make
it import. Any ideas? Here's my current code:


' Set up DAO objects (uses existing "tblTasks" table)
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("tblTasks")


' Set up Outlook objects.
Dim ol As New Outlook.Application
Dim olns As Outlook.NameSpace
Dim cf As Outlook.MAPIFolder
Dim c As Outlook.TaskItem
Dim objItems As Outlook.Items
Dim Prop As Outlook.UserProperty
Dim txtEntryID, txtStoreID

txtEntryID = Screen.ActiveForm.ENTRYID
txtStoreID = Screen.ActiveForm.STOREID

Set olns = ol.GetNamespace("MAPI")
Set cf = olns.GetFolderFromID(txtEntryID, txtStoreID)
Set objItems = cf.Items
iNumTasks = objItems.Count
If iNumTasks 0 Then
For i = 1 To iNumTasks
If TypeName(objItems(i)) = "TaskItem" Then
Set c = objItems(i)
rst.AddNew
rst!TASK = c.Subject
rst!DueDate = c.DueDate
rst!STARTDATE = c.STARTDATE
rst!Status = c.Status
rst!Rec = c.IsRecurring
rst!SECTION = Screen.ActiveForm.DutySection
rst!Remarks = c.Body
rst.Update
End If
Next i
rst.Close
End If

After the last rst! I would like to add a reference to a field on a
custom tab: (There's the 'TASK' tab and 'MY TAB')

rst!EQUIPID = c.MyCustomTab.EQUIPID (or whatever will work)

Any ideas?

If you want access to any custom fields you've created, you can get at them
via the TaskItem.UserProperties collection. To get a UserProperty object:

Dim objUP As UserProperty

Set objUP = myTaskItem.UserProperties("MyCustomFieldName")
Debug.Print objUP.Value

Does that answer your question?

--
Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"Donald Fisher" wrote:

I have several public task folders from which I would like to import the
task information into Access including some form data. I've tried the
table linking deal but it doesn't include the start date and other form
data. I know the EntryIDs and StoreIDs but can't figure out how to make
it import. Any ideas? Here's my current code:


' Set up DAO objects (uses existing "tblTasks" table)
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("tblTasks")


' Set up Outlook objects.
Dim ol As New Outlook.Application
Dim olns As Outlook.NameSpace
Dim cf As Outlook.MAPIFolder
Dim c As Outlook.TaskItem
Dim objItems As Outlook.Items
Dim Prop As Outlook.UserProperty
Dim txtEntryID, txtStoreID

txtEntryID = Screen.ActiveForm.ENTRYID
txtStoreID = Screen.ActiveForm.STOREID

Set olns = ol.GetNamespace("MAPI")
Set cf = olns.GetFolderFromID(txtEntryID, txtStoreID)
Set objItems = cf.Items
iNumTasks = objItems.Count
If iNumTasks 0 Then
For i = 1 To iNumTasks
If TypeName(objItems(i)) = "TaskItem" Then
Set c = objItems(i)
rst.AddNew
rst!TASK = c.Subject
rst!DueDate = c.DueDate
rst!STARTDATE = c.STARTDATE
rst!Status = c.Status
rst!Rec = c.IsRecurring
rst!SECTION = Screen.ActiveForm.DutySection
rst!Remarks = c.Body
rst.Update
End If
Next i
rst.Close
End If

After the last rst! I would like to add a reference to a field on a
custom tab: (There's the 'TASK' tab and 'MY TAB')

rst!EQUIPID = c.MyCustomTab.EQUIPID (or whatever will work)

Any ideas?

And how would I list everything in the userproperties collection? I
don't know what some of the custom field names are and design view of
the form has been password protected.

Eric Legault [MVP - Outlook] wrote:
If you want access to any custom fields you've created, you can get at them
via the TaskItem.UserProperties collection. To get a UserProperty object:

Dim objUP As UserProperty

Set objUP = myTaskItem.UserProperties("MyCustomFieldName")
Debug.Print objUP.Value

Does that answer your question?

You can loop through all custom fields programmatically by iterating through
the UserProperties collection:

For intX = 1 To MyTaskItem.UserProperties.Count
Set objUP = MyTaskItem.UserProperties.Item(intX)
Debug.Print "Field Name: " & objUP.Name & "; Value: " & objUP.Value
Next

You can also see these in the folder where the form is published. Bring up
the Field Chooser dialog and see if the form name is listed in the dropdown.
If not, browse the list and select Forms... and add your form to the folder.
You can then select the form name and see the list of fields.

--
Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"Donald Fisher" wrote:

And how would I list everything in the userproperties collection? I
don't know what some of the custom field names are and design view of
the form has been password protected.

Eric Legault [MVP - Outlook] wrote:
If you want access to any custom fields you've created, you can get at them
via the TaskItem.UserProperties collection. To get a UserProperty object:

Dim objUP As UserProperty

Set objUP = myTaskItem.UserProperties("MyCustomFieldName")
Debug.Print objUP.Value

Does that answer your question?

Great! Didn't realize the Field Chooser could do that. Thanks!

Eric Legault [MVP - Outlook] wrote:
You can loop through all custom fields programmatically by iterating through
the UserProperties collection:

For intX = 1 To MyTaskItem.UserProperties.Count
Set objUP = MyTaskItem.UserProperties.Item(intX)
Debug.Print "Field Name: " & objUP.Name & "; Value: " & objUP.Value
Next

You can also see these in the folder where the form is published. Bring up
the Field Chooser dialog and see if the form name is listed in the dropdown.
If not, browse the list and select Forms... and add your form to the folder.
You can then select the form name and see the list of fields.