Emails in Outlook tellen

[Verwijderd]

Voor ons callcenter willen wij geautomatiseerd de aantallen binnenkomende mails gaan bijhouden. Momenteel tellen wij dagelijks handmatig de aantallen mails welke in de inboxen binnenkomen (5 verschillende inboxen in totaal).

Mijn vraag is of het mogelijk is om in een excelsheet automatisch bij te houden hoeveel mails er in de inbox van outlook binnenkomen. Gewenste telmoment zal elke ochtend om 8.00 uur moeten zijn.

Alvast bedankt voor iedere hulp.

[keur0000]

Postvak in selecteren, bestand > exporteren > excel ?

[MADG0BLIN]

Als ze in je inbox staan dan kun je dat toch in een oogopslag zien... Bij mij staat dan in het blauw het nieuwe aantal ernaast. Welke versie van outlook heb je?

[Verwijderd]

je kan dit in VB automatiseren... je kan denk ik met de Outlook.Folders en Outlook.Application objecten dit wel voor elkaar krijgen...

[RobIII]

Verwijderd schreef op 14 October 2003 @ 11:09:
je kan dit in VB automatiseren... je kan denk ik met de Outlook.Folders en Outlook.Application objecten dit wel voor elkaar krijgen...

VBScript is mss wel mooier... Ik zal eens kijken of ik iets in elkaar kan flansen

[edit]
Ok, dit geeft een optelling van alle folders in zijn totaliteit. Is makkelijk aan te passen naar je eigen behoeften.

Visual Basic:

Dim objOutlook, objNameSpace, lItemCount, myFolder

On Error Resume Next

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

MsgBox lItemCount

Sub EnumFolders(oFolder)
    For Each oFolder In oFolder.Folders
        'MsgBox oFolder.Name & " bevat " & oFolder.Items.Count & " items."
        lItemCount = lItemCount + oFolder.Items.Count
        If oFolder.Folders.Count > 0 Then EnumFolders oFolder
    Next
End Sub

Copy / Pasten naar test.vbs en dubbelklikken.

[ Voor 67% gewijzigd door RobIII op 14-10-2003 11:41 ]

[Verwijderd]

Je kan inderdaad het blauwe aantal tellen. Maar in mijn geval hebben wij 5 emailboxen, waarin iedere inbox ook submappen bevat, waarin de persoonlijke mappen van emailagents staan. Graag wil ik aan kunnen geven dat van de door mij geselecteerde folders de aantallen worden geteld en in excel worden weergegeven.

RobIII ik weet niet waar je over spreekt als je het over VBScript hebt, maar als je me kan helpen, dan heel graag.

[RobIII]

