Display Outlook from Access

[Peter Hibbs]

Hi All

I am using the code fragment below (courtesy of Tom Wickerath) to send an
e-mail via Outlook 2003 (from Access 2000). The problem is that, unlike the
DoCmd.SendObject function, Outlook does not display on screen. Is there any
way to display Outlook so that the user can see the e-mail and add any
comments. With Word the command :-

myObject.Visible = True

works but this line errors out in Outlook.

'---------------------
Dim myObject As Object, myItem As Object
Dim vCount As Long
Dim vArray() As String

On Error GoTo ProcError

Set myObject = CreateObject("Outlook.Application")
Set myItem = myObject.CreateItem(0)

.... etc
'-------------------------

 

[Ron2006]

Near the end of the code that is not there,

In place of the .send

replace it with .display

 

[Peter Hibbs]

Yep, that works a treat, thanks Ron.