Module Email_message__.Email_simple
type attachment_name = string
module Content : sig ... endtype t = Email_message.Email.t
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 -> tval from : t -> Email_address.t optionval to_ : t -> Email_address.t list optionval cc : t -> Email_address.t list optionval subject : t -> string optionval id : t -> string optionval extract_body : ?content_type:Mimetype.t -> t -> string optionval all_attachments : t -> Attachment.t listval find_attachment : t -> attachment_name -> Attachment.t optionval all_related_parts : t -> (attachment_name * Content.t) listval find_related : t -> attachment_name -> Content.t optionval inline_parts : t -> Content.t listval map_file_attachments : t -> f:(Attachment.t -> [ `Keep | `Replace of t ]) -> t