optælling af mails i Outlook

Tvivler på at Outlook selv kan tælle - men

man kunne konstruere en løsning, der var baseret på en VBA-kode i Excel, der kunne generere en oversigt.

og så velkommen til Eksperten..

Ok. Det lyder interessant. Er det noget du
kan vise mig hvordan jeg laver eller er det en længere proces?  Tak for velkomsten:-)

Vender tilbage..

Rem Koden anbringes under Ark - højreklik / vis programkode /
Rem Reference sættes til Microsoft Outlook xx Object Library under Tools / References
Dim sidsteRæk As Long
Public Sub optælAntalMailPrDato()
Dim antalMails As Integer
    sidsteRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
    antalMails = åbnOutlookMappe(afold)
    placerEfterDato antalMails, afold
End Sub
Private Function åbnOutlookMappe(afold)
Dim mailApp, Namespace

    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")
    Set afold = Namespace.GetDefaultFolder(olFolderInbox)
   
    åbnOutlookMappe = afold.Items.Count
End Function
Private Sub placerEfterDato(antalMails As Integer, afold)
Dim mx As MailItem, modtagetDen As Date, dRæk As Long
    If antalMails > 0 Then
   
        Application.ScreenUpdating = False
        For m = 1 To antalMails
            Set mx = afold.Items(m)
           
            modtagetDen = Format(mx.ReceivedTime, "dd-mm-yy")
Rem findes dato i kolonne A
            dRæk = findesDato("A2:A" & sidsteRæk, modtagetDen)
            If dRæk = 0 Then
                sidsteRæk = sidsteRæk + 1
                Range("A" & sidsteRæk) = modtagetDen
                Range("B" & sidsteRæk) = 1
            Else
                Range("B" & dRæk) = Range("B" & dRæk) + 1
            End If
        Next m
    End If
    Application.ScreenUpdating = True
   
    Columns.AutoFit
End Sub
Private Function findesDato(område, id)
    With ActiveWorkbook.Sheets("Ark1").Range(område)
        Set c = .Find(id, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            findesDato = c.Row
        Else
            findesDato = 0
        End If
    End With
End Function

Tusind tak for koden:)


Jeg er dog ikke helt sikker på hvordan koden skal sættes ind i outlook og exel i praksis.

Kan du udbyde det så det er mere forståeligt for en dødelig :-)

Mange tak for din hjælp!

Selv tak.

Koden skal indsættes i Excel og der skal herfra sættes en reference til Outlook - men det nemmeste vil være at jeg sende min Excefil til dig. Hvilken version af Excel anvender du?

Send en mail - @-adresse under min profil.

Jeg har sendt dig en mail :-)

Hej,

Jeg har samme udfordring - og vil gerne have talt op på antal mails i en postkasse - men kan ikke få det til at virke.
Når scriptet afvikles via F5 og makroen kommer der en meddelelse om:
Type mismatch - og herefter 3 rækker i regnearket - en dato - og tallet 1 i en anden kolonne.

Jeg bruger excel 2007 - og VBA 6.5