Export outlook vers excel avec attachement

Signaler
-
Messages postés
13339
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
28 novembre 2020
-
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?

1 réponse

Messages postés
13339
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
28 novembre 2020
749
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")
Messages postés
13339
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
28 novembre 2020
749
peux-tu donner suite, ou marquer cette discussion comme résolue?