Note: The other languages of the website are Google-translated. Back to English

Comment exporter des e-mails à partir de plusieurs dossiers / sous-dossiers pour exceller dans Outlook?

Lors de l'exportation d'un dossier avec l'assistant d'importation et d'exportation dans Outlook, il ne prend pas en charge le Inclure les sous-dossiers option si vous exportez le dossier vers un fichier CSV. Cependant, il sera assez long et fastidieux d'exporter chaque dossier vers un fichier CSV, puis de le convertir manuellement en classeur Excel. Ici, cet article présentera un VBA pour exporter rapidement plusieurs dossiers et sous-dossiers vers des classeurs Excel à l'aise.

Exportez plusieurs e-mails de plusieurs dossiers / sous-dossiers vers Excel avec VBA

Onglet Office - Activez la modification et la navigation par onglets dans Office et simplifiez considérablement le travail ...
Kutools for Outlook - apporte 100 fonctionnalités avancées puissantes à Microsoft Outlook
  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par règles; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier; Répondre à plusieurs e-mails à la fois; Ajouter un message d'accueil automatique quand répondre; Ajout automatique de la date et de l'heure au sujet ...
  • Outils de fixation: Détacher automatiquement, Tout compresser, Tout renommer, Tout enregistrer automatiquement ... Rapport rapide, Compter les courriers sélectionnés, Supprimer les messages et contacts en double ...
  • Plus de 100 fonctionnalités avancées résoudre la plupart de vos problèmes dans Outlook 2021 - 2010 ou Office 365. Fonctionnalités complètes Essai gratuit de 60 jours.

flèche bleue bulle droite Exportez plusieurs e-mails de plusieurs dossiers / sous-dossiers vers Excel avec VBA

Veuillez suivre les étapes ci-dessous pour exporter les e-mails de plusieurs dossiers ou sous-dossiers vers des classeurs Excel avec VBA dans Outlook.

1. presse autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez insérer > Module, puis collez sous le code VBA dans la nouvelle fenêtre Module.

VBA: Exportez les e-mails de plusieurs dossiers et sous-dossiers vers Excel

Const MACRO_NAME = "Export Outlook Folders to Excel"

Sub ExportMain()
ExportToExcel "destination_folder_path\A.xlsx", "your_email_accouny\folder\subfolder_1"
ExportToExcel "destination_folder_path\B.xlsx", "your_email_accouny\folder\subfolder_2"
MsgBox "Process complete.", vbInformation + vbOKOnly, MACRO_NAME
End Sub
Sub ExportToExcel(strFilename As String, strFolderPath As String)
Dim      olkMsg As Object
Dim olkFld As Object
Dim excApp As Object
Dim excWkb As Object
Dim excWks As Object
Dim intRow As Integer
Dim intVersion As Integer

If strFilename <> "" Then
If strFolderPath <> "" Then
Set olkFld = OpenOutlookFolder(strFolderPath)
If TypeName(olkFld) <> "Nothing" Then
intVersion = GetOutlookVersion()
Set excApp = CreateObject("Excel.Application")
Set excWkb = excApp.Workbooks.Add()
Set excWks = excWkb.ActiveSheet
'Write Excel Column Headers
With excWks
.Cells(1, 1) = "Subject"
.Cells(1, 2) = "Received"
.Cells(1, 3) = "Sender"
End With
intRow = 2
For Each olkMsg In olkFld.Items
'Only export messages, not receipts or appointment requests, etc.
If olkMsg.Class = olMail Then
'Add a row for each field in the message you want to export
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
intRow = intRow + 1
End If
Next
Set olkMsg = Nothing
excWkb.SaveAs strFilename
excWkb.Close
Else
MsgBox "The folder '" & strFolderPath & "' does not exist in Outlook.", vbCritical + vbOKOnly, MACRO_NAME
End If
Else
MsgBox "The folder path was empty.", vbCritical + vbOKOnly, MACRO_NAME
End If
Else
MsgBox "The filename was empty.", vbCritical + vbOKOnly, MACRO_NAME
End If

Set olkMsg = Nothing
Set olkFld = Nothing
Set excWks = Nothing
Set excWkb = Nothing
Set excApp = Nothing
End Sub

Public Function OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder
Dim arrFolders As Variant
Dim varFolder As Variant
Dim bolBeyondRoot As Boolean

