diff --git a/R/logging.R b/R/logging.R
index 19135fe..e317481 100644
--- a/R/logging.R
+++ b/R/logging.R
@@ -689,9 +689,10 @@ send_email <-
       email_to <- unlist(strsplit(email_to, " "))
     }
 
+    email_content <- list(email_body)
+
     if (!is.null(file_name)) {
       output_dir <- tempdir()
-      email_content <- list()
 
       if (!is.null(df_to_email) && is.data.frame(df_to_email)) {
         df_to_email <- list(df_to_email)