How to move the cursor?

[Pampel]

Hello to everyone,

in a MS-Access 2010 application I have to send information with an email. I create this email with


Private Sub btnMail2_Click()
Dim myMail As Outlook.MailItem
Dim myOutlApp As Outlook.Application

Set myOutlApp = New Outlook.Application
Set myMail = myOutlApp.CreateItem(olMailItem)

With myMail
.To = Me!email
.Subject = "Betreff"
.Body = "Body"
.Display
End With

Set myMail = Nothing
Set myOutlApp = Nothing
End Sub

Works fine!!! But I want to place the cursor to a certain line in the body text so that the user may easily insert additional information by himself.

I recorded an VBA-sequence (in German: Makro, I don't know the english expression for that) in MS-Word to find out how the cursor is controlled in Word. In Word

Selection.MoveDown Unit:=wdLine, Count:=4
moves the cursor down four lines.

But when I insert this code in my MS-Access application the debugger highlights wdLine and tells me that this variable is not declared.

How can I control the cursor in an MS-Outlook email, that was created by the code shown above?


Many thanks for any hints to solve this VBA problem,


Stefan

[gmayor]

Outlook is a bit fussy to program from other applications however see the comments in line


Private Sub btnMail2_Click()
Dim myMail As Object
Dim myOutlApp As Object
Dim olInsp As Object
Dim wdDoc As Object
Dim oRng As Object
'Use the function from Ben Clothier - http://www.rondebruin.nl/win/s1/outlook/openclose.htm
'To open or create the Outlook application or the process will not work as you require
Set myOutlApp = OutlookApp() 'calls Ben Clothier's code
Set myMail = myOutlApp.CreateItem(0) 'Create a new mail item
With myMail
Set olInsp = .GetInspector
Set wdDoc = olInsp.WordEditor 'get the Word document inspector to edit the message body
Set oRng = wdDoc.Range ' Set a range to the document body
.To = Me!EMail
.Subject = "Betreff"
oRng.Collapse 1 'Collapse the range to its start i.e the message start
'(the only other thing in the message at this point should be the default signature'
'Add text from code
'oRng.Text = "Some message text"
'oRng.Collapse 0 'collapse the range to its end
oRng.Select 'type here as required
.Display
End With

Set myMail = Nothing
Set myOutlApp = Nothing
Set olInsp = Nothing
Set wdDoc = Nothing
Set oRng = Nothing
End Sub

[Pampel]

Thanks a lot, Graham - I'll give it a try

[Pampel]

Hello again,



...
Set myOutlApp = OutlookApp() 'calls Ben Clothier's code
...


debugger stopps code and heighlights OutlookApp(). There is an error message (hope I translate it correctly)

Error when compiling: Sub or function not declared.

So unfortunately your code doesn't work.

Do you have any idea why?

Stefan

[gmayor]

Did you add the code from the web site named in the macro that provides the function to open Outlook - the function which is causing the error because it is missing?
The attached zip contains a VBA module with the required code. Extract and import it into your VBA editor. The macro should then work.