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

Hoe exporteer ik e-mails uit meerdere mappen / submappen om uit te blinken in Outlook?

Wanneer u een map exporteert met de wizard Importeren en exporteren in Outlook, ondersteunt deze de Inclusief submappen optie als u de map naar CSV-bestand exporteert. Het zal echter behoorlijk tijdrovend en vervelend zijn om elke map naar een CSV-bestand te exporteren en deze vervolgens handmatig naar een Excel-werkmap te converteren. Hier introduceert dit artikel een VBA om snel meerdere mappen en submappen gemakkelijk naar Excel-werkmappen te exporteren.

Exporteer meerdere e-mails uit meerdere mappen / submappen naar Excel met VBA

Office-tabblad - Schakel bewerken en browsen met tabbladen in Office in en maak het werk veel gemakkelijker ...
Kutools for Outlook - Brengt 100 krachtige geavanceerde functies naar Microsoft Outlook
  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails volgens regels; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u iedereen probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het mailgesprek; Beantwoord veel e-mails tegelijk; Begroeting automatisch toevoegen wanneer antwoord; Datum en tijd automatisch toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: Automatisch loskoppelen, alles comprimeren, alles hernoemen, alles automatisch opslaan ... Quick Report, Tel geselecteerde e-mails, Dubbele e-mails en contacten verwijderen ...
  • Meer dan 100 geavanceerde functies zullen los de meeste van uw problemen op in Outlook 2021 - 2010 of Office 365. Volledige functies 60 dagen gratis op proef.

pijl blauw rechts bel Exporteer meerdere e-mails uit meerdere mappen / submappen naar Excel met VBA

Volg onderstaande stappen om e-mails uit meerdere mappen of submappen te exporteren naar Excel-werkmappen met VBA in Outlook.

1. druk op anders + F11 -toetsen om het venster Microsoft Visual Basic for Applications te openen.

2. klikken Invoegen > Moduleen plak vervolgens onder VBA-code in het nieuwe modulevenster.

VBA: exporteer e-mails uit meerdere mappen en submappen naar 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. Pas de bovenstaande VBA-code naar behoefte aan.

(1) Vervangen bestemming_map_pad in bovenstaande code met het mappad van de doelmap waarin u de geëxporteerde werkmappen opslaat, zoals C: \ Users \ DT168 \ Documents \ TEST.
(2) Vervang your_email_accouny \ folder \ submap_1 en je_email_accouny \ folder \ submap_2 in bovenstaande code door de mappaden van submappen in Outlook, zoals Kelly @extendoffice.com \ Inbox \ A en Kelly @extendoffice.com \ Inbox \ B

4. druk de F5 toets of klik op de lopen knop om deze VBA uit te voeren. En klik vervolgens op het OK knop in het pop-upvenster Outlook-mappen exporteren naar Excel. Zie screenshot:

En nu worden e-mails van alle opgegeven submappen of mappen in bovenstaande VBA-code geëxporteerd en opgeslagen in Excel-werkmappen.


pijl blauw rechts belGerelateerde artikelen


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Heb je vragen? Stel ze hier. (10)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Hoe zorg ik ervoor dat dit automatisch terugkeert naar submappen?
Deze opmerking is gemaakt door de moderator op de site
hallo schat, alles werkt goed, heel erg bedankt, maar de body is niet geëxporteerd, hoe kan ik ook de body van de e-mail exporteren, het Excel-bestand heeft alleen (onderwerp, ontvangen en afzender), als je me ermee kunt updaten, zal het een enorme kwestie oplossen in mijn bedrijf nogmaals hartelijk dank
Deze opmerking is gemaakt door de moderator op de site
Hallo Montaser,
Het VBA-script wordt uitgevoerd op basis van de exportfunctie van Outlook, die het exporteren van berichtinhoud niet ondersteunt bij het bulksgewijs exporteren van e-mails vanuit een e-mailmap. Daarom kan dit VBA-script ook geen berichtinhoud exporteren.
Deze opmerking is gemaakt door de moderator op de site
dit werkt prima, maar is er een manier om de informatie toe te voegen voor niet alleen de 4 bovenstaande velden, maar ook voor al die Outlook-export naar PST? Onderwerptekst Van: (Naam) Van: (Adres) Van: (Type) Aan: (Naam) Aan: (Adres) Aan: (Type) CC: (Naam) CC: (Adres) CC: (Type) BCC: ( Naam) BCC: (Adres) BCC: (Type) Factureringsinformatie Categorieën Belang Kilometerstand Gevoeligheid

Ik heb geprobeerd "Belang" toe te voegen en het werkt, maar ik zou het op prijs stellen als iemand de code voor de andere velden zou kunnen leveren. bedankt!!
Met excWks
.Cellen (1, 1) = "Onderwerp"
.Cellen (1, 2) = "Ontvangen"
.Cellen (1, 3) = "Afzender"
.Cellen (1, 4) = "Lichaam"
.Cellen (1, 5) = "Belang"
Eindigt met
intRij = 2
Voor elk olkMsg In olkFld.Items
'Alleen berichten exporteren, geen bonnetjes of afspraakverzoeken etc.
Als olkMsg.Class = olMail Dan
'Voeg een rij toe voor elk veld in het bericht dat u wilt exporteren
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.OntvangenTijd
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
excWks.Cells(intRow, 4) = olkMsg.Body
excWks.Cells(intRow, 5) = olkMsg.Belang
Deze opmerking is gemaakt door de moderator op de site
Hallo, controleer de onderstaande code voor uw behoeften:
Const MACRO_NAME = "Exporteer Outlook-mappen naar Excel"

