Export outlook vers excel avec attachement

wil2168 -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
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?
A voir également:

1 réponse

Réponse 1 / 1
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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")
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
peux-tu donner suite, ou marquer cette discussion comme résolue?
0