Import outlook to excel vba

Fermé
wil2168 - 25 nov. 2020 à 17:03
Bonjour

j'essaye d'importer des informations qui proviennent de outlook
le problème est que je dois importer des infos qui viennent du folder coffre de outlook "EnterpriseVault"
J'ai mon code qui bug à la ligne ci-dessous
Set Folder = OutlookNamespace.GetDefaultFolder(olFolderEnterpriseVault).Folders("clientA"
je ne sais par quoi remplacé la partie du code GetDefaultFolder(olFolderEnterpriseVault) afin d'avoir accès au mail situé dans le folder EnterpriseVault
Pouvez vous m'aider?

Sub mai_from_excel()

Dim OutlookApp As Outlook.Application

Dim OutlookNamespace As Namespace

Dim Folder As MAPIFolder

Dim OutlookMail As Variant

Dim i As Integer

Set OutlookApp = New Outlook.Application

Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")

Set Folder = OutlookNamespace.GetDefaultFolder(olFolderEnterpriseVault).Folders("clientA")


i = 1
For Each OutlookMail In Folder.Items

'If OutlookMail.ReceivedTime >= "25/11/2020" Then

Worksheets("planning").Range("eMail_subject").Offset(i, 0).Value = OutlookMail.Subject

Worksheets("planning").Range("eMail_date").Offset(i, 0).Value = OutlookMail.ReceivedTime

Worksheets("planning").Range("eMail_sender").Offset(i, 0).Value = OutlookMail.SenderName

i = i + 1
End If
Next OutlookMail

Set Folder = Nothing

Set OutlookNamespace = Nothing

Set OutlookApp = Nothing


End Sub