Outlook - vedhæftede filer

Jeg har en macro der eksportere macroer med vedhæftede filer - den er lidt spagetti-kode-agtig, lavet for 1000 år siden, delvist af en anden end mig selv.

Men der er garanteret noget du kan bruge... Jeg har lige klippet lidt:

Sub EksporterAttachments()
  Dim Navn
  Dim i
  Dim k
  Set myOlApp = CreateObject("Outlook.Application")
  Set myFolder = myOlApp.ActiveExplorer.CurrentFolder

  AntalBreve = myFolder.Items.Count
  For i = 1 To myNewFolder.Items.Count

    Set myItem = myFolder.Items(i)
    a = myItem.Attachments.Count
    If a > 0 Then
      For k = 1 To a
        Set myAttachments = myItem.Attachments
        myAttachments.Item(k).SaveAsFile "C:\" & myAttachments.Item(k).DisplayName
      Next k
    End If
  Next i
End Sub

Der er en masse du bør fejlsikre imod - f.eks. at filen findes på c:\ i forvejen, at der slet ikke er nogle mails elelr attachments osv

Ovenstående er til inspiration, ikke til copy-paste