sig
  type mail = {
    mail_to : string list;
    mail_cc : string list;
    mail_from : string;
    mail_subject : string;
    mail_body : string;
  }
  val sendmail : string -> int -> Smail.SMTP.mail -> string
end