Récupération de pièce jointe de mail outlook
Bonjour,
Je souhaite faire un programme qui va dans ma boite mail, récupère certains mail et extrait les pièces jointes de ces mails.
Pour cela j'utilise la library RDCOMClient. J'arrive à accèder aux données mais il me reste l'étape final qui est de sauvegarder les documents sur mon ordinateur et j'ai essayé de chercher de la documentation et autres mais je n'ai malheureusement pas réussis à trouver.
Voici le code que j'ai actuellement :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
library(RDCOMClient)
OutApp <- COMCreate("Outlook.Application")
outlookNameSpace = OutApp$GetNameSpace("MAPI")
folder <- outlookNameSpace$Folders("X")$Folders("Boîte de réception") # Remplacer X par 1 ou par l'adresse mail dans le cas ou dans outlook il y a plusieurs adresses mail
folder$Name(1)
emails <- folder$Items
for (i in 1:10)
{
subject <- emails(i)$Subject(1)
if (grepl("X", subject)[1]){ # Remplacer X par le nom de l'objet que l'on veut récupérer
attachments.obj <- emails(i)[['attachments']]
attachments <- character()
if(attachments.obj$Count() > 0){
for(i in c(1:attachments.obj$Count())){
attachments <- append(attachments, attachments.obj$Item(i)[['DisplayName']])
}
}
print(attachments)
break
}
} |
Cordialement,
Arkning
