Moving cursor position in email message body

[Lightwave]

Is there an automatic way of moving the cursor when an outlook email is opened using a VBA event??

Right had a look and haven't managed to google this yet but the background is as follows

I have some code that puts a recordset of people's email into outlook and leaves users with the outlook message open ready for them to append anything they want to the message body.

At the moment the cursor flashes at the very start of the message and users need to scroll down with keys or the mouse to the end before they can add additional text.

I want to automatically move the cursor to the end of the outlook email message opened using a VBA event?? Anyone got any ideas??

 

[Trevor G]

You could try using Send Keys method, here is a link

http://msdn.microsoft.com/en-us/library/office/aa202943(v=office.10).aspx

 

[Lightwave]

I'll try it out - kind of using something else.

 

[Trevor G]

Here is an example that works with Outlook and the references has been set. After the .Display you will see I have used sendkeys first one is using Ctrl + End but this highlights all the text so I have added the End so it moves to the end.

Sub sendForApproval()
'*************************************************
'VBA Code created by Trevor G November 2009
'*************************************************
Dim olApp As Outlook.Application
Dim olMail As MailItem
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
With olMail

.To = "Person@Company.co.uk" & ";" & "Another name@Company.co.uk"
.Subject = "Access Request"
.Body = "Please can you provide access to the Database system." & vbCr & vbCr & _
"The required details are as follows my First and Last Name is: " & vbCr & _
"My User ID is: " & vbCr & _
"My Computer Name is: "



.Display
SendKeys "^+{END}", True
SendKeys "{END}", True

End With
Set olMail = Nothing
Set olApp = Nothing
End Sub