I
Ian Mackenzie
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;
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;