Code to put Date & Time at the bottom of a user Contact form in OL 2010

[Witzker]

I put this in diese Outlook Sitzung

Public Sub DateRed()
    Dim olInsp As Outlook.Inspector
    Dim wdDoc As Object
    Dim oRng As Object
    With Item
        .Display
        Set olInsp = .GetInspector
        Set wdDoc = olInsp.WordEditor
        Set oRng = wdDoc.Range
        oRng.Collapse 0
        oRng.Text = vbCr & Date & " - " & FormatDateTime(Time, 4) & ": "
        oRng.Font.Color = &HFF
        oRng.Collapse 0
        oRng.Select
    End With
End Sub

when I open a contact and run it it says Objekt benötigt