VBS outlook mail telling

[Anoniem: 806517]

Halllo,

Ik wil voor mijn werk een Macro/script die de mail telt omdat wij 5 verschillende mailboxen hebben met daarin ook een stuk of 10 sub-mapjes.
Hiervoor heb ik al basis een VBS script dat ik hier gevonden heb ik een ander topic maar deze doet nog niet helemaal wat ik wil:).

Het huidige script telt netjes hoeveel mails er in de mapjes staat maar hij negeert de mailboxen die ik aangeef.
Nou is dit niet heel erg als hij erbij zou vermelden uit welke inbox hij de informatie haalt maar ik zie nu gewoon 4x dezelfde map met een aantal erachter.
Ook wil ik het liefst nog weten hoeveel e-mails er gisteren zijn binnen gekomen per map:)
Ik heb momenteel dit:

Dim objOutlook, objNameSpace, lItemCount, lLinePos, objExcel, myFolder
Dim strFolders

strFolders = "[e-mail]|1. Klacht||3. CWize - Logbestanden|"
On Error Resume Next
strFolders = "[e-mail]|2. Gerechtelijke mail|"

Set objExcel= CreateObject("Excel.Application")
objExcel.visible=False
objExcel.DisplayAlerts = False
Set oWB = objExcel.Workbooks.Add
lLinePos = 1
strFolders = "|" & strFolders & "|"

Set objOutlook = CreateObject("Outlook.application")
Set objNameSpace = objOutlook.GetNameSpace("MAPI")
For Each myfolder In objNameSpace.Folders
EnumFolders myfolder
Next
Set objNameSpace = Nothing
Set objOutlook = Nothing


oWB.SaveAs "O:\Incassobureau\Rooster\2 Dagstart\Planbord (digitaal)\Test.xls"
objExcel.Quit
Set objExcel = Nothing

Sub EnumFolders(oFolder)
For Each oFolder In oFolder.Folders
If instr(1,strFolders,"|" & oFolder.name & "|",1)>0 then
oWB.ActiveSheet.Cells(lLinePos,1).Value=oFolder.name
oWB.ActiveSheet.Cells(lLinePos,2).Value=oFolder.Items.Count
lLinePos = lLinePos + 1
end if
If oFolder.Folders.Count > 0 Then EnumFolders oFolder
Next
End Sub

Ik hoop dat het een beetje duidelijk is:)

P.s. Sorry ik weet niet hoe het in een mooi boxje moet

[ElCondor]

Zet je code tussen [code] tags

[ code ] <-zonder de spaties
zoiets als dit
[ /code ] <- ook zonder spaties
Geeft dit:

code:

zoiets als dit

[ Voor 40% gewijzigd door ElCondor op 21-09-2016 16:28 ]

[RobIII]

ElCondor schreef op woensdag 21 september 2016 @ 16:27:
Zet je code tussen [code] tags

^ Dat: (code tags), maar doe dat dan even in een nieuw topic want dit is niet veel meer dan een Kan iemand even...?-topic en daar doen we hier niet aan. Daarbij hoort VBS/VBA en "office automatisering" niet in PRG (zie Waar hoort mijn topic?). Open gerust een nieuw topic (in het juiste forum) en hanteer daarbij dan even onze Quickstart a.u.b. Laat dus zien wat je zelf al gezocht/gevonden/geprobeerd hebt om je probleem op te lossen etc. en niet alleen maar 'dit heb ik (ergens gevonden) en het doet niet wat ik wil, ik hoop dat het een beetje duidelijk is'. Wil je het zélf niet programmeren/aanpassen/oplossen maar 't iemand voor je laten doen dan verwijs ik je graag door naar Devschuurder werven? Gebruik Vraag & Aanbod!

[ Voor 12% gewijzigd door RobIII op 21-09-2016 16:55 ]