How to insert a time stamp in Outlook

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

How do you quickly/automatically insert a timestamp in Outlook (using as few
keystrokes as possible)? I know formula's to do it in Excel,
shortcut/menu/macro ways to do it in Word, but HOW does a person do this in
Outlook? I'm using Ourlook 2003 v11.6 from Office Pro '03.

Specifics: I'd like to use a control or function key such as ^; to insert
either date and or time stamps; "6/29/05, 11:44am: "

I'm spoiled from using my Apple or Palm where you can do this with a
keystroke or two and want to do the same when using Outlook.

Any ideas? :) Erin
 
Several spots, appointments/meetings, emails, contact text field etc. i.e.
when opening up a contact, instead of depending on journaling (which sticks
around for a few months) I type 5/5/5, 11:11am: Placed 5m order for 4
systems, bla bla bla
 
Erin said:
Several spots, appointments/meetings, emails, contact text field etc.
Click to expand...

In other words, you want to be able to place the date in just about any text
field, similar to Excel's CTRL-;. Make a wish. Write to outwish at
microsoft dot com.
 
Yes, I want it all in order to be done with my work as soon as possible and
move on to something else. "outwish" at ms.com? Are you serious or is this
a joke? Let me guess, it's where you send gay wishes? I was being serious.
Sorry if I seem rude, it's late and I'm tired. :)

Brian Tillman said:
Erin <[email protected]> wrote: Several spots, appointments/meetings, emails, contact text field etc.
Click to expand...
 
Thanks for the code. I altered it slightly to add a time stamp to my tasks.
However, I would like it to enter the stamp at the top of the body, where the
cursor is, not at the bottom. I've refrenced the HELP and couldn't figure
this out. (very novice.) Can you help?

Public Sub StampTask()
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
 
Back
Top