; odeslání mailu
; verze z 15.4.2003
; Autor: WinDUO Team
Name('Odeslání mailu')
Designed('Adresar')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('odešle mail')

WNSType(-1);                      ; definuje že DDT nedefinuje žádný standartní výstup
Veta:LongInt
LocStrPl:String
MailKomu:String
BCCKomu:String=''
Predmet:String='Pozvánka na skolení k obsluze programu WinDUO'

Mail:EMLFile;
MailText:TextFile;
SetEMLItem(Mail,eml_From,'veni@winduo.cz');

SetEMLItem(Mail,eml_CC,'');
SetEMLItem(Mail,eml_BCC,'');
SetEMLItem(Mail,eml_Subject,Predmet);
;AttachFile(Mail,'y:\obrazky\im1.gif');
;AttachFile(Mail,'y:\obrazky\im3.gif');

DeclareRec('Adresar')             ; přiřadí a definuje větu z adresáře
;DeclareRec('KeyAdresar2')         ; přiřazení a definice třídícího klíče
;ClearKey(KeyAdresar2)             ; resetuje ukazatel aktuální věry v souboru


if(GetCountBindRec(Adresar)>0)   ;jsem-li v adresari, nacte ICO aktivni vety do SledIco
  begin
    GetBindRec('Adresar',Veta)
  end

;if(ExistFile(DataPath()+'TextMail.txt'))
;  begin
;    Open(MailText,DataPath()+'TextMail.txt')
;    While(not EOF(MailText))
;      begin
;        LocStrPL=ReadLn(MailText);
;        WriteLn(Mail,LocStrPL);
;      end;
;  end;

WriteLn(Mail,'Preji Vam prijemny den.');
WriteLn(Mail);
Writeln(Mail,'Ve spolupraci s nevydelecnou organizaci SPIN se nam podarilo dosti narychlo zorganizovat');
Writeln(Mail,'skoleni k obsluze programu WinDUO v Praze 4. Skoleni se kona dne 22.4.2003 od 9,00 do 15,00 hod.');
Writeln(Mail,'Cena skoleni je 1.000,- Kc. Kapacita ucebny je omezena. Mate-li zajem se zucastnit, prihlaste');
Writeln(Mail,'se co nejdrive telefonicky na cisle 596 248 585 nebo 596 248 545. Sdelime Vam blizsi podrobnosti,');
Writeln(Mail,'pripadne zasleme e-mailem mapku ');
Writeln(Mail);
Writeln(Mail,'Tesime se na setkani.');
Writeln(Mail);
Writeln(Mail,'S pozdravem');
Writeln(Mail,'Ing. Helena Capkova');


SetEMLItem(Mail,eml_To,Trim(Adresar.Email));
Create(Mail,'skoleni.EML',True);
Open(Mail);

END                               ; konec programu