Outlook Termin mit Progressbar sendet statt einen 3 Termine

[Helmi]

du könntest es auch so machen:

Delphi-Quellcode:

procedure TForm36.Button1Click(Sender: TObject);
var
  Ordner: String;
  Calendar: TCalendar;

begin
  //ProgressBar einstellen (oder im OI)
  ProgressBar1.Max := 100;
  ProgressBar1.Min := 0;
  ProgressBar1.Step := 25;

  //ProgressBar initialisieren
  ProgressBar1.Position := 0;

  //
  Ordner := 'Testordner';

  //Start
  Calendar.Start := DateToStr(Datum.DateTime) + ' ' + TimeToStr(Startzeit.DateTime);
  ProgressBar1.StepIt;

  //Ende
  Calendar.Ende := DateToStr(Datum.DateTime) + ' ' + TimeToStr(Endzeit.DateTime);
  ProgressBar1.StepIt;

  //Kategorie, Betreff, Text
  Calendar.Categories := Kategorie.Text;
  Calendar.Subject := Betreff.Text;
  Calendar.Body := Beschreibung.Text;
  ProgressBar1.StepIt;

  //Termin erstellen
  OutlookAddCalendar(Ordner,Calendar);
  ProgressBar1.StepIt;
end;

ProgressBar1.StepIt erhöht die ProgressBar um den Wert von ProgressBar1.Step