Module `Email_message__Email_simple`

module Mimetype : sig ... end

module Attachment : sig ... end

module Content : sig ... end

val create : ?⁠from:Email_address.t -> to_:Email_address.t list -> ?⁠cc:Email_address.t list -> ?⁠reply_to:Email_address.t -> subject:string -> ?⁠id:string -> ?⁠in_reply_to:string -> ?⁠date:Core.Time.t -> ?⁠auto_generated:unit -> ?⁠extra_headers:(Email_message__.Headers.Name.t * Email_message__.Headers.Value.t) list -> ?⁠attachments:(attachment_name * Content.t) list -> Content.t -> t
val from : t -> Email_address.t option
val to_ : t -> Email_address.t list option
val cc : t -> Email_address.t list option
val subject : t -> string option
val id : t -> string option
val extract_body : ?⁠content_type:Mimetype.t -> t -> string option
val all_attachments : t -> Attachment.t list
val find_attachment : t -> attachment_name -> Attachment.t option
val all_related_parts : t -> (attachment_name * Content.t) list
val find_related : t -> attachment_name -> Content.t option
val inline_parts : t -> Content.t list
val map_file_attachments : t -> f:(Attachment.t -> [ `Keep | `Replace of t ]) -> t

module Expert : sig ... end

module Stable : sig ... end