Formular som henter pdf filer

Denne åbner en vilkårlig fil hvor stien er indtastet i felt1:

Private Sub Kommandoknap28_Click()
Me.Kommandoknap28.HyperlinkAddress = Me.felt1
End Sub

Og sådan vedhæfter du en filo til din mail. Hvordan du sender formularen ved jeg ikke. Hvad vil du opnå med det?

Dim objOl As New Outlook.Application
Dim objPost As MailItem
Dim vedhæftet As Attachments
Set objPost = objOl.CreateItem(olMailItem)
Set vedhæftet = objPost.Attachments
vedhæftet.Add "C:\Documents and Settings\mugs\Skrivebord\løn.pdf"
With objPost
  .Subject = "Dette er en prøve"
  .To = "modtagerens e-mail"
  .BCC = ""
  .Body = "Hej Med dig!"
  '.Send
  '.Save
  .Display
  End With
objOl.Quit
Set objPost = Nothing
Set vedhæftet = Nothing
Set objOl = Nothing
Exit Sub
End Sub