The forums are being retired in favor of a new help portal with improved knowlege base and direct access to support. - Please visit our new help portal for information and support.

Data & Time Stamp

Have a support question regarding ClearContext for Microsoft Outlook? Find help here. Be sure to include what version of Outlook and Windows you are using.

Moderator: ClearContext Support

Data & Time Stamp

Postby asanz » Thu Dec 06, 2007 11:00 am

I'd like to request an optional button for theIMS button bar that would allow me to insert a data and/or time stamp (user configurable) at the current cursor location. This would be a great help to me, and is something that, I think, can be done easily... and I don't want to spend $$$ for another tool.

Thanks... André
Posts: 8
Joined: Thu Nov 08, 2007 8:49 am

Postby brad » Thu Dec 06, 2007 12:57 pm

Thanks for the suggestion. I have added it to the list for future consideration. I don't have an estimate for if/when we might get to it.
Brad Meador
Posts: 2161
Joined: Wed Jun 16, 2004 5:35 pm

Postby djblois » Mon Dec 10, 2007 10:57 am


An even better way to add this and meet more peoples needs would be:

Create a list of MyText where users can set up commonly used text that they can add to their appts, tasks, emails, and contacts. and then they only have to hit the dropdown to choose the text.
Daniel J Blois
Posts: 45
Joined: Tue May 24, 2005 8:00 pm


Postby AndySpamer » Mon Jan 28, 2008 6:58 am

You could add the following code and assign to a button...

Sub InsertDateTimeStamp(blnInsertAtBottom As Boolean)
' for use in contact, appointment, journal, task bodies
' not messages

' get the SafeInspector and RTFEditor
Set sInspector = CreateObject("Redemption.SafeInspector")
sInspector.item = Application.ActiveInspector
Set sRTFEd = sInspector.RTFEditor

' build the date/time and user name string to stamp
Set sCU = CreateObject("Redemption.SafeCurrentUser")
strDateStamp = Now() & " - " & sCU.Name & " : "

' get the top or bottom of item and stamp
If Not blnInsertAtBottom Then
sRTFEd.SelStart = 0
sInspector.SelText = vbCrLf & "--------------------------------------------------------------------------" & vbCrLf

sRTFEd.SelStart = 0
sInspector.SelText = strDateStamp
lenText = sRTFEd.SelLength
sRTFEd.SelStart = lenText + 1
sInspector.SelText = vbCrLf & strDateStamp
End If

Set sCU = Nothing
Set sRTFEd = Nothing
Set sInspector = Nothing
End Sub

You'll need the Outlook Redemption library from
Posts: 15
Joined: Mon Oct 16, 2006 11:04 pm

Thanks for the feedback...

Postby asanz » Mon Jan 28, 2008 8:37 am

Just found the bext thing since...wel... since CC... It's called AutoHotKey ( and allows me to define a script, such as:

FormatTime, CurrentDateTime,, MM.dd.yy
SendInput %CurrentDateTime%

save it as a script file (whatever.ahk), then assign it as a button in Outlook (and it is also a hotkey available to all apps)

Great tool at helping to make my day a little easier & more efficient... André
Posts: 8
Joined: Thu Nov 08, 2007 8:49 am

Return to ClearContext Professional Features & Support


  • Related topics
    Last post

Who is online

Users browsing this forum: No registered users and 2 guests