procedure sendmail2(aReceiver, aSubject, aCopyTo, aBlindCopyTo, aBody: string)

» Startseite » netFrame als Plattform Menü » Globale Methoden | » Erweiterte Suche

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;