Zie mijn edit hierboven. Je kunt op regel 17 de apostrof (') aan 't begin van de regel weghalen zodat je ziet wat 'ie telt. Nu moet je alleen 't spul nog in excel zien te plempen, of heb je daar ook hulp bij nodig?

[edit1]
Iets in deze geest zou moeten werken, maar bij mij klapt 'ie eruit... Ik zoek het bugje nog effe....

Visual Basic:

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

On Error Resume Next

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

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 "C:\blaat.xls"
objExcel.Quit
Set objExcel = Nothing

Sub EnumFolders(oFolder)
    For Each oFolder In oFolder.Folders
    oWB.ActiveSheet.Cells(lLinePos,1).Value=oFolder.name
    oWB.ActiveSheet.Cells(lLinePos,2).Value=oFolder.Items.Count
    lLinePos = lLinePos + 1
        If oFolder.Folders.Count > 0 Then EnumFolders oFolder
    Next
End Sub

[edit2]
Hmmm...was rechten probleempje, code is dus gewoon goed

[edit3]
Code opgeruimd. Veel plezier ermee

[ Voor 122% gewijzigd door RobIII op 14-10-2003 11:54 ]

[Verwijderd]

Rob hardstikke bedankt voor je hulp. Ik ga even op zoek naar iemand met Visual Basic kennis (heb ik namelijk helemaal niet).
Hoop dat ik eruit ga komen...

[RobIII]

Verwijderd schreef op 14 oktober 2003 @ 12:02:
Rob hardstikke bedankt voor je hulp. Ik ga even op zoek naar iemand met Visual Basic kennis (heb ik namelijk helemaal niet).
Hoop dat ik eruit ga komen...

Huh? Laatste scriptje dat ik heb gepost doet toch wat je wil?
Knippen -> Notepad openen -> Plakken -> Opslaan als "bla.vbs" (let op dat je bestandstype op "*.*" zet, niet op "*.txt") en dubbelklikken. Dit script maakt een XLS bestand in C:\ aan genaamd blaat.xls. Daar staat alles in wat je wil weten, toch?

[Verwijderd]

Perfect, dit is wat ik nodig had. Nu nog even aan de slag om alles in een grafiek te zetten en klaar mijn Reporting.
Bedankt Rob

[Verwijderd]

Nog een laatste vraagje, is het mogelijk om te kiezen welke mappen ik wil weergeven en is het mogelijk om de status van de mails te bekijken (dus gelezen, ongelezen, flag etc)?

[RobIII]

Alles kan! Maar dan moet je toch echt effe een scripter erbij gaan halen
* RobIII is *druk *druk *druk

[Verwijderd]

En tegen betaling???

[RobIII]

Verwijderd schreef op 14 oktober 2003 @ 17:06:
En tegen betaling???

<grijnz>
Mail me maar
</grijnz>

Er zijn zat lui hier die je kunnen helpen. Ik zou het eerst hier nog effe afwachten

Ach, f*ck it... Geef me 5 minuten, flans ik wat voor je in elkaar...

Visual Basic:

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

strFolders = "inbox|sent items|test"

On Error Resume Next

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 "C:\blaat.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

Zoiets, uit blote bolleke. Je kunt strFolders aanpassen en daar alle mappen in zetten die je in je excel sheet wil hebben, gescheiden door pipe's (|) (zie voorbeeld op regel 4).

Zorg dus wel dat de waardes tussen twee quotes (") staan en dat de mappen gescheiden worden door |.

[ Voor 123% gewijzigd door RobIII op 14-10-2003 17:20 ]

[Verwijderd]

Ik heb wat te doen vanavond :-) Heel erg bedankt

[Verwijderd]

Kan iemand mij nog helpen met de toevoeging die ik moet maken om het aantal ongelezen en gelezen mailtjes te tellen in een bepaalde map. Dus exclusief mailtjes die geforward en gereplied zijn en de mailtjes die een vlag bevatten (no responce necessary).

[F_J_K]

Verwijderd schreef op 14 October 2003 @ 19:36:
Kan iemand mij nog helpen met de toevoeging die ik moet maken om het aantal ongelezen en gelezen mailtjes te tellen in een bepaalde map. Dus exclusief mailtjes die geforward en gereplied zijn en de mailtjes die een vlag bevatten (no responce necessary).

Ik kan je helaas niet helpen door je de oplossing te geven (m'n trien gaat, ik ben het overwerk zat )
Maar ik kan je wel goed helpen door je te wijzen op de gruwelijk veel beschikbare documentatie over VBScript en Outlook automatisering dmv. de WSH (Windows Scripting Host). Zo heeft microsoft.com heel veel info en geeft bijv. [google=tutorial VBScript outlook] of pak-em-beet [google=oFolder.Items] heel veel info, met een klein beetje spelen moet je er ook zelf uitkomen met drie extra voordelen: je leert ervan werken met VBScript, ziet misschien extra zaken die ook handig zijn en na een tijdje weet je het beter dan RobIII en kan je het veel sneller dan via GoT

[RobIII]

F_J_K schreef op 14 October 2003 @ 19:51:
[...]
<knip> en na een tijdje weet je het beter dan RobIII </knip>

Aaaargh! Concurentie!! Must...stay....ahead!

Maar je hebt wel gelijk. Zo hebben de meesten het hier geleerd denk ik...

[Verwijderd]

Absoluut heel interessant allemaal, alleen weinig tijd om deze scripting te gaan bestuderen. Ga het dus even een paar weekjes uitstellen. In ieder geval allemaal bedankt voor de hulp.