I'm using Outlook 2003 and creating Macros to enter repetitive notes
in contacts and tasks. I have the following code working but every
time it is run, the cursor goes to the top left of Notes for the
contact or task. Is it possible to have the cursor remain after the
text?

Public Sub RequestSoftware()

Set objItem = Application.ActiveInspector.CurrentItem
objItem.Body = objItem.Body & Format(Date, "mm/dd/yy") & "
- " & "This is my text and I want the cursor to be at the end of it" &
vbCrLf

End Sub

Thank you.

Shawn

With the Redemption (www.dimastr.com) you can determine the cursor position.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Quick-Cats - Categorize Outlook data:
<http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6>

Am 26 Apr 2007 19:11:54 -0700 schrieb srm:

> I'm using Outlook 2003 and creating Macros to enter repetitive notes
> in contacts and tasks. I have the following code working but every
> time it is run, the cursor goes to the top left of Notes for the
> contact or task. Is it possible to have the cursor remain after the
> text?
>
> Public Sub RequestSoftware()
>
> Set objItem = Application.ActiveInspector.CurrentItem
> objItem.Body = objItem.Body & Format(Date, "mm/dd/yy") & "
> - " & "This is my text and I want the cursor to be at the end of it" &
> vbCrLf
>
> End Sub
>
> Thank you.
>
> Shawn