DoCmd.SendObject

You should filter the form so that it is only showing one record. If you have th enavigation object at the bottom of the form then it will very likley be > 1 and thats why you get more than one record in the report.

So try setting the filter (not tried it myself but it should work)

Me.filter = "IDField = " & Me.SomeField
Me.filterOn = True
DoCmd.SendObject acSendForm, , acFormatRTF, _
    "test1@domæne.dk;", , , _
    "Dette er et emne", "Dette er en test fra Access", _
    False
me.filterOn = false

You obvioulsy need to alter this line so that it contains fields from your dB
Me.filter = "IDField = " & Me.SomeField

IDField is a field in the table
Me.SomeField is a field on the form containing a value

But do you asume that I have a uniqe field in my form ?

Yes, otherwise you cant be sure you only have one record
You can just add another field (autonumber) in your table!

With this code :

Private Sub Kommandoknap8_Click()
    Me.Filter = "IDField = Adress" & Me.ID
    Me.FilterOn = True
   
    DoCmd.SendObject acSendForm, , acFormatRTF, _
    "jan@zumma.dk;", , , _
    "Dette er et emne", "Dette er en test fra Access", _
    False
   
    Me.FilterOn = False
End Sub

I get an empty RTF-file ? (Or actually the headers are there, but no data)

And I also get some popup-boxes now ??

This line is more than likley wrong
Me.Filter = "IDField = Adress" & Me.ID

IF you have a field in the table named ID and you add this to the form (at can be hidden) it will more than likley have the same name
so it will be like this

Me.Filter = "ID = " & Me.ID
or try
Me.Filter = "ID = " & Me!ID

And I also get some popup-boxes now ??
yes you will :o)
until we get it right

Got it !! :)

ThanX

selv tak :o)

One thing more : what if I want to use the data from the field Adress in the form, as my email-adress ?

I have tried with Me!Adress and Me.Adress but they both fail ?
Also have I tried with "Adress = "

?

DoCmd.SendObject acSendForm, , acFormatRTF, _
    Me.Adress, , , _
    "Dette er et emne", "Dette er en test fra Access", _
    False

or me!adress
But you must make sure it is the correct name of the field

I'm off for the night now, hope you get it working

Private Sub Kommandoknap8_Click()
    Me.Filter = "ID = " & Me.ID
    Me.FilterOn = True
   
    DoCmd.SendObject acSendForm, , acFormatRTF, Me!Adress, , , _
    "Dette er et emne", "Dette er en test fra Access", _
    False
   
    Me.FilterOn = False
End Sub

:)