create Mailto: -link

[erich.wanker]

Hello..

 

is where a better way ? .. i use variant 1 for opening the local mail-program:

 

procedure TMainForm.something to Click(Sender: TObject);
begin

UniSession.AddJS('myWin=window.open("mailto:wanker@domain.com");setTimeout(function(){myWin.close()}, 1000);');

end;

.. but the browser thinks - this is a popup - and normaly blocks it ...

 

 

 

if  i use variant 2:

UniSession.AddJS('window.location="mailto:wanker@domain.com"');

.. then my script in Mainform/script will be activate:

function bunload(){
dontleave="MountainOffice";
return dontleave;
};
function ounload(){
ajaxRequest(MainForm.window, 'SessionClosed', [] );
};
onbeforeunload = bunload;
onunload=ounload;

.. and askes " will you stay on this site or will you leave it" 

 

is where a other way to start local mail-programm?

 

 

thanX for suggestions :-)

Erich