Outlook Appointment system

[T Patel via OfficeKB.com]

I am trying to create a appointment system using Outlook and a LCD that
will be mounted outside an office door.

I will be using a LCD with a RS232 connection which will communicate via
Hyperterminal.

I would like to know how i can update the LCD display and search Outlook
from the LCD and text input device (keyboard)

I have been informed that with the help of VBA i can arrange a user form
that would link the LCD and the PC into one integrated system.

 

[Sriram N A]

You would need to query the Appointments or Reminders collections in
Outlook. This would mean logging into the concerned Outlook profile. Once
logged in, you can retrieve the pending reminders, for example, and display
them as you see fit.

I have this example from somewhere; you could replace the MsgBox with
whatever mechanism you use:

Sub DisplayNextDateReport()
'Displays the next time all reminders will be displayed.

Dim olApp As Outlook.Application
Dim objRems As Outlook.Reminders
Dim objRem As Outlook.Reminder
Dim strTitle As String
Dim strReport As String

Set olApp = New Outlook.Application
Set objRems = olApp.Reminders

strTitle = "Current Reminder Schedule:"
strReport = ""
'Check if any reminders exist.
If objRems.Count > 0 Then
For Each objRem In objRems
'Add information to string.
strReport = strReport & objRem.Caption & vbTab & _
objRem.NextReminderDate & vbCr
Next objRem
'Display report in dialog box
MsgBox strTitle & vbCr & vbCr & strReport
End If
End Sub