Outlook VBA - Som sender afsender, dato mv. til regneark

Er det ok, hvis det er Excel der bliver "pladsholder" for VBA?

Er der et fælles "udgangspunkt" for mapperne?

Er det ok, hvis det er Excel der bliver "pladsholder" for VBA?

Ja.

Er der et fælles "udgangspunkt" for mapperne?

Nej, men hvis du kan vise hvordan det vil vise med en mappe ... så vil det være helt fint ... for så laver jeg bare 4 scripts.

Tak & ok - vedr. mapper - er det "faste" - så kan du jo angive stien til dem, som så kan indlægges i koden som valgmuligheder.

Det er ikke nødvendigt, da det vil være ca. 5 bestemte outlook mapper, og ud fra det så laver jeg et script for hver ...

ok..

Rem version 1 - skrevet i V/2007
Rem Reference sat til: Microsoft Outlook 12.0 Object Library - skal evt. justeres til 2003-versionsNr (11.0)
Rem Evt. til at forhindre "Et program forsøger..."
Rem www.contextmagic.com/express-clickyes/Free-version.htm
Rem ============================================================
Const mappenavn = "??"  'JUSTERES -hvis indbakken - sættes mappenavn = ""
Const startRæk = 2
Dim ræk As Integer, antalMails As Integer, mappen
Public Sub HentMails()
    sletPtIndhold
   
    antalMails = åbnOutlookMappe(mappenavn)
   
    ræk = startRæk
    traverserMappen antalMails

    Columns.AutoFit
End Sub
Private Sub sletPtIndhold()
    Range("A" & CStr(startRæk) & ":D65000").Select
    Selection.ClearContents
    Range("A" & CStr(startRæk)).Select
End Sub
Private Function åbnOutlookMappe(mappenavn)
Dim mailApp, nameSpace, aFold As MAPIFolder

    Set mailApp = CreateObject("Outlook.Application")
    Set nameSpace = mailApp.GetNamespace("MAPI")
    Set aFold = nameSpace.GetDefaultFolder(olFolderInbox)
   
    If mappenavn <> "" Then
        Set mappen = aFold.Folders(mappenavn)
    Else
        Set mappen = aFold
    End If
    åbnOutlookMappe = mappen.Items.Count
End Function
Private Sub traverserMappen(antalMails)
Dim afsender As String, modtaget As Date, besvaret As Date, besvarType As String
Dim mx As MailItem, handlinger As Outlook.Actions
    If antalMails > 0 Then
        Application.ScreenUpdating = False
   
        For m = 1 To antalMails
            Set mx = mappen.Items(m)
           
            afsender = mx.SenderEmailAddress
            modtaget = mx.ReceivedTime
           
            ActiveSheet.Range("A" & CStr(ræk)) = afsender
            ActiveSheet.Range("B" & CStr(ræk)) = modtaget
           
            ' besvaret mangler p.t.
            ' type besvarelse  mangler p.t.
            ræk = ræk + 1
        Next m
       
        Application.ScreenUpdating = True
    End If
End Sub


ps: bemærk mangler - prøve at finde info herom - men endnu er det ikke lykkedes.

Tak for det - Jeg kikker på det.

Jeg vil gerne til at starte med sige wov ... det tog lidt tid at forstå ... altså det jeg har forstået indtil nu ... Jeg har et par opfølningsspørgsmål ... Jeg håber du vil hjælpe med.

Jeg har lavet følgende rettelse:

Const mappenavn = "%userprofile%\Lokale indstillinger\Application Data\Microsoft\Outlook\outlook.ost

(Jeg regner med at det var det der skulle stå - det er en xp maskine med outlook 2003)

****************************************************************

Lad og sige at den mappe jeg forsøger at få fat i hedder Indbakke\Regnskab" ... jeg gerne vil have fat i?

Min indbakke hedder umiddelbart: "Postkasse - John Doe"

Det er ikke altid den samme postkasse jeg henviser til ... men jeg gætter på at alt ligger i "%userprofile%\Lokale indstillinger\Application Data\Microsoft\Outlook\outlook.ost"
***************************************************************

Skal der stå noget special i mappenavn?

Her:

antalMails = åbnOutlookMappe(mappenavn)?

og

Her

Private Function åbnOutlookMappe(mappenavn)?

********************************************************

Jeg kan ikke få kommandoen:

"Dim aFold As MAPIFolder"

til at virke ... den kender ikke commandoen "MAPIFolder"

Hvilket formodentlig er årsagen til at jeg ikke kan få den følgende kommando til at virke:

Set aFold = nameSpace.GetDefaultFolder(olFolderInbox)

Den kommer med fejlkoden:

"Run-time error '-2147024809(80080057)

Handlingen kunne ikke fuldføres. En eller flere parameterværdier er ikke gyldige."

Har prøvet følgende uden problemer:

I VBA-koden forudsættes det, at mappenavn findes under "OlFolderInbox".
F.eks. Indbakke\Regnskab, som du selv nævner.

--

... den kender ikke commandoen "MAPIFolder"

så er det som om referencen ikke er sat. Har du kontrolleret dette - ellers er du velkommen til at ringe til mig. TlfNr kan findes på min "www"

Med henvisning til supertekst-it.dk  sidste svar i nedenstående tråd ... lukkes hermed spørgsmålet

http://www.eksperten.dk/spm/920546/point

Endnu engang tak for hjælpen til supertekst-it.dk

Selv tak...