Adding "Expiration Date" to email send with Microsoft365R

Question

Does anybody know whether there is a possibility of adding an Expiration-Date to the email that is send with Microsoft365R?

I have the following lines of code and would like the message to be removed from the receiver's inbox after a specific date.

library(Microsoft365R)
library(blastula)

outlb <- get_business_outlook()
bl_em <- compose_email(body = "body of email")
em <- outlb@create_email(
  bl_em, 
  subject = "subjectline",
  to="name@domain.com"
)
em$send()