TimeStamp in a Task form

[Agust]

Hi.
I used a sample code from the outlookcode website to create a timestamp in a
OL task form, assigned it to a toolbar button. It works fine but I'd like to
have the stamp appear in top of the field a the cursor just below. Think
that's possible?
reg,
Agust

this is the code I used
Sub StampTime()
Dim objItem As Object
Dim objNS As namespace

Set objNS = Application.GetNamespace("MAPI")
Set objItem = Application.ActiveInspector.CurrentItem
If objItem.Class = olTask Then
objItem.body = objItem.body & vbCrLf & Now() _
& " - " & objNS.CurrentUser
End If

Set objItem = Nothing
Set objNS = Nothing
End Sub

 

[Sue Mosher [MVP-Outlook]]

If you want to control position to that degree, you'd need to use the Redemption SafeInspector object; see http://www.outlookcode.com/d/formatmsg.htm

 

[Agust]

Many thanks.
It now works out fine.
Agust

If you want to control position to that degree, you'd need to use the Redemption SafeInspector object; see http://www.outlookcode.com/d/formatmsg.htm

--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers