Odesφlßnφ zßsilek

Odesφlßnφ zßsilek

P°φklad odesφlßnφ zßsilky

P°φklad v jazyku klienta:

var 
  letter, err : integer;
  dopis : string[250];
begin
   letter := 0;
   err := InitWBMail("winbase", nil); // inicializace poÜty
   if err = 0 then  begin  // vytvo°enφ dopisu
      dopis := "Data ze dne "+Date2str(Today,1);
      err := LetterCreate("Data", dopis, 1+2+8, letter);
   end;
   if err = 0 then    // p°idßnφ adresßta
      err := LetterAddAddr(letter, "NTserver@software602.cz", "SMTP", FALSE);
   if err = 0 then    // p°ipojenφ souboru
      err := LetterAddFile(letter, "c:\temp\data.tdt");
   if err = 0 then
   begin              // odeslßnφ dopisu  
      err := LetterSend(letter);
      letter := 0;
   end;
   if err <> 0 then
   begin
      Signalize;
      if letter <> 0 then // nebyl odeslßn, ale existuje - zruÜit
         LetterCancel(letter);
   end;
   CloseWBMail;  // ukonΦit komunikaci
end.

Tent²₧ p°φklad v SQL na serveru:

(funkce pro spoluprßci s poÜtou nevyvolajφ v²jimku - nelze zachytit handlerem)

PROCEDURE OdesliMail();
BEGIN
   DECLARE Letter, Err INT;
   DECLARE Dopis CHAR(250);
   SET Letter = 0;
   SET Err = InitWBMail("winbase", NULL);
   IF Err = 0 THEN BEGIN
      SET dopis = "Data ze dne "||Date2str(Today,1);
      SET Err = LetterCreate("Data", dopis, 1+2+8, Letter);
   END; 
   END IF;
   IF Err = 0 THEN
      SET Err = LetterAddAddr(Letter,"NTserver@software602.cz","SMTP",FALSE);
   END IF;
   IF Err = 0 THEN
      SET Err = LetterAddFile(Letter, "c:\temp\data.tdt");
   END IF;
   IF Err = 0 THEN
   BEGIN
      SET Err = LetterSend(Letter);
      SET Letter = 0;
   END;
   END IF;
   IF Err <> 0 THEN
   BEGIN
      CALL Log_write("Chyba p°i odesφlßnφ poÜty " + int2str(Err));
      IF Letter <> 0 THEN
         CALL LetterCancel(Letter);
      END IF;
   END;
   END IF;
   CALL CloseWBMail();
END

Odesφlßnφ zßsilek

Odesφlßnφ zßsilek