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 : Sélectionner tout - Visualiser dans une fenêtre à part
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