let send title text recipient from =
  let config = jsOptions<Nodemail.Config>(fun opt ->
    opt.auth <- {user="alerts@iotpool.fr";pass=password}
    opt.port <- 465
    opt.host <- "mail.gandi.net"
    opt.secure <- true
    opt.debug <- true
  )

  let message= jsOptions<Nodemail.Message>( fun msg ->
    msg.subject <- title
    msg.text <- text
    msg.``to`` <- recipient
    msg.from <-
      match from with
      | Some from -> sprintf "'%s' <alerts@iotpool.fr>" from
      | None -> "alerts@iotpool.fr"
    msg.cc <- Some "alerts@iotpool.fr"
  )
  let transport = Nodemail.nodemail.createTransport config
  promise {
    let! response = transport.sendMail message
    return
      if isNull response?messageId then
        Error (unbox response)
      else
        let infos : Nodemail.Info = unbox response
        Ok infos
  }