objSession.Logon , , False, False

That's what's called in CDO as a piggy-back logon, attaching to an existing
Outlook session. It would only work if Outlook is already running. An
alternative of specifying a CDO logon profile is usually not the best idea,
it ends up either leaking or creating profiles in your registry that you
don't really want.

Check for Outlook running and if it's not running then start it to avoid the
problem.

www.cdolive.com is the the Web site for CDO. The tips and tricks pages have
lots of code samples and you can download the CDO.HLP file from there which
explains all the arguments to everything in CDO.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


wrote in message
...
Hi, Ken
I am using the following code that basicly works, other than if outlook
is
closed.
hence what code is required to open outlook if it is closed?
It also looks like .AddressBook has a number of options. Could you list
or
point me to more information on the use of this command.

On Error GoTo err_Session_AddressBook
'MAPI Session
Dim objSession As MAPI.Session
Dim colCDORecips As Object

Set objSession = New MAPI.Session
'objSession.Logon "ProfileName", "outlook", False, False
objSession.Logon , , False, False
'show address book
Set colCDORecips = objSession.AddressBook(, _
"Pick Names", , , 1, _
"Recipients")
' release objects
objSession.Logoff

Set colCDORecips = Nothing
Set objSession = Nothing


err_Session_AddressBook:
If (Err = 91) Then ' MAPI dlg-related function that sets an object
MsgBox "No recipients selected"
Else
'MsgBox "Unrecoverable Error:" & Err
End If

Thank you

Dave

Ken,
I have updated my code as below, it works how I need it to. However could
you have a look at it as I do not full understand you comment on the
objSession.Logon , , False, False.
also I did have a look at the www.cdolive.com site but the sites search
does not work and the copy of the CDO.HLP I can't read at the moment hence
I will have to revisit when I have a bit more time next week.
I take it that if I make a reference to CDO.dll and in my case have an
access database in a folder with the DLL the outlook code I am using will
work on any PC that uses the access programme?


Private Sub Command43_Click()
On Error GoTo err_Session_AddressBook

Dim objOL As Outlook.Application
Dim oOutlook As Object
Dim oMail As Object
Dim objSession As MAPI.Session
Dim colCDORecips As Object

On Error Resume Next
Set objOL = GetObject(, "Outlook.Application")
If Err.Number 0 Then
Set oOutlook = CreateObject("Outlook.Application")
Set oMail = oOutlook.CreateItem(olMailItem)
oMail.Display

End If

Set objSession = New MAPI.Session
objSession.Logon "ProfileName", "outlook", False, False

Set colCDORecips = objSession.AddressBook(, _
"Pick Names", , , 1, _
"Recipients")
' release objects

objSession.Logoff

Set colCDORecips = Nothing
Set objSession = Nothing
Set objOL = Nothing
Set oOutlook = Nothing
Set oMail = Nothing

err_Session_AddressBook:
If (Err = 91) Then ' MAPI dlg-related function that sets an object
MsgBox "No recipients selected"
Else
'MsgBox "Unrecoverable Error:" & Err
End If
End Sub

Thank you for you time and comments.

If you're starting Outlook, as I recommended, then you should go back to the
original CDO logon, but modified a little:

objSession.Logon "", "", False, False

If you want that code to run on other machines they will need to have CDO
installed on them. You are not allowed to deploy or distribute CDO yourself,
that's illegal. Plus each version of CDO is customized to a specific version
of Outlook.

We also do not recommend deploying Outlook VBA macro code. That's for
personal use or prototyping, not for distribution. For deployment you should
be coding a COM addin.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


wrote in message
...
Ken,
I have updated my code as below, it works how I need it to. However could
you have a look at it as I do not full understand you comment on the
objSession.Logon , , False, False.
also I did have a look at the www.cdolive.com site but the sites search
does not work and the copy of the CDO.HLP I can't read at the moment
hence
I will have to revisit when I have a bit more time next week.
I take it that if I make a reference to CDO.dll and in my case have an
access database in a folder with the DLL the outlook code I am using will
work on any PC that uses the access programme?


Private Sub Command43_Click()
On Error GoTo err_Session_AddressBook

Dim objOL As Outlook.Application
Dim oOutlook As Object
Dim oMail As Object
Dim objSession As MAPI.Session
Dim colCDORecips As Object

On Error Resume Next
Set objOL = GetObject(, "Outlook.Application")
If Err.Number 0 Then
Set oOutlook = CreateObject("Outlook.Application")
Set oMail = oOutlook.CreateItem(olMailItem)
oMail.Display

End If

Set objSession = New MAPI.Session
objSession.Logon "ProfileName", "outlook", False, False

Set colCDORecips = objSession.AddressBook(, _
"Pick Names", , , 1, _
"Recipients")
' release objects

objSession.Logoff

Set colCDORecips = Nothing
Set objSession = Nothing
Set objOL = Nothing
Set oOutlook = Nothing
Set oMail = Nothing

err_Session_AddressBook:
If (Err = 91) Then ' MAPI dlg-related function that sets an object
MsgBox "No recipients selected"
Else
'MsgBox "Unrecoverable Error:" & Err
End If
End Sub

Thank you for you time and comments.

Thank you for the updated logon syntax.
All target PC have CDO installed so no problem with DLL now.
One final issue regarding the address book "show names from the".. drop
down.
How do I change the default location via code, eg at the moment its default
is "contacts" should I need its default to be say "outlook address book"

That's stored in the registry in the profile settings, it's all undocumented
binary and Unicode stuff there. It's something that Outlook reads on startup
only. You can't do much with that with a running session.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


wrote in message
...
Thank you for the updated logon syntax.
All target PC have CDO installed so no problem with DLL now.
One final issue regarding the address book "show names from the".. drop
down.
How do I change the default location via code, eg at the moment its
default
is "contacts" should I need its default to be say "outlook address book"

OK, I will call it a day now.
Thank you again for your help

Thanks Ken. Some days, it seems like I open my mouth just to switch
feet.

--JP

On Feb 10, 1:21*pm, "Ken Slovak - [MVP - Outlook]"
wrote:
Of course in the old days we used to use CDO.Session.AddressBook() to
display that dialog before the OOM exposed it.

--
Ken Slovak
[MVP - Outlook]http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.http://www.slovaktech.com/products.htm

"JP" wrote in message

...
I don't doubt that you've seen code that displays the address book,
but Outlook doesn't provide any means of doing so prior to Outlook
2007. I have seen (and used) VBA code that manipulates contacts, but
not in the way you want. If you can show otherwise, I'd be glad to see
it.