export_mail

 $Id: export_mail.m,v 1.2 2004/05/12 18:59:54 dalai Exp $

0001 % $Id: export_mail.m,v 1.2 2004/05/12 18:59:54 dalai Exp $
0002 function export_mail(filename)
0003 
0004 server = 'dumle.se'; 
0005 port = 1025;
0006 from = 'francois.willame@laposte.net';
0007 to = {'willamefr@hotmail.com' 'dalai@localhost'};
0008 subject = filename;
0009 message = char(sprintf('Simulation for %s is finished\n%s.tar.gz is available',filename,filename));
0010 
0011 disp(dispconsole('|','exporting by mail to',':',char(to(1)),'|'));
0012 disp(dispconsole('|','exporting by mail to',':',char(to(2)),'|'));
0013 
0014 mail(to,subject,message);
0015 
0016 disp(dispconsole('|','mail ',':','sent','|'));