View Single Post
  #1  
Old March 14th 06, 02:37 PM posted to microsoft.public.outlook.program_vba
Ian Mackenzie
external usenet poster
 
Posts: 10
Default Appointments and Fields

Hi guys

I am trying to create a new appointment, but it seems I am creatinh a new
mailitem each time because I can't assign things like location, startand end
to the appointment. My code is below. Does anyone have an idea about how to
go about it.

I have the same problem with the same fields when I try to fetch
appointments too...

const
olAppointmentItem = $00000001;
var
AppItem : OLEVariant;
begin

AppItem := CurrentFolder.Items.Add(olAppointmentItem);

---------------------------------------------------------
**CurrentFolder = NameSpace.GetDefaultFolder(9)
**Whats the difference between using NameSpace and RDOSession with
Redemption?
**Do you still get the same folder?
---------------------------------------------------------

AppItem .AllDayEvent := AllDayEvent; *ERROR*
AppItem .Body := Body;
AppItem .Categories := Categories;
AppItem .Duration := Duration; *ERROR*
AppItem .Start := Now() + 0.05; *ERROR*
AppItem .End := Now() + 10; *ERROR*
AppItem .Location := Location; *ERROR*
AppItem .ReminderTime := ReminderTime;
AppItem .ReminderSet := ReminderSet;
AppItem .Subject := Subject;

AppItem .Display;

AppItem := Unassigned;
end;


Ads