Point til mugs

http://www.eksperten.dk/spm/450578 med løsningen:

Private Sub Kommandoknap9_Click()
a = Me.email
Dim intsearch As Long
intsearch = Me!id
a = DLookup("[email]", "email", "[id]=" & intsearch)
DoCmd.SendObject acReport, "Rapport1", "HTML(*.html)", a, "", "", "Hej", "Dette er en prøve med en vedhæftet rapport fra Access", False, ""

End Sub

Mvh

Takker mange gange