Fehlermeldung: Versand von Kurslisten usw. per EMail

[NielsWestphal]

Super, funktioniert wieder! Bitte tauschen Sie noch den im Update enthaltenen Kurslisten-Report aus. Dort sind noch unsere BCC Einträge drin...
Herzlichen Dank.

[wschrewe]

Bitte tauschen Sie noch den im Update enthaltenen Kurslisten-Report aus.

Habe ich gemacht.

[NielsWestphal]

Ein Hinweis noch verbunden mit einer Bitte:

Ein verwendeter Server von uns schafft es, alle Kurslisten oder Pläne oder Notendateien (evt. ja über 120 Pläne am Stück) über den Port 25 direkt zu verschicken. Ein anderer Server, wo ich SSL verwenden muss / will, benötigt bei jeder Anfrage aber einen kleinen Moment und hat dann Probleme, dass sozusagen der Puffer voll läuft. Zwischendurch werden dann einzelne Mails nicht verschickt.
Können Sie in den Einstellungen eine Möglichkeit einbauen, eine Verzögerung in Zehntel Sekunden vor jedem Versand hinzuzufügen, die ich selbst verändern kann, je nachdem, welchen Server ich verwende?

[wschrewe]

Können Sie in den Einstellungen eine Möglichkeit einbauen, eine Verzögerung in Zehntel Sekunden vor jedem Versand hinzuzufügen, die ich selbst verändern kann, je nachdem, welchen Server ich verwende?

Das geht nicht. Sie können aber versuchen, in GroupOnGetEmailSettings (das Sie ja benutzen, um die Mailadresse zu setzen) eine Verögerung einbauen:

Code: Alles auswählen

var
  Now : DateTime;
begin
  SuffixValue :=......
  Now:=CurrentTime;
  repeat
  until CurrentTime - Now > 0,000001; // den Wert müsen Sie ausprobieren
end;

Der Nachkommawert des Datumstyps repräsentiert den Bruchteil eines 24-Stunden-Tages.

[NielsWestphal]

Das reicht. Werde es testen...

Funktioniert so mit dem Code erst gar nicht...

procedure Group1OnGetEmailSettings(EmailSettings: TObject);
var
Now : DateTime;
begin
Report.EMailsettings.Recipients.Clear;
Report.EMailsettings.Recipients.Add(Kurse['LehrerEMail']);
Now:=CurrentTime;
repeat
until CurrentTime - Now > 0,00005;
end;

[wschrewe]

Funktioniert so mit dem Code erst gar nicht...

Können Sie das präzisieren?

[NielsWestphal]

Der von Ihnen gepostete Code wird nicht akzeptiert. Das "until" ist wohl falsch. Das Ereignis bleibt rot...

[wschrewe]

Ok, ich hatte das nicht in der Realität getestet. Der RAP-Compiler lässt offenbar keine leere Schleife zu. Der folgende Code wird aber ohne Fehler kompiliert:

Code: Alles auswählen

var
  Now : DateTime;
  x : integer;
begin
  Now:=CurrentTime;
  repeat
    x:=1;
  until CurrentTime - Now >= 0.0001;
end;

[wschrewe]

Eine kurze Rückmeldung, ob mit diesem Code Ihr Serverproblem behoben ist, wäre nett.

[NielsWestphal]

Hallo Herr Schrewe,

herzlichen Dank, der Code funktioniert! Ich stelle dann hier noch drei Reports zur Verfügung als Vorlage, die dann verwendet und verändert werden können. Gerne können Sie die Reports dann auch in die Installationsdateien einfügen.