home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 July / PCWorld_1999-07_cd.bin / 602 / WBPERSON / data1.cab / SDK_Files / WBMail / I_WBMAIL.PGM next >
Text File  |  1999-06-09  |  5KB  |  103 lines
  1. INCLUDE
  2.  
  3. {*********************************************************************************** 
  4. Zp°φstupn∞nφ funkcφ a procedur pro vytvß°enφ a odeslφlßnφ dopisu elektronickou poÜtou 
  5. z prost°edφ vnit°nφho jazyka WinBase 
  6. Lze pou₧φt od verze 5.0h 
  7. (c) Software602 a.s.
  8. ***********************************************************************************}
  9.  
  10. /* vÜechny funkce vracφ nulu v p°φpad∞ ·sp∞chu, Φφslo chyby(>500) v p°φpad∞ chyby; nelze pou₧φt Signalize */
  11.  
  12. /* Inicializace odesφlßnφ poÜty z WinBase602. Zp°φstupn∞nφ libovolnΘ poÜty, kterß pou₧φvß rozhranφ MAPI */
  13. FUNCTION  InitWBMail(var Profile : string; var Password : string) : integer; 
  14. EXTERNAL "WBKERNEL.DLL";
  15. /* Profile - jmΘno profilu (z nastavenφ MAPI 
  16.    Password - heslo profilu                   */
  17.  
  18.  
  19. /* Inicializace odesφlßnφ poÜty z WinBase602. Zp°φstupn∞nφ poÜty MAIL602 */
  20. FUNCTION  InitWBMail602(var EmiPath : string; var UserID : string; var Password : string) : integer; 
  21. EXTERNAL "WBKERNEL.DLL"; 
  22. /* EmiPath - cesta k souboru m602.EMI
  23.    UserID - identifikace u₧ivatele MAIL602 (8 znak∙)
  24.    Password - heslo u₧ivatele MAIL602                   */
  25.  
  26. /* UkonΦenφ pou₧φvßnφ poÜty */
  27. PROCEDURE CloseWBMail; 
  28. EXTERNAL "WBKERNEL.DLL";
  29.  
  30. /* Vytvo°enφ dopisu, funkce vracφ v paramtru Letter ID dopisu */
  31. FUNCTION  LetterCreate(var Subj : string; var Msg : string; Flags : integer; var Letter : integer) : integer; 
  32. EXTERNAL "WBKERNEL.DLL";
  33. /* Subj : "v∞c" dopisu (objevφ se v seznamu doÜlΘ poÜty)
  34.    Msg : text dopisu nebo cesta k textovΘmu souboru obsahujφcφmu text dopisu
  35.    Flags : p°φznaky dopisu WBL_...              
  36.    Letter : v²stupnφ parametr, ID dopisu       */
  37.    
  38. const
  39. WBL_READRCPT   = 1;   /* Zßsilka bude doporuΦenß. */
  40. WBL_DELAFTER   = 2;   /* Zßsilka bude po odeslßnφ smazßna. MAPI implicitn∞ odeslanΘ zßsilky neruÜφ a ponechßvß je v p°ihrßdce poÜta k odeslßnφ.*/
  41.  /* Nßsledujφcφ dva p°φznaky specifikujφ prioritu zßsilky. Implicitn∞ mß zßsilka prioritu normßlnφ. */
  42. WBL_PRILOW     = 4;   /* Odeslßnφ zßsilky bude mφt nφzkou prioritu */
  43. WBL_PRIHIGH    = 8;   /* Odeslßnφ zßsilky bude mφt vysokou prioritu */
  44.  /* Nßsledujφcφ t°i p°φznaky specifikujφ citlivost zßsilky. Implicitn∞ nemß zßsilka ₧ßdnou citlivost. PoÜta Mail602 nastavovßnφ citlivosti zßsilky nepodporuje. */
  45. WBL_SENSPERS   = 16;  /* Zßsilka bude mφt "Osobnφ" citlivost, tzn. ₧e zßsilka neobsahuje informace t²kajφcφ se pracovnφch zßle₧itostφ. */
  46. WBL_SENSPRIV   = 32;  /* Zßsilka bude mφt "Soukromou" citlivost, p°φjemci nebude umo₧n∞no obsah zßsilky p°ed odeslßnφm odpov∞di nebo postoupenφm zm∞nit. */
  47. WBL_SENSCONF   = 64;  /* Zßsilka bude mφt "D∙v∞rnou" citlivost, se zßsilkou by m∞lo zachßzeno podle p°φsluÜn²ch zßsad. */
  48.  
  49. WBL_REMSENDNOW = 128; /* Zßsilka bude zßhy po za°azenφ do poÜty odeslßna na mate°sk² poÜtovnφ ·°ad. P°φznak mß v²znam pouze v p°φpad∞ vzdßlenΘho klienta poÜty Mail602. */
  50. WBL_MSGINFILE = 256; /* Je-li p°φznak nastaven, je parametrem Msg je jmΘno textovΘho souboru, kter² obsahuje t∞lo dopisu, jinak je parametrem Msg p°φmo text dopisu. */
  51.  
  52. /* P°idßnφ adresßta do seznamu adresßt∙ */
  53. FUNCTION  LetterAddAddr(Letter : integer; var Addr : string; var AddrType : string; CC : boolean) : integer; 
  54. EXTERNAL "WBKERNEL.DLL";
  55. /* Letter : ID dopisu  
  56.    Addr : adresa p°φjemce (665000E1@MUJURAD nebo vonasek@mujurad.cz atd.)
  57.    AddrType : typ adresy (MAIL602 nebo Internet atd.)
  58.    CC : p°φznak, je-li zßsilka urΦena adresßtu p°φmo (FALSE) nebo na v∞domφ (TRUE)  */
  59.  
  60.  
  61. /* P°ipojenφ souboru k dopisu */
  62. FUNCTION  LetterAddFile(Letter : integer; var fName : string) : integer; 
  63. EXTERNAL "WBKERNEL.DLL";
  64. /* Letter : ID dopisu
  65.    fName : cesta k souboru, kter² mß b²t p°ipojen */
  66.  
  67.  
  68. /* Odeslßnφ dopisu */
  69. FUNCTION  LetterSend(Letter : integer) : integer; 
  70. EXTERNAL "WBKERNEL.DLL";
  71. /* Letter : ID dopisu       */
  72.  
  73.  
  74. /* ZruÜenφ dosud neodeslanΘho dopisu */
  75. PROCEDURE LetterCancel(Letter : integer); 
  76. EXTERNAL "WBKERNEL.DLL";
  77. /* Letter : ID dopisu       */
  78.  
  79. /* spuÜt∞nφ poÜtovnφ brßny vzdßlenΘho klienta Mail602 */
  80. FUNCTION TakeMailToRemOffice : integer;
  81. EXTERNAL "WBKERNEL.DLL";
  82.  
  83. /* Φφsla chyb:
  84. 129    NedostateΦnß prßva pro p°φstup k poÜt∞
  85. 142    chybnΘ heslo
  86. 150    nedostatek pam∞ti
  87. 154    nedostatek mφsta na disku
  88. 157    chyba p°i otevφrßnφ, Φtenφ, nebo zßpisu do souboru
  89. 158    nekompatibilnφ verze MAPI
  90. 192    vyprÜela platnost hesla
  91. 500    poÜta nenφ inicializovßna
  92. 501    jinß nep°edpoklßdanß chyba Mail602
  93. 502    poÜtovnφ ·°ad nenφ konfigurovßn jako vzdßlen² (U₧ivatel se pokusil p°edat poÜtu na vzdßlen² poÜtovnφ ·°ad, ale poÜtovnφ klient odpovφdajφcφ inicializaci nenφ vzdßlen²)
  94. 503    chybn² typ poÜty
  95. 504    ne·sp∞ÜnΘ p°ihlßÜenφ
  96. 505    pou₧it² chybn² profile (nenalezen M602.EMI)
  97. 506    pou₧ito chybnΘ ID u₧ivatele poÜty
  98. 507    nenφ zadßna adresa
  99. 508    chyba p°i prßci s p°ipojen²m souborem
  100. */
  101.  
  102.  
  103.