Outlook Serientermine

[Marco Sprenger]

Hallo,

ich möchte ein Programm schreiben, dass mir nach dem Start alle Termine,
aus Outlook, für den Heutigen Tag ausdruckt. Das mit dem Drucken und zugreifen
auf Outlook Termine geht schon recht gut. Nur werden keine Serientermine
gedruckt. Meine Frage:

Wie bekomme ich die Termine die als Serie gespeichert sind. Mit der
Eigenschaft .IsRecarring kann ich feststellen ob es ein Serientermin ist.
Aber ich bekomme nur das Datum des ersten Termins. Vieleicht kann mir
jemand einen Tip geben.

Vielen Dank im Voraus

Marco

PS: Es geht mir darum, das Programm ohne Bildschirm zu benutzen. Wenn
kein Termin vorliegt, bekomme ich ein akustisches Signal. Ansonsten
halt den Ausdruck(bis jetzt leider nur ohne Serientermine).

[Anfänger01]

Hallo Marco

dies sollte dein Problem lösen.

var
DefNamespace : NameSpace;
Journals : MAPIFolder;
ItemColl : Items;
aJournal : OleVariant;
iCnt : Integer;

begin

DefNameSpace := OutlookApplication1.GetNamespace('MAPI');
Journals := DefNameSpace.GetDefaultFolder(olFolderCalendar);
ItemColl := Journals.Items;
for iCnt := 1 to ItemColl.Count do
begin
aJournal := ItemColl.Item(iCnt);
if ((aJournal.GetRecurrencePattern.PatternEndDate) >= (DateTimePicker1.Date)) and
((aJournal.GetRecurrencePattern.PatternStartDate) <= (DateTimePicker1.Date)) and
(aJournal.IsRecurring = True)
then
begin
ListBox1.Items.Add(Format('* %s - %s ', [DateToStr(DateTimePicker1.Date) + ' ' +
TimeToStr(aJournal.Start) , aJournal.Subject ]));
end;

end;

MfG
Robert

[Christian Marquardt]

Wäre zu wünschen, dass er nach 7 Jahren schon zwischenzeitlich eine Lösung gefunden hat