On Error Resume Next
If strFolderPath = "" Then
Set OpenOutlookFolder = Nothing
Else
Do While Left(strFolderPath, 1) = "\"
strFolderPath = Right(strFolderPath, Len(strFolderPath) - 1)
Loop
arrFolders = Split(strFolderPath, "\")
For Each varFolder In arrFolders
Select Case bolBeyondRoot
Case False
Set OpenOutlookFolder = Outlook.Session.Folders(varFolder)
bolBeyondRoot = True
Case True
Set OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)
End Select
If Err.Number <> 0 Then
Set OpenOutlookFolder = Nothing
Exit For
End If
Next
End If
On Error GoTo 0
End Function

Function GetSMTPAddress(Item As Outlook.MailItem, intOutlookVersion As Integer) As String
Dim olkSnd As Outlook.AddressEntry
Dim olkEnt As Object

On Error Resume Next
Select Case intOutlookVersion
Case Is < 14
If Item.SenderEmailType = "EX" Then
GetSMTPAddress = SMTPEX(Item)
Else
GetSMTPAddress = Item.SenderEmailAddress
End If
Case Else
Set olkSnd = Item.Sender
If olkSnd.AddressEntryUserType = olExchangeUserAddressEntry Then
Set olkEnt = olkSnd.GetExchangeUser
GetSMTPAddress = olkEnt.PrimarySmtpAddress
Else
GetSMTPAddress = Item.SenderEmailAddress
End If
End Select
On Error GoTo 0
Set olkPrp = Nothing
Set olkSnd = Nothing
Set olkEnt = Nothing
End Function

Function GetOutlookVersion() As Integer
Dim arrVer As Variant
arrVer = Split(Outlook.Version, ".")
GetOutlookVersion = arrVer(0)
End Function

Function SMTPEX(olkMsg As Outlook.MailItem) As String
Dim olkPA As Outlook.propertyAccessor
On Error Resume Next
Set olkPA = olkMsg.propertyAccessor
SMTPEX = olkPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x5D01001E")
On Error GoTo 0
Set olkPA = Nothing
End Function

3. Veuillez ajuster le code VBA ci-dessus selon vos besoins.

(1) Remplacer chemin_dossier_destination dans le code ci-dessus avec le chemin du dossier du dossier de destination dans lequel vous allez enregistrer les classeurs exportés, tels que C: \ Utilisateurs \ DT168 \ Documents \ TEST.
(2) Remplacez your_email_accouny \ folder \ subfolder_1 et your_email_accouny \ folder \ subfolder_2 dans le code ci-dessus par les chemins de dossier des sous-dossiers dans Outlook, tels que Kelly @extendoffice.com \ Boîte de réception \ A et Kelly @extendoffice.com \ Boîte de réception \ B

4. appuie sur le F5 ou cliquez sur la cours bouton pour exécuter ce VBA. Et puis cliquez sur le OK bouton dans la boîte de dialogue Exporter les dossiers Outlook vers Excel. Voir la capture d'écran:

Et maintenant, les e-mails de tous les sous-dossiers ou dossiers spécifiés dans le code VBA ci-dessus sont exportés et enregistrés dans des classeurs Excel.


flèche bleue bulle droiteArticles Relatifs


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (10)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Comment puis-je faire en sorte que cela réapparaisse automatiquement dans les sous-dossiers?
Ce commentaire a été minimisé par le modérateur sur le site
bonjour mon cher, tout fonctionne bien merci beaucoup mais le corps n'est pas exporté, comment puis-je exporter le corps de l'e-mail aussi, le fichier excel a juste (Objet, Reçu et Expéditeur), si vous pouvez me mettre à jour avec cela résoudra un énorme problème dans mon entreprise merci encore
Ce commentaire a été minimisé par le modérateur sur le site
Salut Montasser,
Le script VBA s'exécute sur la base de la fonctionnalité d'exportation d'Outlook qui ne prend pas en charge l'exportation du contenu des messages lors de l'exportation en bloc d'e-mails à partir d'un dossier de messagerie. Par conséquent, ce script VBA ne peut pas non plus exporter le contenu du message.
Ce commentaire a été minimisé par le modérateur sur le site
cela fonctionne très bien, mais existe-t-il un moyen d'ajouter les informations non seulement pour les 4 champs ci-dessus, mais aussi pour tout ce que l'exportation d'Outlook vers PST donne? Objet Corps De : (Nom) De : (Adresse) De : (Type) À : (Nom) À : (Adresse) À : (Type) CC : (Nom) CC : (Adresse) CC : (Type) Cci : ( Nom) BCC : (Adresse) BCC : (Type) Informations de facturation Catégories Importance Kilométrage Sensibilité

