How to insert a time stamp anywhere in Outlook 2003

[Kev]

If you want to insert a timestamp anywhere in Outlook:
1. Open Outlook
2. Pres Alt+F11 to start VB editior
3. Top left box, right click project one and insert a new module
4. Left Click Module one, then in the right window paste the following
code

Sub StampContact()
Dim objItem As Object
Dim objNS As NameSpace

Set objNS = Application.GetNamespace("MAPI")
Set objItem = Application.ActiveInspector.CurrentItem
objItem.Body = objItem.Body & Now() _
& " - " & ": "
'End If

Set objItem = Nothing
Set objNS = Nothing
End Sub

5. close visual basic editor
6. Open any task, right click on the toolbar and select Customize
7. Click Commands Tab, scroll down and select Macros
8. Drag the Project1.Stamp macro up to the toolbar
9. All Done

When ever you want to insert a timestamp in Outlook, click on the
button.

Im trying to work out how to assign a KB short cut to it.

Kevin

 

[Ben M. Schorr - MVP]

Aloha Kev,

Or you could use something like AutoHotKey (http://www.autohotkey.com) to
create a similar macro that would work in Outlook or elsewhere (from a kb
shortcut).

-Ben-
Ben M. Schorr - MVP
http://www.rolandschorr.com
Microsoft OneNote FAQ: http://www.factplace.com/onenotefaq.htm