Email Functionality Issue: Unstable API Causing Authentication Process to Hang Indefinitely

**Description**:

We have been attempting to reactivate the email functionality in our Shiny application using the Microsoft365R API. However, we have encountered a persistent issue that we would appreciate your assistance with.

When the button to send emails is pressed, the application loops over users and sends the email. However, before sending the email to each user, an authentication page opens for logging in and displays a message that the page can now be closed. Occasionally, the API gets stuck on the authentication page and does not return to the app, causing the loading spinner to remain stuck indefinitely.

We have been unable to find a workaround or solution for this issue, and we suspect that it may originate from the API side. We would greatly appreciate any guidance or suggestions that you could provide to help us resolve this problem.

Thank you in advance for your assistance.

**Code snippet:**

```
# Email-sending function
send.email = function(user_from, email_to, email_subject, record) {

show_modal_spinner(spin = "circle", text = "Sending email to " %+% email_to %+% "...")

# Open Outlook connection
outlook_conn = get_business_outlook()

# Create email body containing a properly formatted version of the record
record_rotated = sjmisc::rotate_df(record, rn = "Field") %>% tidyr::replace_na(list(V1 = ""))
email_body = record_rotated %>% dplyr::mutate(Field = "" %+% Field %+% ":") %>% purrr::pmap_chr(paste, collapse = "") %>% paste(collapse = "

")

# Send email
email = compose_email(body = md(email_body), footer = md(""))
email = outlook_conn$create_email(email, subject = email_subject, to = email_to)
email$send()
}

# Main application code calling the email-sending function
if (table_obj$abbr %in% c("req", "reqh")) {

# Extract email from current user and all data users
current_user = db[["usr"]][["current_user"]]
email_current_user = db[["usr"]]$content %>% dplyr::filter(User == current_user) %>% dplyr::pull(Email)
email_data_users = db[["usr"]]$content %>% dplyr::filter(Type == "Data user") %>% dplyr::pull(Email)

# Send email to current user and all data users with the current record
users_email_to = c(email_current_user, email_data_users) %>% unique()

if (grepl("add", id) == T & table_obj$abbr == "req") {
email_subject = "New request from " %+% current_user
}

if (grepl("add", id) == T & table_obj$abbr == "reqh") {
email_subject = "New request history record from " %+% current_user
}

if (grepl("edit", id) == T & table_obj$abbr == "req") {
email_subject = "Update to request " %+% record$ID
}

if (grepl("edit", id) == T & table_obj$abbr == "reqh") {
email_subject = "Update to request history record " %+% record$ID
}

send.multiple_emails(current_user, users_email_to, email_subject, record)

}
```