Vedhæfter flere filler i outlook via multiselect på listbox

Hej eksperter

Jeg arbejder i Access 2010 og Outlook 2010

I Access har jeg en form med en listbox (lstfiler)listboxen er sat op til multiselect. Listboxen for data fra en tabel. Posterne i listboxen er i bund og grund en henvisning til filer som ligger rundt omkring på pc'en fx C:\tmp\test.txt\ etc. Nedenstående kode virker hvis jeg kun markerer en post på listboxen, men markerer jeg flere poster fejler koden med fejl 94 (run time error object or with block not set)

'Kode start'

Private Sub cmd10_Click()
Dim objOl As New Outlook.Application
Dim objPost As MailItem
Dim vedhaeftet As Attachments
Dim Itm As Variant
Dim txt As String


Set objPost = objOl.CreateItem(olMailItem)
Set vedhaeftet = objPost.Attachments
For Each Itm In Me.lstfiler.ItemsSelected
txt = Me.lstfiler.ItemData(Itm)
vedhaeftet.Add (txt)
With objPost

.Subject = "MP3 fil, " & " " & Me.Titel
.To = "anj@bryggemail.dk"
.Display

End With
Set objPost = Nothing
Set vedhaeftet = Nothing
Set objOl = Nothing
Next Itm
End Sub

'kode slut'

Jeg kan ikke lige se hvor den er gal, er der nogen der har et bud.

Hilsen
Anders.