Hi,
I've created this Access DB that retrieves all data from Outlook Tasks. I created a custom task form in Outlook 2000 which works great. I made it the default form for my tasks and changed the message class to that of my form.(IPM.Task.Revised). The problem is that Access doesn't recognize these custom fields on the form and reverts to the standard task form fields. I've copied the Access module that actually creates the table.
Option Compare Database
Option Explicit
Function AttachMail()
Dim db As DAO.Database
Dim td As DAO.TableDef
Set db = CurrentDb()
Set td = db.CreateTableDef("Revised"
td.Connect = "Exchange 4.0;MAPILEVEL=Mailbox - Quinn,Jeffrey\ td.Connect = td.Connect & "DATABASE= C:\Documents and Settings\jquinn\Desktop;"
td.Connect = td.Connect & "PROFILE= Quinn, Jeffrey"
td.SourceTableName = "Tasks"
db.TableDefs.Append td
Application.RefreshDatabaseWindow
MsgBox "Table Appended!"
Errorhandler:
MsgBox "Error " & Err & " " & Error
'MsgBox "Table Appended"
Exit Function
End Function
Thanks for any help you can give
Jeff
I've created this Access DB that retrieves all data from Outlook Tasks. I created a custom task form in Outlook 2000 which works great. I made it the default form for my tasks and changed the message class to that of my form.(IPM.Task.Revised). The problem is that Access doesn't recognize these custom fields on the form and reverts to the standard task form fields. I've copied the Access module that actually creates the table.
Option Compare Database
Option Explicit
Function AttachMail()
Dim db As DAO.Database
Dim td As DAO.TableDef
Set db = CurrentDb()
Set td = db.CreateTableDef("Revised"
td.Connect = "Exchange 4.0;MAPILEVEL=Mailbox - Quinn,Jeffrey\ td.Connect = td.Connect & "DATABASE= C:\Documents and Settings\jquinn\Desktop;"
td.Connect = td.Connect & "PROFILE= Quinn, Jeffrey"
td.SourceTableName = "Tasks"
db.TableDefs.Append td
Application.RefreshDatabaseWindow
MsgBox "Table Appended!"
Errorhandler:
MsgBox "Error " & Err & " " & Error
'MsgBox "Table Appended"
Exit Function
End Function
Thanks for any help you can give
Jeff