Stats på Outlook folders

Det skal nævnes, at jeg til dato har en samling på 12144 stk. spammails i folderen. Så en manuel sortering er ikke en option ;)

Hvad med at lave en VBA makro der smider TO: adresserne ned i et Excel ark, som
du så kan lave statistik på ?

Sikkert et godt bud... hvis jeg var i stand til at lave en sådan makro ;) - så forslag til en sådan makro imødeses :)

Lav et view, der kun indeholder feltet to, og en gruppering af feltet to, så får du automatisk vist hvor mange mails der er på den enkelte adresse.

En god tanke... prøvede den lige af. Men i det meste spam, står der mange adresser i TO feltet. Dvs. resultatet er, at det er den FØRSTE modtager i TO feltet der grupperes efter.

nej... det er hele tråden... altså alle adresser. Dvs. "min.adresse@mail.dk" og "min.adresse@mail.dk; anden.adresse@hotmail.com" grupperes forskelligt.

Det har du ret i, men alternativet er nok blackadders råd. En export til excel tager også hele to rækken med. Du kan jo også sortere mailsne ud i diverse mapper via organize, men det tager jo også tid.

glemt det sidste, har du flere adresser hos samme udbyder, vil alle blive flyttet til mappen.

OK, prøv med denne her:

-------------
Public Sub OutlookSpamStatistik()

    ' Declare Outlook Objects
    ' Husk at sætte en reference til Outlook Objektet i Tools -> References
    Dim myOlApp As Outlook.Application
    Set myOlApp = CreateObject("Outlook.Application")
   
    Dim myFolder As Outlook.MAPIFolder
    Set myFolder = myOlApp.GetNamespace("MAPI").PickFolder      ' Vælg Spam folder
   
    Dim myMail As MailItem
    Set myMail = myFolder.Items.GetLast
   
    Dim i As Integer
   
    For i = 1 To myFolder.Items.Count
        With ActiveSheet
            myMail = myFolder.Items(i)
            Range(Cells(i, 1), Cells(i, 1)) = myMail.Recipients.Item(1).Address
        End With
    Next i

End Sub
-------------


Den skal indsætte i et EXCEL kode modul. dvs:
1. Luk Outlook. Åbn Excel. Tryk ALT + F11 for at komme til VB editoren.
2. Find den åbne workbook i "Project", dobbeltklik på "ThisWorkbook"
3. Paste koden ind og gem arket.
4. Luk VB editoren. Tryk ALT + F8, kør makroen "OutlookSpamStatistik"
5. Vælg din spam-mappe.
6. Sig "Ja" til at Excel får adgang til dine e-mail adresser i Outlook, 1 minut skulle være nok.

Jeg glemte noget vigtigt:
2½. I menuen Tools -> References (I Excel VB editoren) find og sæt hak ved Outlook Object Model XX.

Prøv denne her (rettet) version :-)

------------------
Public Sub OutlookSpamStatistik()

    ' Declare Outlook Objects
    ' Husk at sætte en reference til Outlook Objektet i Tools -> References
    Dim myOlApp As Outlook.Application
    Set myOlApp = CreateObject("Outlook.Application")
   
    Dim myFolder As Outlook.MAPIFolder
    Set myFolder = myOlApp.GetNamespace("MAPI").PickFolder      ' Vælg Spam folder
   
    Dim myMail As MailItem
    Set myMail = myFolder.Items.GetLast
   
    Dim i As Integer
    Dim j As Integer
   
    Cells.Delete
    j = 0
   
    For i = 1 To myFolder.Items.Count
        With ActiveSheet
            Set myMail = myFolder.Items(i)
            For j = 1 To myMail.Recipients.Count
                Range(Cells(i, j), Cells(i, j)) = myMail.Recipients.Item(j).Address
            Next j
        End With
    Next i

End Sub

------------------


Den skriver samtlige modtagere ud af alle din mails i den valgte mappe. Det er kun et problem hvis antallet overskrider antallet af kolonner i Excel (256).

nanoq >> Kunne du få det til at virke ?

Undskyld jeg er lidt sløv i optrækket.

Det fungerer for så vidt fint nok. Men jeg får jo alle modtageradresser i to feltet over. MIN adresse kan stå i en vilkårlig kolonne, så det er svært at lave en sortering der kan bruges til noget.

Desuden får jeg ikke min adresse med på de mails hvor min adresse er skrevet i CC eller BCC felterne.

Er det muligt istedet at hive adressen ud fra mailheaderen, så jeg kun får netop den adresse jeg har modtaget den enkelte mail på? :)

Men forøvrigt foreløbigt tak for forslaget. Indtil videre har jeg da lært noget nyt om hvad man kan med VBA. Noget jeg vil bore mig dybere ned i :)

Er det bare antallet af mails sendt til den enkelte adresse du ønsker, eller skal der mere information på ?

Antal mails pr. adresse er fint :)