[AccessD] Export Outlook Global Address List

I found that Access2003 allows you to import the Address List directly
into the mdb.
By selecting a file type of 'Outlook()' or 'Exchange()' on the Import
dialog box, an option for 'Global Address List' is available.

I can't guarantee this will work, as the enormous list has been
importing for the last 2 hours.


Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 
  
Tel: +1 215 405 5576
mboyd at deloitte.com 
www.deloitte.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mike & Doris
Manning
Sent: Monday, November 07, 2005 10:15 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Export Outlook Global Address List

I don't have code for how to export it from Outlook but I do have code
for
how to import it from within Access.  My code uses Redemption to get
around
the security issues but the normal Outlook process should be identical.

Doris Manning
mikedorism at verizon.net

**************************************************************

Public Function SafeAddress(MyForm As String)
    On Error GoTo ErrorHandler
    
    Dim oSafeAddr As Object
    Dim oAddrEntries As AddressEntries
    Dim oAddrEntry As AddressEntry
    Dim FormName As Form
    Dim strDispName As String
    Dim strMailName As String
    
    Const GivenName = &H3A06001E
    Const Surname = &H3A11001E
    
    Set FormName = Forms(MyForm)
    Set oSafeAddr = CreateObject("Redemption.AddressLists")
    Set oAddrEntries = oSafeAddr("Global Address List").AddressEntries
    
    For Each oAddrEntry In oAddrEntries
        If Not IsEmpty(oAddrEntry.Fields(GivenName)) And _
        Not IsEmpty(oAddrEntry.Fields(Surname)) Then
            strDispName = oAddrEntry.Name
            strMailName = oAddrEntry.Fields(GivenName) &
oAddrEntry.Fields(Surname)
            strMailName = strMailName & "@hargroveinc.com"
            FormName!lstOthers.AddItem strDispName & ";" & strMailName
        End If
    Next oAddrEntry
    
    Set oAddrEntry = Nothing
    Set oAddrEntries = Nothing
    Set oSafeAddr = Nothing
    Set FormName = Nothing
    
    Exit Function
    
ErrorHandler:
    Call HandleErrors(Err, strMyName, "SafeAddress")
    
End Function


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com 


This message (including any attachments) contains confidential information intended for a specific individual and purpose, and is protected by law.  If you are not the intended recipient, you should delete this message. 


Any disclosure, copying, or distribution of this message, or the taking of any action based on it, is strictly prohibited. [v.E.1]