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

Modified on 13/02/2008 11:33 by manuel Categorized as Nicht kategorisiert
((([image| |http://www.cp-austria.at/website/DesktopModules/Wiki/images/Home.gif|MainPage] » [MainPage|Startseite] » [netFramePlattform|netFrame als Plattform Menü] » [GlobaleMethoden|Globale Methoden] | {searchbox} [Search.aspx?FullText=1|Erweiterte Suche])))

'''netFrame-Syntax:{BR}
procedure''' sendmail2(aReceiver, aSubject, aCopyTo, aBlindCopyTo, aBody: string){BR}
{BR}
'''Beschreibung:'''{BR}
Die Prozedur sendmail öffnet den Standard E-Mail Client.{BR}
aReceiver ist der Empfänger der vorbelegt wird.{BR}
aSubject ist der Betreff der vorbelegt wird.{BR}
aCopyTo an wen sollten Kopien geschickt werden (mit Strickpunkte trennen).{BR}
aBlindCopyTo an wen sollten Kopien geschickt werden ohne das es die anderen sehen (mit Strickpunkte trennen).{BR}
aBody ist der E-Mail Innhalt der vorbelegt wird.{BR}
{BR}
'''Beispiel:'''{BR}
{BR}
{{{{//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;}}}}
CP Wiki

Navigation¶

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