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

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

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"lion" wrote in message ...
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?

"Sue Mosher [MVP-Outlook]" wrote:

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?

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

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"lion" wrote in message ...
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?
"Sue Mosher [MVP-Outlook]" wrote:

Yes, that takes a macro. See http://www.outlookcode.com/d/code/stampdate.htm

"lion" wrote in message ...
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.