Transfer info to Access

[teser3]

I would like to transfer an Outlook 2000 Event Calendar information
into an Access 2000 database. Please advise if and how I can do this
where after something is entered in the Event Calendar it will also
show up in an Access 2000 database. I was hoping this can be done
automatically. Or if that cant be done, then run something once every
10 mins to update the Access database with the any new Outlook
information?

I tried importing the Calendar table to an Access Database and it gives
me the Subject field, Created Date field but doesnt give me the actual
event date field.

Please advise.

[pietlinden]

Sorry, Outlook decided to be twitty, so I can't test it, but IIRC, you
should be able to link to your calendar and then query it like a normal
table.

[teser3]

I can query it but the linked Table doesnt show me all the Calendar
fields. The problem is not all the fields show up in the linked table.
I am missing the event date and other fields in the table.

Please advise

[pietlinden]

te****@hotmail.com wrote:

I can query it but the linked Table doesnt show me all the Calendar
fields. The problem is not all the fields show up in the linked table. I am missing the event date and other fields in the table.

Please advise

Well, then you HAVE to automate Outlook, so you can get at those things
and write them back to Access. Simple as that. You said yourself that
there was no other way. You might want to search around here for code
to do that kind of thing. Once you *get* the data, writing it into a
table is about as hard as falling down. If you need help, you can look
up .Update in the VB help. (It's DAO... I never use ADO, since DAO is
native anyway... and much easier (for me at least) to use.)

[pu]

Hi,

Maybe the following might help.

Dim o As New Outlook.Application
Dim n As NameSpace
Set n = o.GetNamespace("MAPI")
n.Logon
Dim m As MAPIFolder
Set m = n.Folders.Item("Folders")
Set m = m.Folders("Calendar")
Dim c As Outlook.AppointmentItem
For Each c In m.Items
If c.Start >= CDate("1/1/2005") And c.Start <= CDate("31/1/2005")
Then
Debug.Print c.Start; vbTab; c.End; vbTab; c.Subject
End If
Next c

<te****@hotmail.com> wrote in message
news:11**********************@o13g2000cwo.googlegr oups.com...

I would like to transfer an Outlook 2000 Event Calendar information
into an Access 2000 database. Please advise if and how I can do this
where after something is entered in the Event Calendar it will also
show up in an Access 2000 database. I was hoping this can be done
automatically. Or if that cant be done, then run something once every
10 mins to update the Access database with the any new Outlook
information?

I tried importing the Calendar table to an Access Database and it gives
me the Subject field, Created Date field but doesnt give me the actual
event date field.

Please advise.

[teser3]

Thanks,
Where would I put this code? Would I put it in an Access 2000 VBA area
in a module? Please advise how I would implement this?
pu wrote:

Hi,

Maybe the following might help.

Dim o As New Outlook.Application
Dim n As NameSpace
Set n = o.GetNamespace("MAPI")
n.Logon
Dim m As MAPIFolder
Set m = n.Folders.Item("Folders")
Set m = m.Folders("Calendar")
Dim c As Outlook.AppointmentItem
For Each c In m.Items
If c.Start >= CDate("1/1/2005") And c.Start <= CDate("31/1/2005") Then
Debug.Print c.Start; vbTab; c.End; vbTab; c.Subject
End If
Next c

<te****@hotmail.com> wrote in message
news:11**********************@o13g2000cwo.googlegr oups.com...

I would like to transfer an Outlook 2000 Event Calendar information
into an Access 2000 database. Please advise if and how I can do this where after something is entered in the Event Calendar it will also
show up in an Access 2000 database. I was hoping this can be done
automatically. Or if that cant be done, then run something once every 10 mins to update the Access database with the any new Outlook
information?

I tried importing the Calendar table to an Access Database and it gives me the Subject field, Created Date field but doesnt give me the actual event date field.

Please advise.