`val names : string list`
`val email_body : (t, Email_message.Email.Raw_content.t) Fieldslib.Field.t`
`val envelopes : (t, Async_smtp_types__.Envelope_bodiless_routed.t list) Fieldslib.Field.t`
`val fold : init:'acc__0 ‑> envelopes:('acc__0 ‑> (t, Async_smtp_types__.Envelope_bodiless_routed.t list) Fieldslib.Field.t ‑> 'acc__1) ‑> email_body:('acc__1 ‑> (t, Email_message.Email.Raw_content.t) Fieldslib.Field.t ‑> 'acc__2) ‑> 'acc__2`
`val make_creator : envelopes:((t, Async_smtp_types__.Envelope_bodiless_routed.t list) Fieldslib.Field.t ‑> 'acc__0 ‑> ('input__ ‑> Async_smtp_types__.Envelope_bodiless_routed.t list) * 'acc__1) ‑> email_body:((t, Email_message.Email.Raw_content.t) Fieldslib.Field.t ‑> 'acc__1 ‑> ('input__ ‑> Email_message.Email.Raw_content.t) * 'acc__2) ‑> 'acc__0 ‑> ('input__ ‑> t) * 'acc__2`
`val create : envelopes:Async_smtp_types__.Envelope_bodiless_routed.t list ‑> email_body:Email_message.Email.Raw_content.t ‑> t`
`val map : envelopes:((t, Async_smtp_types__.Envelope_bodiless_routed.t list) Fieldslib.Field.t ‑> Async_smtp_types__.Envelope_bodiless_routed.t list) ‑> email_body:((t, Email_message.Email.Raw_content.t) Fieldslib.Field.t ‑> Email_message.Email.Raw_content.t) ‑> t`
`val iter : envelopes:((t, Async_smtp_types__.Envelope_bodiless_routed.t list) Fieldslib.Field.t ‑> unit) ‑> email_body:((t, Email_message.Email.Raw_content.t) Fieldslib.Field.t ‑> unit) ‑> unit`
`val for_all : envelopes:((t, Async_smtp_types__.Envelope_bodiless_routed.t list) Fieldslib.Field.t ‑> bool) ‑> email_body:((t, Email_message.Email.Raw_content.t) Fieldslib.Field.t ‑> bool) ‑> bool`
`val exists : envelopes:((t, Async_smtp_types__.Envelope_bodiless_routed.t list) Fieldslib.Field.t ‑> bool) ‑> email_body:((t, Email_message.Email.Raw_content.t) Fieldslib.Field.t ‑> bool) ‑> bool`
`val to_list : envelopes:((t, Async_smtp_types__.Envelope_bodiless_routed.t list) Fieldslib.Field.t ‑> 'elem__) ‑> email_body:((t, Email_message.Email.Raw_content.t) Fieldslib.Field.t ‑> 'elem__) ‑> 'elem__ list`
`val map_poly : ([< `Read | `Set_and_create ], t, 'x0) Fieldslib.Field.user ‑> 'x0 list`
`module Direct : sig ... end`