let () =
  let zz = new Mail.mail in
    zz#set_from "mail@mydomain"
  ; zz#set_rcpt "mail@yourdomain"
  ; zz#set_subject "a message"
  ; zz#set_server "smtp.mydomain"
  ; zz#send
  ;;