Indsætte dato i note felt outlook

Hvad gør jeg forkert?

Jeg ønsker at indsætte dato i notefeltet under kontaktpersoner.
Jeg har gjort flg.:

åbner outlook
klikker på kontaktpersoner
ny
funktioner
formularer
udform denne formular
formular
kontrolelement
trækker commandButton1 over fra toolboxen
højreklikker på commandButton1
ændre navn og titeltekst til cmdStampDate
lukker boxen
formular
vis programkode
i scripteditoren indsættes

Sub cmdStampDate_Click()
  Dim objNS

  Set objNS = Application.GetNamespace("MAPI")
  Item.Body = Item.Body & vbCrLf & Now() _
              & " - " & objNS.CurrentUser
  Set objNS = Nothing
End Sub

scripteditoren lukkes

feltvælger lukkes

formularen "ikke-navngivet - kontaktperson (design) gemmes (filer - gem)

ja

filer - luk

filer - luk
-------------------------------


Så går jeg ind i hovedvinduet for outlook
kontaktpersoner - ny

taster alt+F11
insert module

denne kode indsættes i højre felt:

Sub StampContact()
  Dim objApp As Application
  Dim objItem As Object
  Dim objNS As NameSpace

  Set objApp = CreateObject("Outlook.Application")
  Set objNS = objApp.GetNamespace("MAPI")
  Set objItem = objApp.ActiveInspector.CurrentItem
  If objItem.Class = olContact Then
    objItem.Body = objItem.Body & vbCrLf & Now() _
                  & " - " & objNS.CurrentUser
  End If

  Set objItem = Nothing
  Set objNS = Nothing
  Set objApp = Nothing
End Sub


F5

med macro (hvis den spørger)

der gives ret til at ændre i outlook i 10 min.

F5

Så indsættes datoen fint i note feltet!

Men funktionen ligger ikke på det knap jeg lavede i formularen.

Så hvordan får jeg tildelt ovennænte funktion til en knap så den virker hver gang en ny formular åbnes.