13. Oktober 2008 16:28
13. Oktober 2008 18:09
IF ISCLEAR(olApplication) THEN
IF NOT CREATE(olApplication) THEN
ERROR('Outlook nicht gefunden');
olNamespace := olApplication.GetNamespace('MAPI');
olFolder := olNamespace.GetDefaultFolder(9);
olAppointmentItem := olFolder.Items.Add(1);
olAppointmentItem.Subject := 'Testkalendereintrag';
olAppointmentItem.Start := DATI2VARIANT(TODAY, 000000T);
olAppointmentItem."End" := DATI2VARIANT(TODAY, 000000T);
olAppointmentItem.AllDayEvent(TRUE); // Ganztägig
olAppointmentItem.Body('Test Test');
olAppointmentItem.BusyStatus(3); // 3 = Abwesend
olAppointmentItem.Save;
IF NOT ISCLEAR(olApplication) THEN
CLEAR(olApplication);
13. Oktober 2008 18:15
olAppointmentItem.Recipients
17. Oktober 2008 10:17
20. Oktober 2008 02:10
F11 hat geschrieben:Sehe ich richtig, dass für das Erzeugen von Kalendereinträgen auf die lokale Outlook Installation des Rechners zurückgegriffen wird, auf dem den Code ausführe?
F11 hat geschrieben:Beim verschicken über die CU 400 ist es gerade schön, dass die Mail direkt über einen SMTP Server geht und sich nicht über Outlook verschickt. Gibt es diese Möglichkeit auch fürs Verschicken von Kalendereinträgen?
21. Oktober 2008 08:42
BEGIN:VCALENDAR
PRODID:-//Mozilla.org/NONSGML Mozilla Calendar V1.1//EN
VERSION:2.0
METHOD:REQUEST
BEGIN:VTIMEZONE
TZID:Europe/Berlin
X-LIC-LOCATION:Europe/Berlin
BEGIN:DAYLIGHT
TZOFFSETFROM:+0100
TZOFFSETTO:+0200
TZNAME:CEST
DTSTART:19700329T020000
RRULE:FREQ=YEARLY;INTERVAL=1;BYDAY=-1SU;BYMONTH=3
END:DAYLIGHT
BEGIN:STANDARD
TZOFFSETFROM:+0200
TZOFFSETTO:+0100
TZNAME:CET
DTSTART:19701025T030000
RRULE:FREQ=YEARLY;INTERVAL=1;BYDAY=-1SU;BYMONTH=10
END:STANDARD
END:VTIMEZONE
BEGIN:VEVENT
CREATED:20081021T062943Z
LAST-MODIFIED:20081021T063009Z
DTSTAMP:20081021T063009Z
UID:a28a5af8-0fdb-4207-b825-d335607bbcf2
SUMMARY:TITEL
ORGANIZER;RSVP=TRUE;CN=SENDERNAME;PARTSTAT=ACCEPTED;ROLE=CHAIR:
mailto:test@test.de
ATTENDEE;RSVP=TRUE;CN=EMPFÄNGERNAME;PARTSTAT=NEEDS-ACTION;
ROLE=REQ-PARTICIPANT:mailto:EMPFÄNGEREMAIL
DTSTART;TZID=Europe/Berlin:20081021T090000
DTEND;TZID=Europe/Berlin:20081021T180000
DESCRIPTIONBESCHREIBUNG
SEQUENCE:0
END:VEVENT
END:VCALENDAR