Chip 2000 May/Chip_2000-05_cd1.bin/tema/SW602/Winbase/EShop_demo/MAILERR.PSM

Text File | 2000-03-16 | 2KB | 37 lines

{$$3207742797 .                              }PROCEDURE `MAILERR` (IN num INT);
BEGIN
  case num
     WHEN 0 THEN call log_write("OK");
     WHEN 500 THEN call log_write("PoÜta nenφ inicializovßna");
     WHEN 501 THEN call log_write("Neznßmß chyba poÜty");
     WHEN 502 THEN call log_write("PoÜtovnφ klient nenφ vzdßlen²");
     WHEN 503 THEN call log_write( "Chybn² typ adresy");
     WHEN 504 THEN call log_write( "Chyba p°i pokusu o p°ihlßÜenφ");
     WHEN 505 THEN call log_write( "Chybn² profil poÜty");
     WHEN 506 THEN call log_write( "ChybnΘ ID u₧ivatele");
     WHEN 507 THEN call log_write( "Zßsilka nemß ₧ßdnΘho adresßta");
     WHEN 508 THEN call log_write( "Soubor nenalezen");
     WHEN 509 THEN call log_write( "Server se nem∙₧e p°ihlßsit do poÜty, proto₧e b∞₧φ na systΘmov² ·Φet");
     WHEN 510 THEN call log_write( "Nepoda°ilo se navßzat telefonickΘ spojenφ s poÜtovnφm serverem");
     WHEN 511 THEN call log_write( "PoÜta u₧ je inicializovßna s jin²mi parametry");
     WHEN 512 THEN call log_write( "Profil poÜty nenalezen");
     WHEN 513 THEN call log_write( "V profilu chybφ parametr");
     WHEN 514 THEN call log_write( "Odeslßnφ zadanΘho souboru nenφ povoleno");
     WHEN 515 THEN call log_write( "I/O chyba p°i sφ¥ovΘ komunikaci");
     WHEN 516 THEN call log_write( "SMTP/POP3 server nenalezen");
     WHEN 517 THEN call log_write( "Nepoda°ilo se navßzat spojenφ s poÜtovnφm serverem");

     WHEN 129 THEN call log_write( "nedostateΦnß prßva pro p°φstup k poÜt∞");
     WHEN 142 THEN call log_write( "chybnΘ heslo");
     WHEN 150 THEN call log_write( "nedostatek pam∞ti");
     WHEN 154 THEN call log_write( "nedostatek mφsta na disku");
     WHEN 157 THEN call log_write( "chyba p°i otevφrßnφ, Φtenφ, nebo zßpisu do souboru");
     WHEN 158 THEN call log_write( "nekompatibilnφ verze MAPI");
     WHEN 192 THEN call log_write( "vyprÜela platnost hesla");


     else call log_write("Neznßmß chyba");
     END CASE;

END