InitWBMail602

Internφ programovacφ jazykC/C++PascalSQL

function InitWBMail602(var EMIpath, userid, password : string) : integer;
int InitWBMail602(char * EMIpath, char * userid, char * password);
function InitWBMail602(EMIpath, userid, password : PChar) : integer;

Parametry

EMIpath adresß° s konfiguraΦnφm souborem poÜty M602.EMI
userid ID u₧ivatele poÜty
password heslo u₧ivatele poÜty

Popis

Zastaralß funkce, od verze 6.0f pln∞ nahrazena obecn∞jÜφ funkcφ InitWBMail.

Inicializuje odesφlßnφ poÜty z WinBase602. Zp°φstup≥uje pouze poÜtu Mail602.

Hodnota funkce

Funkce vracφ nulu v p°φpad∞ ·sp∞chu a Φφslo chyby v p°φpad∞ ne·sp∞chu. ╚φslo chyby lze zjistit pomocφ Sz_error nebo Signalize.

P°φklad

procedure InitMail;
{*****************************}
begin
  if Param[0].mailovat then begin 
     usemail := true;
     pathemi := Param[0].emipath;
     iduser :=  Param[0].userid;
     paswuser := Param[0].userpasw;
     if InitWBMail602(pathemi,iduser,paswuser)>0 then Info_box("Chyba","Mail");
  end;
end;

Viz