hallo
ich habe einen Button in einem OL 2010 Kontaktformular gemacht der am Ende des Notizfelds das Datum usw einfügt:
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}")
Jetzt wäre es toll wenn das ganze in rot im Feld eingefügt werden könnte
Kann mir bitte jemand helfen?
Danke
LG
Witzker
|