1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

procedure TFMain.TerminOutlook;
const olAppointmentItem = 1;
var Outlook: OLEVariant;
    TaskItem: Variant;
    ZwischenString: String;
    X: Integer;
begin
     If UTermin.FTermin.ShowModal = mrOK then begin
        try Outlook := GetActiveOleObject('Outlook.Application');
        except Outlook := GetActiveOLEObject('Outlook.Application');
        end;

        TaskItem := Outlook.CreateItem(olAppointmentItem);
        TaskItem.Subject := UTermin.FTermin.E_Betreff.Text;
        TaskItem.Location := UTermin.FTermin.E_Ort.Text;
        TaskItem.Start := UTermin.FTermin.E_Start.Text;
        TaskItem.Duration := StrToInt(UTermin.FTermin.E_Dauer.Text);
        TaskItem.ReminderMinutesBeforeStart := StrToInt(UTermin.FTermin.E_VorStart.Text);
        TaskItem.ReminderSet := UTermin.FTermin.CB_Erinnerung.Checked;

        ZwischenString := '';

        For X := 0 to UTermin.FTermin.M_Text.Lines.Count - 1 do begin
            ZwischenString := ZwischenString + UTermin.FTermin.M_Text.Lines.Strings[X] + #13;
        end;

        TaskItem.Body := ZwischenString;
        TaskItem.Save;
        ShowMessage('Ihr Termin wurde gespeichert!');

        Outlook := Unassigned;
     end;
end;