Module `Async_smtp.Simplemail`

module Envelope_status = Async_smtp__.Client.Envelope_status

module Expert : sig ... end

include module type of Async_smtp_types.Email.Simple with module Simple.Expert := Async_smtp_types.Email.Simple.Expert

module Mimetype = Email_message__.Email_simple.Mimetype

type attachment_name = string

module Attachment = Email_message__.Email_simple.Attachment

module Content = Email_message__.Email_simple.Content

type t = Email_message.Email.t

val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t

val create : ?⁠from:Email_address.t -> to_:Email_address.t list -> ?⁠cc:Email_address.t list -> ?⁠reply_to:Email_address.t list -> 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 = Email_message__.Email_simple.Expert

module Stable = Email_message__.Email_simple.Stable

val send' : ?⁠log:Async_smtp__.Mail_log.t -> ?⁠credentials:Async_smtp__.Credentials.t -> ?⁠server:Core.Host_and_port.t -> ?⁠from:Async_smtp_types.Email_address.t -> ?⁠sender_args:Async_smtp_types.Smtp_envelope.Sender_argument.t list -> to_:Async_smtp_types.Email_address.t list -> ?⁠cc:Async_smtp_types.Email_address.t list -> ?⁠bcc:Async_smtp_types.Email_address.t list -> ?⁠reply_to:Async_smtp_types.Email_address.t list -> ?⁠bounce_to:Async_smtp_types.Email_address.t -> subject:string -> ?⁠id:string -> ?⁠in_reply_to:string -> ?⁠date:Core.Time.t -> ?⁠auto_generated:unit -> ?⁠extra_headers:(Async_smtp_types.Email_headers.Name.t * Async_smtp_types.Email_headers.Value.t) list -> ?⁠attachments:(attachment_name * Async_smtp_types.Email.Simple.Content.t) list -> Async_smtp_types.Email.Simple.Content.t -> Envelope_status.t Async.Deferred.Or_error.t
val send : ?⁠log:Async_smtp__.Mail_log.t -> ?⁠credentials:Async_smtp__.Credentials.t -> ?⁠server:Core.Host_and_port.t -> ?⁠from:Async_smtp_types.Email_address.t -> ?⁠sender_args:Async_smtp_types.Smtp_envelope.Sender_argument.t list -> to_:Async_smtp_types.Email_address.t list -> ?⁠cc:Async_smtp_types.Email_address.t list -> ?⁠bcc:Async_smtp_types.Email_address.t list -> ?⁠reply_to:Async_smtp_types.Email_address.t list -> ?⁠bounce_to:Async_smtp_types.Email_address.t -> subject:string -> ?⁠id:string -> ?⁠in_reply_to:string -> ?⁠date:Core.Time.t -> ?⁠auto_generated:unit -> ?⁠extra_headers:(Async_smtp_types.Email_headers.Name.t * Async_smtp_types.Email_headers.Value.t) list -> ?⁠attachments:(attachment_name * Async_smtp_types.Email.Simple.Content.t) list -> Async_smtp_types.Email.Simple.Content.t -> unit Async.Deferred.Or_error.t