Can I set an appointment in Outlook Through Access? 4

[Fubear]

I have just started on a new system for tracking and managing contacts within a databse.

I was wondering if it would be possible for someone to enter a time/date and then click a button to have an appointment scheduled in Outlook so that a message pops up at that time/date (its how everyone keeps track of their appointments in the office).

This would be a REALLY useful feature, but I am not going to code it into may database as that would require people changin how they go about their day to day work.

 

[mackers2]

1. Use the outlook programming interface to make a new appointment item.
or
2. could be much simpler, produce from access a vcs file - outlook should recognise this as an appointment, the format is like this:
BEGIN:VCALENDAR
VERSION:1.0
BEGIN: VEVENT
DTStart:20020822T130000Z
DTEnd:20020822T150000Z
Location;ENCODING=QUOTED-PRINTABLE:Seminar Room 1
SUMMARY;ENCODING=QUOTED-PRINTABLE:HR Skills - Respect at Work
DESCRIPTION;ENCODING=QUOTED-PRINTABLErop in to top up your skills and update your knowledge. Come along and gain some practical advice on dealing with issues of respect at work.
UID:2002082220020822HR Skills - Respect at Work
PRIORITY:3
End:VEVENT
End:VCALENDAR
(all this is plain text)
regards
Alasdair

 

[FancyPrairie]

Chapter 12 of "Access 2000 Developer's Handbook Volume1: DeskTop Edition" gives a good example of Outlook Time Reporting. Might want to check it out. It's a great reference book.

 

[Fubear]

Fantastic - Two very imformative answers.

Where can i find info on the Outlook Programming Interface?
Where would I have to put the file one its produced?

I will have a look at the Dev's Handbook, I bought a copy (vol 1&2)a few weeks ago, but i keep it in the office, so i cant read it here.

 

[WB786]

This is what I am using to have users set reminders to call back their clients. You will have to modify it for setting up appointments instead:


Private Sub Set_Reminder_Click()
If (MsgBox("Would you like to set a reminder?", vbYesNo + vbQuestion)) = vbYes Then
Dim olapp As New Outlook.Application
Dim olTask As Outlook.TaskItem

Set olTask = olapp.CreateItem(olTaskItem)

olTask.Subject = "Call Client" & " " & (Me![FirstName] & " " & Me![LastName]) & " @ " & Me![Phone1] & ""
olTask.DueDate = Me![YourDueDate]
olTask.ReminderTime = Me![YourTime] & " 9:00am"
olTask.ReminderSet = True
olTask.Display

End If
End Sub

Enjoy!! WB

 

[Fubear]

Thats great code wabeg - exactly what i was looking for.

I dont really use outlook, and sheduled tasks are more appropriate to my current situation.