Compile Errorr

Har du mulighed for at vise koden?

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub LoopThroughFolder()

On Error GoTo HandleErr

    'Variable til at finde ønsket postkasse og mappe
    Dim olMailboxName As String
    Dim olMailboxFolder As String
    olMailboxName = "xxxxxx" 'Angiv navnet på den aktuelle postkasse her
    olMailboxFolder = "xxxxxx" 'Angiv navnet på den aktuelle mappe her
   
    If olMailboxName = "" Or olMailboxFolder = "" Then
        MsgBox ("Enten er der ikke angivet nogen postkasse eller ikke angivet nogen mappe, som der skal slås op i. Angiv disse indstillinger i toppen af makroen og forsøg igen.")
        Exit Sub
    End If
   
    'Det aktuelle Outlook objekt gemmes
    Dim olCurApp As Outlook.Application
    Set olCurApp = CreateObject("Outlook.Application")

    'Variable til at søge gennem Outlooks mappestruktur oprettes
    Dim olFolder As Outlook.Folder
    Dim olSubFolder As Outlook.Folder
    Dim olMailItem As Outlook.MailItem
    Dim olItemsColl As Items
   
    'Variable til at gemme og udskrive vedhæftninger
    Dim olAtmt As Attachment
    Dim strFileName As String

    'Hele Outlooks mappestruktur søges igennem for at finde den ønskede postkasse samt den ønskede mappe.
    For Each olFolder In olCurApp.Session.Folders
       
        'Finder postkasse
        If olFolder.Name = olMailboxName Then
            For Each olSubFolder In olFolder.Folders
                'Finder mappe i postkasse
                If olSubFolder.Name = olMailboxFolder Then
                    'Gemmer items i variabel til sortering
                    Set olItemsColl = olSubFolder.Items
                    'Sorterer items i variabel
                    olItemsColl.Sort "[Subject]"
                    'Løber alle items igennem i variabel
                    For Each olMailItem In olItemsColl
                        'Løber alle vedhæftninger igennem for items fundet
                        For Each olAtmt In olMailItem.Attachments
                            'Gemmer vedhæftninger
                            strFileName = "C:\Temp\" & olAtmt.FileName
                            olAtmt.SaveAsFile strFileName
                            'Udskriver gemte vedhæftninger
                            Shell """C:\Program\Adobe\Acrobat 11.0\Acrobat\AcroRd32.exe"" /p /h """ + strFileName + """", vbHide
                            'Vent 2 sekund
                            Sleep (2000)
   
                        Next
                    Next

                  GoTo ExitHere
                End If
            Next
        End If
       
    Next
   
   
ExitHere:
  Set olCurApp = Nothing
  Exit Sub

' Error handling block added by VBA Code Commenter and Error Handler Add-In. DO NOT EDIT this block of code.
' Automatic error handler last updated at 30. oktober 2008 14:30:08
HandleErr:
  Select Case Err.Number
    Case Else
      MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, "modTDS.LoopThroughFolder"
  End Select
' End Error handling block.
   
   
End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

End Sub

Hvor er den viste kode placeret?

Er der mere end denne?

Koden er placeret under Modules (project1)og jeg har kun denne ene makro

Ok

Anvender 2007 - får ikke nogen "Compile Error" - et forsøg:

Prøve at sætte ' (kommentar mærke) foran:

'Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
..
..
..
'    Sleep (2000)

det kunne måske skyldes dette - i givet fald skal der så indlægges en anden form for pause.

For Dælen da, du er genial. Det virkede og nu printes mails som de skal :)
Smider du lige et svar, og tusind tak for hjælpen

Tak for de pæne ord - og fint at det var det..

Selv tak - skulle det være en anden gang - arbejder ikke med andet.

Det er ikke utænkeligt :)God dag

I lige måde..