Outlook 2010 Insert Date & Time at the button of an OL contactform in red

witzker

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
Hi
Once you helped me with this code to put Date & Time at the bottom of a user Contact form in OL 2010
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?
 
Top