Hi
I have this code to put Date & Time at the bottom of a user Contact form in OL 2010 and put the cursor there.
the code ist started with a button in the form (vba or vbscript?)

Sub Datum_Click()
Item.Body = Item.Body & vbCrLf & Date() & " - " & FormatDateTime(Time,4) & ": "
Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.SendKeys("{TAB 11}")
objWSHShell.SendKeys("^{End}")
objWSHShell.SendKeys("^{backspace}")

It would be great if this line would apear in Red in the form.

Can You pls asist?