Lijst van alle mail per folder

Status
Niet open voor verdere reacties.

Patsy1604

Gebruiker
Lid geworden
22 mei 2012
Berichten
92
Hallo,

Ik ben op zoek naar een manier om al mijn mail in een lijst te krijgen zodat ik gemakkelijk dubbele of niet meer nodig kan controleren. Ook zou dit handig zijn om zelfde onderwerpen bij elkaar te houden. Met andere woorden ik wil mijn outlook 2010 opkuisen en ordenen.

Ik heb zowel mails in mijn Inbox als in archieven (folders 2013 - 2014 - 2015 - 2016 - 2017 en ja al 2018). Deze folders hebben dan ook nog een subfolders. :(

In de hoop dat er iemand mij kan verder helpen dank ik jullie bij voorbaat voor jullie hulp

Met vriendelijke groeten, Patsy
 
En wat bedoel je met 'in een lijst krijgen'? Is dat een Word document, een Excel bestand, een Outlook overzicht?
 
OctaFish

ik heb ooit een link ontvangen "Full Folder Path" maar dit is om in Excel een overzicht te krijgen van de C:\, D:\, ....

echt heel handig om dan al uw data te controleren en eens een grote opkuis te doen naar dubbele documenten, of doucmenten een andere naam te geven zodat je onderwerpen beter kan sorteren (ik ben op het werk in de onmogelijkheid om programma's te downloaden)

dus echt een lijst in excel met:

Patsy.xxx@xx.be

Inbox
Draft
Sent Items

+ACxxxx-N-Course

Inbox
2015
2016
Verslagen

MijnArchive

2013
Subfolders
2014
Subfolders
2015
.....
.....

Ik hoop dat het zo duidelijk is.

mvg, patsy
 
Ik heb alvast een macro voor je die een lijst genereert van alle mappen met daarbij het aantal mails. Werkt die bij jou? En zo ja: is dit een basis waar je wat mee kan?
Code:
Sub ExportMAIL()
Dim lLinePos As Integer
    On Error Resume Next
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = True
    objExcel.DisplayAlerts = False
    Set oWB = objExcel.Workbooks.Add
    Set NS = Outlook.GetNamespace("MAPI")
    For Each olAccount In Session.Accounts
        For Each olMain In NS.Folders
            EnumFolders olMain
        Next
    Next
    Set NS = Nothing
    With oWB
        .ActiveSheet.Cells(1, 1).Value = "Folder naam:"
        .ActiveSheet.Cells(1, 2).Value = "Aantal:"
        .SaveAs "h:\OutlookCounter.xlsx"
    End With
    objExcel.Quit
    Set objExcel = Nothing
End Sub

Code:
Sub EnumFolders(olFolder As Outlook.Folder)

    For Each olFolder In olFolder.Folders
        With oWB
            .ActiveSheet.Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Value = olFolder.Name
            .ActiveSheet.Cells(Cells(Rows.Count, 1).End(xlUp).Row, 2).Value = olFolder.Items.Count
        End With
        If olFolder.Folders.Count > 0 Then EnumFolders olFolder
    Next
End Sub
 
Als je kan Sleuren en Pleuren kom je een heel eind :). Kopieer de twee macro's, druk in Outlook op <Alt>+<F11>, kies <Invoegen>, <Module> en plak de twee macro's. De bovenste macro start de functie op. Daarin gaan staan met de cursor en op <F5> drukken.
 
error bij For Each olAccount In Session.Accounts

Compile error:

Variable required - can't assign to this expression
 
Hoi,
Kijk eens als je hiermee verder kunt.
 

Bijlagen

  • Importeer E-mails.xlsb
    23,8 KB · Weergaven: 46
Ik pas mijn email adres aan en klik op Importeer E-MAIL

gele lijn voor If Folder.Name = "" Then

Run-time error '91:

Object variable or With block variable not set
 
Kijk eens of Microsoft Outlook .... Object Library is aangevinkt.
In de VBA editor (Alt + F11) -> Extra -> Verwijzingen.
 
Dan moet je Postvak IN (in B2) al vervangen door Inbox ' Je kan hier iedere folder kiezen als de folder maar bestaat in jou outlook.
en dit stukje code vervangen
Code:
Folder.Items.Sort "[COLOR="#FF0000"]Ontvangen[/COLOR]"
door
Code:
Folder.Items.Sort "[COLOR="#FF0000"]Received[/COLOR]"
 
Dank u wel het werk. Nu zie ik dat er enkele fouten in mijn mail Archief zitten dus tijd om een beetje op te kuisen.

Tot een volgende vraag en vooral doe zo voort.

Patsy :D :d
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan