Hi!

I'm looking for a way how to use the current Outlook. I'm writing a programm
that has to read the selected email.

With

oOutlook = createobject("outlook.application")

I can only create a new instance of Outlook.

Anybody an idea?

Thanxs a lot!

Michel

instead of createobject, use getobject  =)

i think.  but try it.

jb

I think I have already seen something in Delphi like this:

try
    s :=getobject (outlook.application);
except
    s :=createobject (outlook.aplication);
end;

The syntax is certainly wrong, but that's the idea.

Rafael

Set x = GetObject("", "Outlook.Application")

Stephen King

I go a bit farther:

        Dim objOA As Object
        Set objOA = Outlook.Application

        If TypeName(objOA) = "Nothing" Then
            Dim objOL As Object
            objOL = CreateObject("Outlook.Application")
            Set objOA = New Outlook.Application
        End If

Is this a reasonable solution?  Or would GetObject create one if none were
found to exist?

-Bill Kearney

 Dim objOA as Object
 objOA = GetObject("Outlook.Application")

 If TypeName(objOA) = "Nothing" then
   objOA = CreateObject("Outlook.Application")
 End if

 An alternative approach:  Just do the CreateObject, get the Explorer
collection object, and pull out the first Explorer Item from the collection.  
That will be the pre-existing Outlook explorer.  Get the Application object
from there.  Dismiss your created application object.