send form

I need help with a probably very simple thing. I never made anything with VB and I created a form where after clicking a button, the form will be send immediately to a recipient via intranet. The will be two buttons with different recipients. I made a code which sends an empty email to the recipient, but is has to be the form, not an empty message. And the other problem is, that it works only in the vb-editor, not after clicking the button.

Sub cmdaufnahme_click()
Dim ObjNachricht As MailItem
Set ObjNachricht = Application.CreateItem(olMailItem)

With ObjNachricht
.Subject = "Verlegung-Entlassung"
.Recipients.Add "Pforte"
.Body = currentform
.Display

.Send

End With
End Sub

I would be very pleased for any help! Thank you!
Verena

I forgot: I designed the form in outlook 2000 which shall also be the mailing programm, if this is important for the code...