Hente data fra Outlook til Excel automatisk

Lidt inspiration:

Rem Referencen Microsoft Outlook... er tilføjet
Rem ===========================================
Sub Hovedrutine()

    antalMails = aktiverOutlookMappe("Mappenavn")
   
    Me.Lab_antal.Caption = CStr(antalMails)
   
    If antalMails > 0 Then
        For m = 1 To antalMails
            If indbakke.Items(m).Attachments.count > 0 Then
                vedhæftetFil = LCase(indbakke.Items(m).Attachments(1).Filename)
            End If
        Next m
    End If
End Sub
Private Function aktiverOutlookMappe(mappenavn)    'mappe under INDBAKKEN
On Error GoTo fejl
    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")
    Set aFold = Namespace.GetDefaultFolder(olFolderInbox)
    Set mappen = aFold.Folders(mappenavn)

    aktiverOutlookMappe = mappen.Items.count
    Exit Function
   
fejl:
    aktiverOutlookMappe = -1
End Function

Jeg er begrænset i VBA, og har kun arbejdet med Excel alene.

Kan du forklare hvad koden gør?

Henter den en vedhæftet fil og gemmer den på min harddisk?

Ovennævnte er uddrag fra et andet system, hvor en given mappe udersøges for vedhæftede filer. I det viste er det kun filnavnet der hentes (vedhæftetFil).

Ved du om det er muligt at en vedhæftet fil ned på et drev automatisk?

vf = LCase(indbakke.Items(m).Attachments(1).FileName)
indbakke.Items(m).Attachments(1).SaveAsFile "c:\" + vf

lukketid?

Beklager fraværet - jeps, sendt et svar supertekst

Ok - du får et svar...