Export outlook vers excel avec attachement

Fermé

wil2168 - 12 nov. 2020 à 17:39
yg_be Messages postés 22791 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 17 mai 2024 - 25 nov. 2020 à 17:06

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:

Exporter calendrier outlook vers excel
Liste déroulante excel - Guide
Synchroniser calendrier outlook et gmail - Guide
Nouveau outlook - Guide
Formule excel - Guide
Créer un compte outlook - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 22791 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 17 mai 2024 1 467
12 nov. 2020 à 18:44

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")

yg_be Messages postés 22791 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 17 mai 2024 1 467
25 nov. 2020 à 17:06

peux-tu donner suite, ou marquer cette discussion comme résolue?

Discussions similaires

Colis en cours de transport vers votre site de livraison ?

Discussions similaires

Newsletters