# NOT RUN {
con$select_folder(name = "INBOX")
# do a search followed by a fetch operation, then extract the attachments' list
out < con$search_string(expr = "@k-state.edu", where = "FROM") %>%
con$fetch_body()
att_list <- list_attachments(msg_list = out)
# or
att_list < con$search_string(expr = "@k-state.edu", where = "FROM") %>%
con$fetch_body() %>%
list_attachments()
# }
Run the code above in your browser using DataLab