home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / tema / SW602 / Winbase / EShop_demo / MAILOVANI.PGM < prev    next >
Text File  |  2000-03-16  |  4KB  |  112 lines
  1. {$$3220792583 .                              }Table  sys_par;
  2.  
  3. PROCEDURE `MAILERR` (num: integer);
  4. BEGIN
  5.   case num  of 
  6.          0 : log_write("OK");
  7.        500 : log_write("PoÜta nenφ inicializovßna");
  8.        501 : log_write("Neznßmß chyba poÜty");
  9.        502 : log_write("PoÜtovnφ klient nenφ vzdßlen²");
  10.        503 : log_write( "Chybn² typ adresy");
  11.        504 : log_write( "Chyba p°i pokusu o p°ihlßÜenφ");
  12.        505 : log_write( "Chybn² profil poÜty");
  13.        506 : log_write( "ChybnΘ ID u₧ivatele");
  14.        507 : log_write( "Zßsilka nemß ₧ßdnΘho adresßta");
  15.        508 : log_write( "Soubor nenalezen");
  16.        509 : log_write( "Server se nem∙₧e p°ihlßsit do poÜty, proto₧e b∞₧φ na systΘmov² ·Φet");
  17.        510 : log_write( "Nepoda°ilo se navßzat telefonickΘ spojenφ s poÜtovnφm serverem");
  18.        511 : log_write( "PoÜta u₧ je inicializovßna s jin²mi parametry");
  19.        512 : log_write( "Profil poÜty nenalezen");
  20.        513 : log_write( "V profilu chybφ parametr");
  21.        514 : log_write( "Odeslßnφ zadanΘho souboru nenφ povoleno");
  22.        515 : log_write( "I/O chyba p°i sφ¥ovΘ komunikaci");
  23.        516 : log_write( "SMTP/POP3 server nenalezen");
  24.        517 : log_write( "Nepoda°ilo se navßzat spojenφ s poÜtovnφm serverem");
  25.  
  26.        129 : log_write( "nedostateΦnß prßva pro p°φstup k poÜt∞");
  27.        142 : log_write( "chybnΘ heslo");
  28.        150 : log_write( "nedostatek pam∞ti");
  29.        154 : log_write( "nedostatek mφsta na disku");
  30.        157 : log_write( "chyba p°i otevφrßnφ, Φtenφ, nebo zßpisu do souboru");
  31.        158 : log_write( "nekompatibilnφ verze MAPI");
  32.        192 : log_write( "vyprÜela platnost hesla");
  33.  
  34.  
  35.      else  : log_write("Neznßmß chyba");
  36.   END;      
  37. END;
  38.  
  39.  
  40. PROCEDURE OdesliInfoMail( komu :string[50]);
  41. var 
  42.    pocet,i, delka,Letter,res: Integer;
  43.    Profile :string[100];
  44.    typ, heslo: string[10];
  45.    subj,  zheslo, zjmeno: string[50];
  46.    query,dopis:  string[2000];
  47.    chyba:string[255];
  48.    curs: cursor;
  49.  
  50.  
  51. BEGIN   //0
  52.   profile:=sys_par[0].profil;
  53.   typ:="Internet";
  54.   heslo:="";
  55.  
  56.   if (komu<>"") then
  57.     begin  //2
  58.       query:= "SELECT Obchodni_partneri.intr_user,Obchodni_partneri.intr_pswd FROM Obchodni_partneri WHERE (Obchodni_partneri.mail_adres="+""""+komu+""""+")";
  59.       if Open_SQL_cursor(curs, query) then Signalize
  60.        else
  61.          Begin    //3
  62.            Rec_cnt(curs, pocet);
  63.            if pocet >0 then 
  64.              begin  //4
  65.                zjmeno:=curs[0].intr_user;
  66.                zheslo:=curs[0].intr_pswd;
  67.              end;    //4
  68.            close_cursor(curs);
  69.            subj:="ESHOP - informace";
  70.            dopis:=" VaÜe p°ihlaÜovacφ jmΘno do naÜeho elektronickΘho obchodu je: "+zjmeno+"; "#13#10" "+"heslo:"+zheslo;  
  71.          end;    //3
  72.     end;   //2
  73.  log_write(komu);
  74.  
  75.   IF  ((komu<>"") AND (pocet>0))
  76.    THEN  BEGIN //1
  77.      res:= InitWBmail(Profile,heslo);
  78.      IF res<>0 THEN  BEGIN  chyba:="chyba inicializace poÜty "+int2str(res); log_write(chyba); mailerr(res); END
  79.       ELSE 
  80.         BEGIN     //2
  81.           res:= LetterCreate(Subj,dopis,130,Letter);
  82.           IF res<>0 THEN 
  83.             BEGIN   chyba:="chyba p°i vytvß°enφ dopisu "+int2str(res); log_write(chyba);  mailerr(res); END
  84.           ELSE 
  85.            BEGIN //3         
  86.            res:= LetterAddAddr(Letter, komu, typ, FALSE);
  87.            IF res<>0 THEN
  88.             begin //4
  89.               chyba:="chyba adresßta "+int2str(res);
  90.               log_write(chyba);
  91.               mailerr(res); 
  92.             end  //4
  93.            ELSE 
  94.             BEGIN //4           
  95.             res:= LetterSend(Letter);
  96.             IF res<>0 THEN
  97.             BEGIN   //5
  98.               chyba:="chyba p°i odesφlßnφ poÜtou "+int2str(res);
  99.               log_write(chyba);  mailerr(res); 
  100.             END;   //5
  101.            END;   //4
  102.           END;   //3
  103.           CloseWBMail;
  104.         END;    //2
  105.  END;    //1
  106.  
  107. END;     //0
  108.  
  109.  
  110. BEGIN
  111. END.
  112.