netFrame-Syntax:
procedure sendmail2(aReceiver, aSubject, aCopyTo, aBlindCopyTo, aBody: string)
Beschreibung:
Die Prozedur sendmail öffnet den Standard E-Mail Client.
aReceiver ist der Empfänger der vorbelegt wird.
aSubject ist der Betreff der vorbelegt wird.
aCopyTo an wen sollten Kopien geschickt werden (mit Strickpunkte trennen).
aBlindCopyTo an wen sollten Kopien geschickt werden ohne das es die anderen sehen (mit Strickpunkte trennen).
aBody ist der E-Mail Innhalt der vorbelegt wird.
Beispiel:
//Dieses Beispiel wird bei der Ölbestellung verwendet
procedure buttonAnfragesenden_OnClick(Sender: Integer);
var
aEmail, aEmailAll, aText: string;
begin;
aEmail := ;
aEmailAll := ;
//Die Visualisierung abschalten (bessere Performance)
TableOelDetail.disableControls;
if TableOelDetail.recordCount > 0 then //Sind überhaupt Daten vorhanden
begin
TableOelDetail.first;
while not TableOelDetail.eof do //Gehen wir die Daten durch
begin
aEmail := TableOelDetail.fieldByName('KR_EMAIL').asString; //addieren wir die Emails in die Variable aEmailAll
if trim(aEmail) <> then
begin
aEmailAll := aEmailAll + aEmail + ';';
end;
TableOelDetail.next;
end;
//Gibt es Empfänger, dann E-Mail Innhalt zusammenstellen
if trim(aEmailAll) <> then
begin
TableOel.edit;
TableOel.FieldByName('OL_STATUS').asString := 'Anfrage'; //Den Status auf Anfrage setzen
//%0A = Zeilenumbruch
aText := 'Sehr geehrte Damen und Herren! %0A %0A';
aText := aText+'Wir ersuchen um Anbotslegung bis spätestens ';
aText := aText+TableOel.FieldByName('OL_ANBOTFRIST_BIS').asString;
aText := aText+' für die Lieferung von %0A %0A';
aText := aText+' '+TableOel.FieldByName('OL_GEFORDERTE_BESTELLMENGE').asString;
aText := aText+' | ';
aText := aText+TableOel.FieldByName('INDIV_HEIZMEDIUM').asString;
aText := aText+'%0A %0A';
aText := aText+' für das Objekt ';
aText := aText+TableAusstattung.FieldByName('OBJEKT').asString;
aText := aText+'%0A %0A';
aText := aText+' Lieferung bis spätestens ';
aText := aText+TableOel.FieldByName('OL_GEFORDERTER_LIEFERTERMIN').asString;
aText := aText+'%0A %0A';
aText := aText+'Wir bedanken uns im Voraus für Ihr Angebot und verbleiben zwischenzeitlich';
aText := aText+'%0A %0A';
aText := aText+'mit freundlichen Grüßen';
aText := aText+'%0A %0A';
aText := aText+'%0A %0A';
aText := aText+'Ing.Mag. Edgar Gemeiner %0A';
aText := aText+'Abteilungsleiter';
//Den E-Mail Client öffnen und Daten übergeben
sendmail2(, 'Ölbestellung am '+formatdatetime('dd.mm.yyyy', date), , aEmailAll, aText);
end;
end;
//!!WICHTIG!! die Visualisierung wieder einschalten
TableOelDetail.EnableControls;
end;