function getM2adr(sig) {



     var company = "ace";

     var domain = "ch";

     var s = "info" + "@" + company + "." + domain;



     switch(sig) {

      case "aebischer_juerg": s = "juerg.aebischer" + "@" + company + "." + domain;  break;

      case "arnold_josef": s = "josef.arnold" + "@" + company + "." + domain;  break;

      case "adamina_bruno": s = "bruno.adamina" + "@" + company + "." + domain;  break;

      case "burri_peter": s = "peter.burri" + "@" + company + "." + domain;  break;

      case "fischer_ernst": s = "ernst.fischer" + "@" + company + "." + domain;  break;	

      case "fries_rene": s = "rene.fries" + "@" + company + "." + domain;  break;

      case "furegati_rene": s = "rene.furegati" + "@" + company + "." + domain;  break;

      case "kohler_niklaus": s = "niklaus.kohler" + "@" + company + "." + domain;  break;

      case "kuch_sven": s = "sven.kuch" + "@" + company + "." + domain;  break;

      case "martin_michael": s = "michael.martin" + "@" + company + "." + domain;  break;

      case "osterwalder_rolf": s = "rolf.osterwalder" + "@" + company + "." + domain;  break;

      case "mounir_olivier": s = "olivier.mounir" + "@" + company + "." + domain;  break;

      case "schlueer_christian": s = "christian.schlueer" + "@" + company + "." + domain;  break;

      case "aebischer_elsbeth": s = "elsbeth.aebischer" + "@" + company + "." + domain;  break;

      case "wittwer_irene": s = "irene.wittwer" + "@" + company + "." + domain;  break;

      case "adam_stefan": s = "stefan.adam" + "@" + company + "." + domain;  break;

      case "gerber_thomas": s = "thomas.gerber" + "@" + company + "." + domain;  break;

      case "andenmatten_rinaldo": s = "rinaldo.andenmatten" + "@" + company + "." + domain;  break;

      case "balsiger_matthias": s = "matthias.balsiger" + "@" + company + "." + domain;  break;

      case "brandmaier_michael": s = "michael.brandmaier" + "@" + company + "." + domain;  break;

      case "bolli_pascal": s = "pascal.bolli" + "@" + company + "." + domain;  break;

      case "hammer_brigitte": s = "brigitte.hammer" + "@" + company + "." + domain;  break;

      case "mueller_konrad": s = "konrad.mueller" + "@" + company + "." + domain;  break;

      case "steiner_rolf": s = "steini" + "@" + company + "." + domain;  break;

      case "steiner2_rolf": s = "steini" + "@" + company + "." + domain;  break;

      case "waelchli_ralph": s = "ralph.waelchli" + "@" + company + "." + domain;  break;

      case "walker_christoph": s = "christoph.walker" + "@" + company + "." + domain;  break;

      case "zbinden_andreas": s = "andreas.zbinden" + "@" + company + "." + domain;  break;

      case "aebischer_werner": s = "werner.aebischer" + "@" + company + "." + domain;  break;

      case "baecher_stephan": s = "stephan.baecher" + "@" + company + "." + domain;  break;

      case "richard_manuel": s = "manuel.richard" + "@" + company + "." + domain;  break;

      case "rein_marc": s = "marc.rein" + "@" + company + "." + domain;  break;

      case "roess_judith": s = "judith.roess" + "@" + company + "." + domain;  break;

      case "raess_peter": s = "peter.raess" + "@" + company + "." + domain;  break;

      case "schlesinger_benjamin": s = "benjamin.schlesinger" + "@" + company + "." + domain;  break;

      case "wehrli_ralph": s = "ralph.wehrli" + "@" + company + "." + domain;  break;

      case "maeder_xaver": s = "xaver.maeder" + "@" + company + "." + domain;  break;

      case "achermann_bernard": s = "bernard.achermann" + "@" + company + "." + domain;  break;

      case "kissling_roland": s = "roland.kissling" + "@" + company + "." + domain;  break;

      case "runda_kerstin": s = "kerstin.runda" + "@" + company + "." + domain;  break;

      case "salvisberg_hanspeter": s = "hanspeter.salvisberg" + "@" + company + "." + domain;  break;

	case "aebischer_jonathan": s = "jonathan.aebischer" + "@" + company + "." + domain;  break;

	case "burgener_sandro": s = "sandro.burgener" + "@" + company + "." + domain;  break;

	case "linux": s = "linux" + "@" + company + "." + domain;  break;

      case "info": s = "info" + "@" + "dis" + "." + "ch";  break;

      case "prag": s = "prag" + "@" + "mobi" + "." + "ch";  break;

      case "fback": s = "kunde" + "@" + company + "." + domain;  break;

      default: s = "info" + "@" + company + "." + domain; break;

     }

     return(s);



   }



   function sendMailTo(sig) {

      locationstring = "mai" + "lto:" + getM2adr(sig) ;

      window.location.replace(locationstring);

   }



   function sendAnnotatedMailTo(sig, subject, body) {

     locationstring = "mai" + "lto:" + getM2adr(sig)  + "?subject=" + escape(subject) + "&body=" + escape(body);

     window.location.replace(locationstring);   }



   function sendFullMailTo(sig, subject, cc, bcc, body) {

      locationstring = "mai" + "lto:" + getM2adr(sig)  + "?cc=" + cc + "&bcc=" + bcc + "&subject=" + escape(subject) + "&body=" + escape(body);

      window.location.replace(locationstring);   }