Module Async_smtp__Client.Envelope_status

type envelope_id = string

type rejected_recipients = (Async_smtp_types.Email_address.t * Async_smtp.Smtp_reply.t) list

type ok = envelope_id * rejected_recipients

type err = [

| `Rejected_sender of Async_smtp.Smtp_reply.t

| `No_recipients of rejected_recipients

| `Rejected_sender_and_recipients of Async_smtp.Smtp_reply.t * rejected_recipients

| `Rejected_body of Async_smtp.Smtp_reply.t * rejected_recipients

]

include sig ... end

val sexp_of_err : err ‑> Sexplib.Sexp.t

type t = (ok, err) Core.Result.t

include sig ... end

val sexp_of_t : t ‑> Sexplib.Sexp.t

val to_string : t ‑> string

val ok_or_error : allow_rejected_recipients:bool ‑> t ‑> string Core.Or_error.t

val ok_exn : allow_rejected_recipients:bool ‑> t ‑> string