J'ai essayé d'ajouter "Importance" et cela fonctionne, mais j'apprécierais que quelqu'un puisse fournir le code pour les autres champs. Merci!!
Avec excWks
.Cells(1, 1) = "Sujet"
.Cells(1, 2) = "Reçu"
.Cells(1, 3) = "Expéditeur"
.Cells(1, 4) = "Corps"
.Cells(1, 5) = "Importance"
Terminer par
intRow = 2
Pour chaque olkMsg dans olkFld.Items
'Exporter uniquement les messages, pas les reçus ni les demandes de rendez-vous, etc.
Si olkMsg.Class = olMail Alors
'Ajouter une ligne pour chaque champ du message que vous souhaitez exporter
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
excWks.Cells(intRow, 4) = olkMsg.Body
excWks.Cells(intRow, 5) = olkMsg.Importance
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, veuillez vérifier le code ci-dessous selon vos besoins :
Const MACRO_NAME = "Exporter les dossiers Outlook vers Excel"

Sous ExportMain()

ExportToExcel "chemin_dossier_destination\A.xlsx", "votre_compte_email\dossier\sous-dossier_1"

ExportToExcel "chemin_dossier_destination\B.xlsx", "votre_compte_email\dossier\sous-dossier_2"

MsgBox "Processus terminé.", vbInformation + vbOKOnly, MACRO_NAME

End Sub

Sous ExportToExcel (strFilename As String, strFolderPath As String)

Dim olkMsg en tant qu'objet

Dim olkFld As Object

Dim excApp en tant qu'objet

Dim excWkb comme objet

Dim excWks As Object

Dim intRow As Integer

Dim intVersion As Integer

Si strNomFichier <> "" Alors

Si strFolderPath <> "" Alors

Set olkFld = OpenOutlookFolder(strFolderPath)

Si TypeName(olkFld) <> "Rien" Alors

intVersion = GetOutlookVersion()

Set excApp = CreateObject("Excel.Application")

Définir excWkb = excApp.Workbooks.Add()

Définir excWks = excWkb.ActiveSheet

'Écrire les en-têtes de colonne Excel

Avec excWks

.Cells(1, 1) = "Sujet"

.Cells(1, 2) = "Corps"

.Cells(1, 3) = "Reçu"

.Cells(1, 4) = "De : (Nom)"

.Cells(1, 5) = "De : (Adresse)"

.Cells(1, 6) = "De : (Tapez)"

.Cells(1, 7) = "À : (Nom)"

.Cells(1, 8) = "À : (Adresse)"

.Cells(1, 9) = "À : (Tapez)"

.Cells(1, 10) = "CC : (Nom)"

.Cells(1, 11) = "CC : (Adresse)"

.Cells(1, 12) = "CC : (Type)"

.Cells(1, 13) = "Cci : (Nom)"

.Cells(1, 14) = "Cci : (Adresse)"

.Cellules(1, 15) = "Cci : (Type)"

.Cells(1, 16) = "Informations de facturation"

.Cells(1, 17) = "Catégories"

.Cells(1, 18) = "Importance"

.Cells(1, 19) = "Kilométrage"

.Cells(1, 20) = "Sensibilité"

Terminer par

intRow = 2

Pour chaque olkMsg dans olkFld.Items

'Exporter uniquement les messages, pas les reçus ni les demandes de rendez-vous, etc.

Si olkMsg.Class = olMail Alors

'Ajouter une ligne pour chaque champ du message que vous souhaitez exporter

excWks.Cells(intRow, 1) = olkMsg.Subject

excWks.Cells(intRow, 2) = olkMsg.Body

excWks.Cells(intRow, 3) = olkMsg.ReceivedTime

excWks.Cells(intRow, 4) = olkMsg.SenderName

excWks.Cells(intRow, 5) = GetAddress(olkMsg.Sender, intVersion)

excWks.Cells(intRow, 6) = olkMsg.Sender.Type

excWks.Cells(intRow, 7) = GetRecipientsName(olkMsg, 1, 1, intVersion)

excWks.Cells(intRow, 8) = GetRecipientsName(olkMsg, 1, 2, intVersion)

excWks.Cells(intRow, 9) = GetRecipientsName(olkMsg, 1, 3, intVersion)

excWks.Cells(intRow, 10) = GetRecipientsName(olkMsg, 2, 1, intVersion)

excWks.Cells(intRow, 11) = GetRecipientsName(olkMsg, 2, 2, intVersion)

excWks.Cells(intRow, 12) = GetRecipientsName(olkMsg, 2, 3, intVersion)

excWks.Cells(intRow, 13) = GetRecipientsName(olkMsg, 3, 1, intVersion)

excWks.Cells(intRow, 14) = GetRecipientsName(olkMsg, 3, 2, intVersion)

excWks.Cells(intRow, 15) = GetRecipientsName(olkMsg, 3, 3, intVersion)

excWks.Cells(intRow, 16) = olkMsg.BillingInformation

excWks.Cells(intRow, 17) = olkMsg.Categories

excWks.Cells(intRow, 18) = olkMsg.Importance

excWks.Cells(intRow, 19) = olkMsg.Mileage

excWks.Cells(intRow, 20) = olkMsg.Sensitivity

intRow = intRow + 1

Si fin

Suivant

Définir olkMsg = Rien

excWkb.SaveAs strFilename

excWkb.Fermer

autre

MsgBox "Le dossier '" & strFolderPath & "' n'existe pas dans Outlook.", vbCritical + vbOKOnly, MACRO_NAME

Si fin

autre

MsgBox "Le chemin du dossier était vide.", vbCritical + vbOKOnly, MACRO_NAME

Si fin

autre

MsgBox "Le nom du fichier était vide.", vbCritical + vbOKOnly, MACRO_NAME

Si fin



Définir olkMsg = Rien

Définir olkFld = Rien

Définir excWks = Rien

Définir excWkb = Rien

Définir excApp = Rien

End Sub



Fonction publique OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder

Dim arrDossiers en tant que variante

Dim varFolder As Variant

Dim bolBeyondRoot As Boolean

On Error Resume Next

Si strFolderPath = "" Alors

Définir OpenOutlookFolder = Rien

autre

Faire tant que Left(strFolderPath, 1) = "\"

strFolderPath = Droite(strFolderPath, Len(strFolderPath) - 1)

boucle

tabDossiers = Diviser(strCheminDossier, "\")

Pour chaque varFolder dans arrFolders

Sélectionner le cas bolBeyondRoot

Cas faux

Définir OpenOutlookFolder = Outlook.Session.Folders(varFolder)

bolBeyondRoot = Vrai

Cas vrai

Set OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)

End Select

Si Err.Number <> 0 Alors

Définir OpenOutlookFolder = Rien

Sortie pour

Si fin

Suivant

Si fin

En cas d'erreur GoTo 0

Fonction de fin



Fonction GetOutlookVersion() As Integer

Dim arrVer As Variant

arrVer = Split(Outlook.Version, ".")

GetOutlookVersion = arrVer(0)

Fonction de fin



Fonction SMTPEX(Entry As AddressEntry) As String

Dim olkPA As Outlook.PropertyAccessor

On Error Resume Next

Définir olkPA = Entry.PropertyAccessor

SMTPEX = olkPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x5D01001E")

En cas d'erreur GoTo 0

Définir olkPA = Rien

Fonction de fin



Fonction GetAddress(Entry As AddressEntry, intOutlookVersion As Integer) As String

Dim olkEnt As Object

On Error Resume Next

Sélectionnez le cas intOutlookVersion

Le cas est < 14

Si Entry.Type = "EX" Alors

GetAddress = SMTPEX(Entrée)

autre

GetAddress = Entrée.Adresse

Si fin

Case Else

Si Entry.AddressEntryUserType = olExchangeUserAddressEntry Alors

Définir olkEnt = Entry.GetExchangeUser

GetAddress = olkEnt.PrimarySmtpAddress

autre

GetAddress = Entrée.Adresse

Si fin

End Select

En cas d'erreur GoTo 0

Définir olkEnt = Rien

Fonction de fin



Fonction GetRecipientsName(Item As MailItem, rcpType As Integer, Ret As Integer, intOutlookVersion As Integer) As String

Dim xRcp en tant que destinataire

Dim xNames As String

xNoms = ""

Pour chaque xRcp dans Item.Recipients

Si xRcp.Type = rcpType Alors

Si Ret = 1 Alors

Si xNoms = "" Alors

xNames = xRcp.Name

autre

xNames = xNames & "; " & xRcp.Name

Si fin

SinonSi Ret = 2 Alors

Si xNoms = "" Alors

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

autre

xNames = xNames & "; " & GetAddress(xRcp.AddressEntry, intOutlookVersion)

Si fin

SinonSi Ret = 3 Alors

Si xNoms = "" Alors

xNames = xRcp.AddressEntry.Type

autre

xNames = xNames & "; " & xRcp.AddressEntry.Type

Si fin

Si fin

SinonSi xRcp.Type = rcpType Alors

Si Ret = 1 Alors

Si xNoms = "" Alors

xNames = xRcp.Name

autre

xNames = xNames & "; " & xRcp.Name

Si fin

SinonSi Ret = 2 Alors

Si xNoms = "" Alors

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

autre

xNames = xNames & "; " & GetAddress(xRcp.AddressEntry, intOutlookVersion)

