VBS outlook mail telling

Status
Niet open voor verdere reacties.

Kimbly

Nieuwe gebruiker
Lid geworden
21 sep 2016
Berichten
1
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 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:

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

strFolders = "KACMIncassobureaus@vgz.nl|1. Klacht||3. CWize - Logbestanden|"
On Error Resume Next
strFolders = "creditmanagementcannockchase@vgz.nl|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:)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan