Here's a VBA sample:
Dim oAppt As Outlook.AppointmentItem
Set oAppt = Application.CreateItem(olAppointmentItem)
oAppt.Body = "<file://d:/test.txt>"
oAppt.Display

Signature
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --
Am Sat, 11 Nov 2006 04:45:01 -0800 schrieb dch3:
> Is there an way to put a shortcut to a file into an AppointmentItem? I've
> played with dragging and dropping, but it doesn't actually save the shortcut.
> The bigger picture is that I want to have an AppointmentItem that has links
> to one or more files on a shared drive that related to the AI.