<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=US-ASCII">
<TITLE>Message</TITLE>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR></HEAD>
<BODY>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff size=2>Hi
Drew</FONT></SPAN></DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff size=2>Thanks
for the offer of help.</FONT></SPAN></DIV>
<DIV><SPAN class=020310308-29042003></SPAN> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff size=2>After
reading around on CDO, ADSI etc I had a quick go just using the Outlook object
library and got this far:</FONT></SPAN></DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff size=2>Sub
getGAL_click()</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff size=2>'this
code based on MSKB article 313797<BR>'tweaked by rozc</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff size=2>Dim
oApp As Outlook.Application<BR>Set oApp = New
Outlook.Application</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff size=2>Dim
oNS As Outlook.NameSpace<BR>Set oNS =
oApp.GetNamespace("mapi")</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff
size=2>'oNS.Logon "rozc", "avalon", False, True<BR>'logon information does not
seem to be required if you are happy to use<BR>'the current session
profile.</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff size=2>Dim
oDLs As Outlook.AddressLists<BR>Set oDLs = oNS.AddressLists</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff size=2>Dim
oGAL As Outlook.AddressList<BR>Set oGAL = oDLs.Item("Global Address
List")</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff size=2>Dim
oEntries As Outlook.AddressEntries<BR>Set oEntries =
oGAL.AddressEntries</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff size=2>Dim
oEntry As Outlook.AddressEntry</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff size=2>Dim i
As Integer</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff size=2>For i
= 1 To oEntries.Count<BR> Set oEntry =
oEntries.Item(i)<BR> Debug.Print
oEntry.Name<BR>Next</FONT></SPAN></DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff
size=2>'oNS.Logoff</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff size=2>End
Sub</FONT></SPAN></DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff size=2>This
gets me a list of the correct names in the global address list. Unfortunately
the address attribute available here is a path to a mailbox, not an email
address - which I have't tried using for anything but I don't imagine it would
be much use.</FONT></SPAN></DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff size=2>I also
haven't tried using the Name as the recipient but I'm hoping that Outlook will
be able to resolve it. So, I maybe almost have something that will
work!</FONT></SPAN></DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff size=2>Where
I got stuck with the CDO was in referencing the GAL - all the sample code &
Exchange viewers I could find got me into every other folder but. If you can
provide me with that, I'll be your friend for life :)</FONT></SPAN></DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff
size=2>TIA</FONT></SPAN></DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=020310308-29042003><FONT face=Arial color=#0000ff
size=2>Roz</FONT></SPAN></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV></DIV>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left><FONT
face=Tahoma size=2>-----Original Message-----<BR><B>From:</B> Drew Wutka
[mailto:DWUTKA@marlow.com] <BR><B>Sent:</B> 29 April 2003 01:04<BR><B>To:</B>
'accessd@databaseadvisors.com'<BR><B>Subject:</B> RE: [AccessD] Picking up
Outlook address data etc.<BR><BR></FONT></DIV>
<DIV><SPAN class=178240200-29042003><FONT face=Arial color=#0000ff size=2>Yes,
CDO is free. It's behind MAPI, which is a pain. I personally find
CDO pretty easy to use.</FONT></SPAN></DIV>
<DIV><SPAN class=178240200-29042003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=178240200-29042003><FONT face=Arial color=#0000ff
size=2>Unless everyone wants me to clutter the list with sample code, if you
email me offline Roz, I can probably send what you are going to need piece
meal.</FONT></SPAN></DIV>
<DIV><SPAN class=178240200-29042003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=178240200-29042003><FONT face=Arial color=#0000ff
size=2>Drew</FONT></SPAN></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B> Roz Clarke
[mailto:roz.clarke@donnslaw.co.uk]<BR><B>Sent:</B> Monday, April 28, 2003
9:22 AM<BR><B>To:</B> 'accessd@databaseadvisors.com'<BR><B>Subject:</B>
[AccessD] Picking up Outlook address data etc.<BR><BR></FONT></DIV>
<P><FONT face=Arial size=2>Dear List</FONT> </P>
<P><FONT face=Arial size=2>Does anyone have the low-down on how to get data
out of Exchange? We're running Exchange 2000 with Office XP.</FONT> </P>
<P><FONT face=Arial size=2>What I need to be able to do is </FONT><BR><FONT
face=Arial size=2>a) automatically mail certain pre-defined staff members at
certain times (singly and in groups), and</FONT> <BR><FONT face=Arial
size=2>b) allow people to send ad-hoc mails from the database, selecting
from a list of staff members or typing in mail addresses.</FONT></P>
<P><FONT face=Arial size=2>Currently we are entering all email addresses
manually for the ad-hoc mails and relying on a local table of mail addresses
for the automated mails - a ridiculous duplication of effort when all this
stuff is on the system already.</FONT></P>
<P><FONT face=Arial size=2>So.... All I've managed to find on MSDN are some
references to something called CDO which can be used to extend Exchange
(though it's not wonderfully clear in what ways), but I can't see how to get
it and unless it's free I can't have it anyway.</FONT></P>
<P><FONT face=Arial size=2>Can anyone help?</FONT> </P>
<P><FONT face=Arial size=2>TIA</FONT> </P>
<P><FONT face=Arial size=2>Roz</FONT>
</P></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>