Extracción del archivo Zip + CSV del archivo adjunto con imagen en el cuerpo del correo electrónico

Recibo correos electrónicos diarios donde hay un archivo adjunto que contiene 1 archivo zip que contiene 1 archivo csv.

En el cuerpo de mi correo electrónico, hay una imagen que se reconoce como otro archivo adjunto, estoy bastante seguro.

El siguiente script funciona cuando solo hay texto en el cuerpo del correo electrónico pero con la imagen "Adobe Marketing Cloud", está arruinando el script.

¿Hay alguna manera de que solo pueda leer la primera lectura del archivo adjunto (suponiendo que sea el archivo zip)?

Aquí está mi guión:

library(readr)
library(RDCOMClient)
outlook_app <- COMCreate("Outlook.Application")
search <- outlook_app$AdvancedSearch(
  "Inbox",
  "urn:schemas:httpmail:subject = 'SUBJECTNAME'"
)

Sys.sleep(5) # Wait a hot sec!


results <- search$Results() # Saves search results into results object

Sys.sleep(5) # Wait a hot sec!

results$Item(1)$ReceivedTime() # Received time of first search result

as.Date("1899-12-30") + floor(results$Item(1)$ReceivedTime()) # Received 
date

# Iterates through results object to pull out all of the items
for (i in 1:results$Count()) {
  if (as.Date("1899-12-30") + floor(results$Item(i)$ReceivedTime()) 
      == as.Date(Sys.Date())) {
    email <- results$Item(i)
  }
}

attachment_file <- tempfile()
email$Attachments(1)$SaveAsFile(attachment_file)

##Automatically Determine csv file name
file_name<-unzip(attachment_file,list=TRUE)
csv_file<-file_name$Name

##Read CSV File
newly_read_data <- read_csv(unz(attachment_file,csv_file))

El error viene aquí:

file_name<-unzip(attachment_file,list=TRUE)
Error in unzip(attachment_file, list = TRUE) : 
  zip file 'C:\Temp\Rtmp86Gnzp\file29904a23387b' cannot be opened

¡Cualquier ayuda sería genial, gracias!