Automatically enter the date in the details field (Contacts)

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

Guest

I'm using Outlook 2003 as a CRM-program.
Every time I have contacted a client or a prospect, I write down the date
and a few words in the details field.
I want to be able to use a shortcut key to place the (system)date in the
details field automatically. Do I have to create a macro to do that and what
would it look like?
Thanks in advance for your answers.
 
Hi Sue,
Thank you so much for your answer. I already found the code and applied it
in my form. I changed it a little bit:
-------
Sub StampContact()
Dim objItem As Object
Dim objNS As NameSpace

Set objNS = Application.GetNamespace("MAPI")
Set objItem = Application.ActiveInspector.CurrentItem
If objItem.Class = olContact Then
objItem.Body = FormatDateTime(Now(), 2) & ":" & vbCrLf & vbCrLf &
vbCrLf & objItem.Body
End If

Set objItem = Nothing
Set objNS = Nothing
End Sub
-------
The only question I have (at the moment) is:
when I execute this macro, it stamps the date, but the cursor is placed at
the beginning of the same line.
What do I have to add to place the cursor on the next line so I can start
typing my text right away?
Hope my question is clear to you.
(I bought your book Teach Yourself........ It's very good and I'm busy
learning the techniques).
 
Look at the statement that actually inserts the text:

objItem.Body = FormatDateTime(Now(), 2) & ":" & vbCrLf & vbCrLf & vbCrLf & objItem.Body

See what order it uses to concatenate the different text expressions? Now, change that order by rearranging the expressions.
What do I have to add to place the cursor on the next line so I can start
typing my text right away?
Click to expand...

That's not possible without a third-party component or Outlook 2007.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 
Maybe it's a bit silly, but I tryed to change the order of the concatenated
strings, but this didn't solve the problem.
In the example below the date is placed at the end of the text, but the
cursor jumps back to the top (which is even worse).

objItem.Body = objItem.Body & FormatDateTime(Now(), 2) & ":" &
vbCrLf & vbCrLf & vbCrLf

There should be a statement in VBA to move the cursor down one line, isn't
there?
 
There should be a statement in VBA to move the cursor down one line, isn't
there?
Click to expand...

See the response on this issue.in my earlier post.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 
OK, thank you.

Sue Mosher said:
See the response on this issue.in my earlier post.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
Click to expand...
 
Back
Top