if(FileExists(dateiname_laden))
then begin
// Datei wird gespeichert, das immer die aktuellsten Eingaben gespeichert sind
datei_speichern('
Mail');
// Anlegen eines Objektes zum Auslesen
XML_File := newXMLDocument;
// Datei laden
XML_File.LoadFromFile(dateiname_laden);
montag := XML_File.ChildNodes['
WOCHENBERICHT'].ChildNodes['
EINTRAEGE'].ChildNodes['
MONTAG'].ChildNodes['
TEXT'].text;
dienstag := XML_File.ChildNodes['
WOCHENBERICHT'].ChildNodes['
EINTRAEGE'].ChildNodes['
DIENSTAG'].ChildNodes['
TEXT'].Text;
mittwoch := XML_File.ChildNodes['
WOCHENBERICHT'].ChildNodes['
EINTRAEGE'].ChildNodes['
MITTWOCH'].ChildNodes['
TEXT'].Text;
donnerstag := XML_File.ChildNodes['
WOCHENBERICHT'].ChildNodes['
EINTRAEGE'].ChildNodes['
DONNERSTAG'].ChildNodes['
TEXT'].Text;
freitag := XML_File.ChildNodes['
WOCHENBERICHT'].ChildNodes['
EINTRAEGE'].ChildNodes['
FREITAG'].ChildNodes['
TEXT'].Text;
// der Text der Email wird erzeugt und das Emailsendenfenster aufgerufen
ShellExecute(Application.Handle, '
open', PChar('
mailto:'+adressen_an+'
?cc='+adressen_cc+'
&subject=Wochenbericht ' +
Hauptmenu.kalender_woche.Text + '
/' + Hauptmenu.jahr_auswahl.Text + '
&body=' +
'
Montag: '+ Hauptmenu.montag_stunden.Text +'
Stunden'+'
%0D%0A' + StringReplace(montag, #10 , '
%0D%0A' ,[rfReplaceALL]) + '
%0D%0A' + '
%0D%0A' +
'
Dienstag: '+ Hauptmenu.dienstag_stunden.Text +'
Stunden'+ '
%0D%0A' + StringReplace(dienstag, #10 , '
%0D%0A' ,[rfReplaceALL]) + '
%0D%0A' + '
%0D%0A' +
'
Mittwoch: '+ Hauptmenu.mittwoch_stunden.Text +'
Stunden'+ '
%0D%0A' + StringReplace(mittwoch, #10 , '
%0D%0A' ,[rfReplaceALL]) + '
%0D%0A' + '
%0D%0A' +
'
Donnerstag: '+ Hauptmenu.donnerstag_stunden.Text +'
Stunden'+ '
%0D%0A' + StringReplace(donnerstag, #10 , '
%0D%0A' ,[rfReplaceALL]) + '
%0D%0A' + '
%0D%0A' +
'
Freitag: '+ Hauptmenu.freitag_stunden.Text +'
Stunden'+ '
%0D%0A' + StringReplace(freitag, #10 , '
%0D%0A' ,[rfReplaceALL]) + '
%0D%0A' ),
nil,
nil, sw_ShowNormal);
end;