Sub ExportHoofd()

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 "Proces voltooid.", vbInformation + vbOKOnly, MACRO_NAME

End Sub

Sub ExportToExcel (strFilename As String, strFolderPath As String)

Dim olkMsg als object

Dim olkFld als object

Dim excApp als object

Dim excWkb als object

ExcWks dimmen als object

IntRij dimmen als geheel getal

Dim intVersion als geheel getal

Als strBestandsnaam <> "" Dan

Als strFolderPath <> "" Dan

Stel olkFld = OpenOutlookFolder(strFolderPath) in

Als TypeName(olkFld) <> "Niets" Dan

intVersion = GetOutlookVersion()

Stel excApp = CreateObject ("Excel.Application") in

Stel excWkb = excApp.Workbooks.Add() in

Stel excWks = excWkb.ActiveSheet in

'Schrijf Excel-kolomkoppen'

Met excWks

.Cellen (1, 1) = "Onderwerp"

.Cellen (1, 2) = "Lichaam"

.Cellen (1, 3) = "Ontvangen"

.Cellen (1, 4) = "Van: (Naam)"

.Cellen (1, 5) = "Van: (Adres)"

.Cellen (1, 6) = "Van: (Type)"

.Cellen (1, 7) = "Aan: (Naam)"

.Cellen(1, 8) = "Aan: (Adres)"

.Cellen (1, 9) = "Naar: (Type)"

.Cellen (1, 10) = "CC: (Naam)"

.Cellen (1, 11) = "CC: (Adres)"

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

.Cellen (1, 13) = "BCC: (Naam)"

.Cellen (1, 14) = "BCC: (Adres)"

.Cellen (1, 15) = "BCC: (Type)"

.Cells(1, 16) = "Factureringsgegevens"

.Cellen (1, 17) = "Categorieën"

.Cellen (1, 18) = "Belang"

.Cellen (1, 19) = "Kilometerstand"

.Cellen (1, 20) = "Gevoeligheid"

Eindigt met

intRij = 2

Voor elk olkMsg In olkFld.Items

'Alleen berichten exporteren, geen bonnetjes of afspraakverzoeken etc.

Als olkMsg.Class = olMail Dan

'Voeg een rij toe voor elk veld in het bericht dat u wilt exporteren

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

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

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

excWks.Cells(intRow, 4) = olkMsg.Naam afzender

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.Belang

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

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

intRij = intRij + 1

End If

Volgende

Stel olkMsg = Niets in

excWkb.SaveAs strBestandsnaam

excWkb.Sluiten

Anders

MsgBox "De map '" & strFolderPath & "' bestaat niet in Outlook.", vbCritical + vbOKOnly, MACRO_NAME

End If

Anders

MsgBox "Het mappad was leeg.", vbCritical + vbOKOnly, MACRO_NAME

End If

Anders

MsgBox "De bestandsnaam was leeg.", vbCritical + vbOKOnly, MACRO_NAME

End If



Stel olkMsg = Niets in

Stel olkFld = Niets in

Stel excWks = Niets in

Stel excWkb = Niets in

Stel excApp = Niets in

End Sub



Openbare functie OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder

Dim arrFolders als variant

Dim varFolder als variant

Dim bolBeyondRoot als Boolean

On Error Resume Next

If strFolderPath = "" Dan

Stel OpenOutlookFolder = Niets in

Anders

Do While Left(strFolderPath, 1) = "\"

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

Ringleiding

arrFolders = Split(strFolderPath, "\")

Voor elke varFolder In arrFolders

Selecteer Case bolBeyondRoot

Case Onwaar

Stel OpenOutlookFolder = Outlook.Session.Folders(varFolder) in

bolBeyondRoot = Waar

Geval waar

Stel OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder) in

End Select

Als Foutnummer <> 0 Dan

Stel OpenOutlookFolder = Niets in

Afsluiten voor

End If

Volgende

End If

On Error GoTo 0

End Function



Functie GetOutlookVersion() Als geheel getal

Dim arrVer als variant

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

GetOutlookVersion = arrVer(0)

End Function



Functie SMTPEX (invoer als adresinvoer) als tekenreeks

Dim olkPA als Outlook.PropertyAccessor

On Error Resume Next

Stel olkPA = Entry.PropertyAccessor in

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

On Error GoTo 0

Stel olkPA = Niets in

End Function



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

Dim olkEnt Als Object

On Error Resume Next

Selecteer Case intOutlookVersie

Kast is < 14

Als Entry.Type = "EX" Dan

GetAddress = SMTPEX (invoer)

Anders

GetAddress = Entry.Adres