Si fin

SinonSi Ret = 3 Alors

Si xNoms = "" Alors

xNames = xRcp.AddressEntry.Type

autre

xNames = xNames & "; " & xRcp.AddressEntry.Type

Si fin

Si fin

SinonSi xRcp.Type = rcpType Alors

Si Ret = 1 Alors

Si xNoms = "" Alors

xNames = xRcp.Name

autre

xNames = xNames & "; " & xRcp.Name

Si fin

SinonSi Ret = 2 Alors

Si xNoms = "" Alors

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

autre

xNames = xNames & "; " & GetAddress(xRcp.AddressEntry, intOutlookVersion)

Si fin

SinonSi Ret = 3 Alors

Si xNoms = "" Alors

xNames = xRcp.AddressEntry.Type

autre

xNames = xNames & "; " & xRcp.AddressEntry.Type

Si fin

Si fin

Si fin

Suivant

GetRecipientsName = xNames

Fonction de fin




J'espère que cela fonctionne pour toi.
Amanda à écrit son
Ce commentaire a été minimisé par le modérateur sur le site
Dans le sous ExporttoExcel, vous pouvez ajouter le corps

'Écrire les en-têtes de colonne Excel
Avec excWks
.Cells(1, 1) = "Sujet"
.Cells(1, 2) = "Reçu"
.Cells(1, 3) = "Expéditeur"
.Cells(1, 4) = "Corps"
Terminer par
intRow = 2
Pour chaque olkMsg dans olkFld.Items
'Exporter uniquement les messages, pas les reçus ni les demandes de rendez-vous, etc.
Si olkMsg.Class = olMail Alors
'Ajouter une ligne pour chaque champ du message que vous souhaitez exporter
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
excWks.Cells(intRow, 4) = olkMsg.Body
intRow = intRow + 1
Ce commentaire a été minimisé par le modérateur sur le site
Salut, J'espère que quelqu'un peut m'aider ici, je n'ai pratiquement aucune connaissance de VB mais j'ai réussi à faire fonctionner ce script pour moi jusqu'à présent.

Cependant, j'ai environ 1500 dossiers et sous-dossiers dans ma boîte de réception au total et j'aimerais vraiment un script simple pour exporter toute l'adresse e-mail que j'ai envoyée avec la ligne d'objet et la date sur des colonnes séparées dans Excel.

J'ai cherché pendant des jours et essayé de nombreux sites différents, mais je n'arrive pas à faire fonctionner un code autre que celui-ci.


Est-ce que ce que je demande est possible ? Si oui, y a-t-il quelqu'un d'assez gentil et intelligent pour m'aider avec le script dont j'ai besoin ?
Je suppose que cela a quelque chose à voir avec cette partie:


Sous ExportMain()

ExportToExcel "chemin_dossier_destination\A.xlsx", "votre_compte_email\dossier\sous-dossier_1"

ExportToExcel "chemin_dossier_destination\B.xlsx", "votre_compte_email\dossier\sous-dossier_2"

MsgBox "Processus terminé.", vbInformation + vbOKOnly, MACRO_NAME

End Sub


Merci d'avance
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Je viens d'exécuter cette macro qui fonctionne bien.
Je comprends que dans les expressions
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)

olkMsg.* et GetSMTPAddress(olkMsg, intVersion) extraient des éléments d'Outlook.

Quel est l'argument à utiliser pour obtenir l'adresse à laquelle le courrier a été envoyé ?

Lors de l'utilisation de l'assistant d'exportation d'Outlook, il est possible d'exporter cette adresse, donc je suppose qu'il serait possible de le faire via cette macro (avec quelques modifications).
Quelqu'un peut-il aider?

Cordialement
Ce commentaire a été minimisé par le modérateur sur le site
J'exécute cette macro mais j'obtiens toujours une erreur de compilation :

Utilisateur=type défini non défini

À la ligne 62 " Public Function OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder "

J'ai déjà spécifié le chemin comme suit:

ExportToExcel "C:\Users\kudus\Documents\MailExportTest\f1\A.xlsx", "myname@mydomain.com\Inbox\Black Hat Webcast"
ExportToExcel "C:\Users\\Documekudus\Documents\MailExportTest\f2\B.xlsx", "monnom@mondomaine.com\Inbox\CPD\Kaplan Training"

J'utilise Outlook 2016 au cas où c'est nécessaire
Ce commentaire a été minimisé par le modérateur sur le site
Je l'ai corrigé. Dans la fenêtre Visual Basic, accédez à Outils Référence - et la case "Bibliothèque d'objets Microsoft Outlook 16.0"

Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL