Extrair arquivo Zip + CSV do anexo com imagem no corpo do email
Recebo emails diários em que há um anexo contendo 1 arquivo zip contendo 1 arquivo csv.
No corpo do meu email, há uma imagem que está sendo reconhecida como outro anexo, tenho certeza.
O script abaixo funciona quando há apenas texto no corpo do email, mas com a imagem "Adobe Marketing Cloud", ele está estragando o script.
Existe uma maneira que eu possa apenas ler talvez o primeiro anexo lido (assumindo que será o arquivo zip)?
Aqui está o meu script:
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))
O erro vem aqui:
file_name<-unzip(attachment_file,list=TRUE)
Error in unzip(attachment_file, list = TRUE) :
zip file 'C:\Temp\Rtmp86Gnzp\file29904a23387b' cannot be opened
Qualquer ajuda seria ótima, obrigado!