End If

Case Else

Als Entry.AddressEntryUserType = olExchangeUserAddressEntry Dan

Stel olkEnt = Entry.GetExchangeUser in

GetAddress = olkEnt.PrimarySmtpAddress

Anders

GetAddress = Entry.Adres

End If

End Select

On Error GoTo 0

Stel olkEnt = Niets in

End Function



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

Dim xRcp als ontvanger

Dim xNames als string

xNamen = ""

Voor elke xRcp in item.Ontvangers

Als xRcp.Type = rcpType Dan

Als Ret = 1 Dan

If xNames = "" Dan

xNamen = xRcp.Naam

Anders

xNamen = xNamen & "; " & xRcp.Naam

End If

ElseIf Ret = 2 Dan

If xNames = "" Dan

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Anders

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

End If

ElseIf Ret = 3 Dan

If xNames = "" Dan

xNames = xRcp.AddressEntry.Type

Anders

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

End If

End If

ElseIf xRcp.Type = rcpType Dan

Als Ret = 1 Dan

If xNames = "" Dan

xNamen = xRcp.Naam

Anders

xNamen = xNamen & "; " & xRcp.Naam

End If

ElseIf Ret = 2 Dan

If xNames = "" Dan

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Anders

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

End If

ElseIf Ret = 3 Dan

If xNames = "" Dan

xNames = xRcp.AddressEntry.Type

Anders

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

End If

End If

ElseIf xRcp.Type = rcpType Dan

Als Ret = 1 Dan

If xNames = "" Dan

xNamen = xRcp.Naam

Anders

xNamen = xNamen & "; " & xRcp.Naam

End If

ElseIf Ret = 2 Dan

If xNames = "" Dan

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Anders

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

End If

ElseIf Ret = 3 Dan

If xNames = "" Dan

xNames = xRcp.AddressEntry.Type

Anders

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

End If

End If

End If

Volgende

GetRecipientsName = xNamen

End Function




Ik hoop dat dit voor je werkt.
Amanda
Deze opmerking is gemaakt door de moderator op de site
In de ExporttoExcel sub kun je de body toevoegen

'Schrijf Excel-kolomkoppen'
Met excWks
.Cellen (1, 1) = "Onderwerp"
.Cellen (1, 2) = "Ontvangen"
.Cellen (1, 3) = "Afzender"
.Cellen (1, 4) = "Lichaam"
Eindigt met
intRij = 2
Voor elk olkMsg In olkFld.Items
'Alleen berichten exporteren, geen bonnetjes of afspraakverzoeken etc.
Als olkMsg.Class = olMail Dan
'Voeg een rij toe voor elk veld in het bericht dat u wilt exporteren
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.OntvangenTijd
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
excWks.Cells(intRow, 4) = olkMsg.Body
intRij = intRij + 1
Deze opmerking is gemaakt door de moderator op de site
Hallo, Hopelijk kan iemand me hier helpen, ik heb vrijwel geen kennis van VB, maar ben erin geslaagd om dit script tot nu toe voor mij werkend te krijgen.

Ik heb echter in totaal ongeveer 1500 mappen en submappen onder mijn inbox en ik zou heel graag een eenvoudig script willen om al het e-mailadres waarnaar ik heb verzonden met de onderwerpregel en datum in afzonderlijke kolommen in Excel te exporteren.

Ik heb dagenlang gezocht en veel verschillende sites geprobeerd, maar ik kan geen andere code laten werken dan deze.


Is wat ik vraag zelfs mogelijk? Zo ja, is er iemand die vriendelijk en slim genoeg is om me te helpen met het script dat ik nodig heb?
Ik neem aan dat het iets te maken heeft met dit stukje:


Sub ExportHoofd()

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 "Proces voltooid.", vbInformation + vbOKOnly, MACRO_NAME

End Sub


Alvast bedankt
Deze opmerking is gemaakt door de moderator op de site
Hoi,
Ik heb net deze macro uitgevoerd en die werkt prima.
Ik begrijp dat in de uitdrukkingen
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.OntvangenTijd
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)

de olkMsg.* en GetSMTPAddress(olkMsg, intVersion) halen dingen uit Outlook.

Wat is het argument dat moet worden gebruikt om het adres te krijgen waarnaar de e-mail is verzonden?

Bij gebruik van de Export Wizard van Outlook is het mogelijk om dit adres te exporteren, dus ik neem aan dat het mogelijk is om dit via deze macro te doen (met enige aanpassing).
Kan iemand helpen?

Met vriendelijke groet
Deze opmerking is gemaakt door de moderator op de site
Ik voer deze macro uit, maar krijg steeds een compileerfout:

Gebruiker=gedefinieerd type niet gedefinieerd

On line 62 " Openbare functie OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder "

Ik heb het pad al als volgt gespecificeerd:

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

Ik gebruik Outlook 2016 voor het geval dat nodig is
Deze opmerking is gemaakt door de moderator op de site
Ik heb het gemaakt. Ga vanuit het Visual Basic-venster naar Tools Reference - en het vak voor "Microsoft Outlook 16.0 Object Library"

Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL