Content (email_message.email_message.kernel.Email_message

type t

val sexp_of_t : t -> Sexplib0.Sexp.t

val of_email : Email_message_kernel__.Email.t -> t

val headers : t -> Headers.t

val create_custom : 
  content_type:Mimetype.t ->
  ?encoding:Octet_stream.Encoding.known ->
  ?extra_headers:(Headers.Name.t * Headers.Value.t) list ->
  string ->
  t

val create : 
  content_type:Mimetype.t ->
  ?encoding:Octet_stream.Encoding.known ->
  ?extra_headers:(Headers.Name.t * Headers.Value.t) list ->
  string ->
  t

deprecated [since 2019-08] Renamed to [create_custom]

val html_utf8 : 
  ?encoding:Octet_stream.Encoding.known ->
  ?extra_headers:(Headers.Name.t * Headers.Value.t) list ->
  string ->
  t

val html : 
  ?encoding:Octet_stream.Encoding.known ->
  ?extra_headers:(Headers.Name.t * Headers.Value.t) list ->
  string ->
  t

deprecated [since 2019-08] Please specify the charset, e.g. [html_utf8]

val text_utf8 : 
  ?encoding:Octet_stream.Encoding.known ->
  ?extra_headers:(Headers.Name.t * Headers.Value.t) list ->
  string ->
  t

val text : 
  ?encoding:Octet_stream.Encoding.known ->
  ?extra_headers:(Headers.Name.t * Headers.Value.t) list ->
  string ->
  t

deprecated [since 2019-08] Please specify the charset, e.g. [text_utf8]

val text_monospace_utf8 : 
  ?extra_headers:(Headers.Name.t * Headers.Value.t) list ->
  ?force_no_line_wrap:bool ->
  string ->
  t

Plain text e-mail that also includes an html version so it's displayed monospace in gmail.

By default, we add some custom styling to disable the line-wrap formatting rule which gmail uses. To disable this behavior, supply ~force_no_line_wrap:false.

Note: Content created using text_monospace_utf8 can not be used as an attachment, it is intended for use as the email body only. Please use text_utf8 instead.

val text_monospace : 
  ?extra_headers:(Headers.Name.t * Headers.Value.t) list ->
  ?force_no_line_wrap:bool ->
  string ->
  t

deprecated [since 2019-08] Please specify the charset, e.g. [text_monospace_utf8]

val alternatives : 
  ?extra_headers:(Headers.Name.t * Headers.Value.t) list ->
  t list ->
  t

Combine 2 or more contents as alternative versions. List should be sorted from worst to best.

Note: Content created using alternatives can not be used as an attachment. Please add multiple attachments instead.

val mixed : 
  ?extra_headers:(Headers.Name.t * Headers.Value.t) list ->
  t list ->
  t

Combine 2 or more contents that should be bundled together

Note: Content created using mixed can not be used as an attachment. Please add multiple attachments instead.

val with_related : 
  ?extra_headers:(Headers.Name.t * Headers.Value.t) list ->
  resources:(attachment_name * t) list ->
  t ->
  t

Add related resources (e.g. inline images). You can reference them using 'cid:${attachment_name}' in the content. To attach files you should use create ~attachments

Note: Content created using with_related can not be used as an attachment. Please add multiple attachments instead.

val content_type : t -> Mimetype.t

val related_part_cid : t -> attachment_name option

The Content-ID of the content

val all_related_parts : t -> (attachment_name * t) list

val find_related : t -> attachment_name -> t option

val content : t -> Octet_stream.t option

content and parts return None if the email doesn't properly parse. They also return None if the message has content type "message/rfc822"

val parts : t -> t list option

val alternative_parts : t -> t list

Get the alternative versions available. If the message is not of content type "multipart/alternative" then return a singleton list.

val inline_parts : t -> t list

Get the 'inline' parts, This expands "Content-Type: multipart/{mixed,related}", stripping out any attachment parts. multipart/alternative is not expanded

val content_disposition : t -> [ `Inline | `Attachment of string ]

val attachment_name : t -> string option