Witzker
Senior Member
- OS Version(s)
- iOS
- Outlook version
- Outlook 2019 32-bit
- Email Account
- Exchange Server 2007
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?
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?