export outlook vers excel avec attachement

Question

bonjour 

j'essaye de créer une macro qui me permet d'exporter vers excel 
Sub mail_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(olFolderInbox).Folders("Boîte de réception").Folders("test1")
i = 1
For Each OutlookMail In Folder.Items

    If OutlookMail.ReceivedTime >= Range("From_date").Value Then

        Range("eMail_subject").Offset(i, 0).Value = OutlookMail.Subject

        Range("eMail_date").Offset(i, 0).Value = OutlookMail.ReceivedTime

        Range("eMail_sender").Offset(i, 0).Value = OutlookMail.SenderName

        Range("eMail_text").Offset(i, 0).Value = OutlookMail.Body       

        i = i + 1

    End If

Next OutlookMail

Set Folder = Nothing

Set OutlookNamespace = Nothing

Set OutlookApp = Nothing
End Sub





ma macro se bloque sur la ligne ci-dessous
Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders("Boîte de réception").Folders("test1")

j'ai le message d'erreur suivant:
"System Error & H8004010F(-2147221233).


Pouvez vous m'aider?

yg_be · Answer

bonjour,
peux-tu utiliser les balises de code (et préciser "basic" pour du vba:  https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

moi j'essaierais ceci:
Dim Folder As MAPIFolder, dossier as MAPIFolder
' ...
Set dossier = OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders("Boîte de réception")
Set Folder = dossier.Folders("test1")

Export outlook vers excel avec attachement

1 réponse

Newsletters