sig
  type mail = {
    mail_to : string list;
    mail_cc : string list;
    mail_from : string;
    mail_subject : string;
    mail_body : string;
  }
  val sendmail : ?bin:string -> Smail.Mhmail.mail -> unit
end