A Microsoft Outlook email forum. Outlook Banter

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » Outlook Banter forum » Microsoft Outlook Email Newsgroups » Outlook and VBA
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

using SelectNamesDialog



 
 
Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1  
Old September 18th 08, 07:27 PM posted to microsoft.public.outlook.program_vba
code_monkey_number_9
external usenet poster
 
Posts: 1
Default using SelectNamesDialog

question about using the SelectNamesDialog when automating Outlook 2007 from
Access 2007: the MSDN Office Developer Center remarks that, for the Display
method, "When displaying the Select Names dialog box, Display uses the
previous location and size (indicated by the top, left, width, and height) of
the dialog box."

For me this means that when I display the box, it is consistently hidden
behind one or more other open windows. When I call the dialog from my access
form, I have to click on the Outlook application (on the start bar) to
'activate' outlook for the dialog to appear.

Is there a way to set the dialog's position and/ or focus?

Here's how I'm calling the dialog:

Dim olApp As Outlook.Application
Dim olNS As Outlook.Namespace
Dim olDialog As SelectNamesDialog
Dim olAddressList As AddressList
Dim olRecipient As Outlook.Recipient
Dim strTo As String
Dim x As Integer

Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.GetNamespace("MAPI")

Set olDialog = olNS.GetSelectNamesDialog
Set olAddressList = olNS.GetGlobalAddressList

With olDialog
.InitialAddressList = olAddressList
.SetDefaultDisplayMode olDefaultMeeting
If .Display Then

For Each olRecipient In .Recipients
x = x + 1
strTo = strTo & .Recipients(x) & "; "
Next
End If
End With

Me.Text12 = strTo

Set olApp = Nothing
Set olNS = Nothing
Set olDialog = Nothing
Set olAddressList = Nothing
 




Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 02:42 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2025 Outlook Banter.
The comments are property of their posters.