We are trying to build an Outlook Contacts folder from an Access database.
There are several Distribution Lists we want to add to the folder.

How can I programatically create a distribution list entry for an Outlook
Contact that has multiple e-mail addresses?

In the example below (running in Microsoft Access) "John Smith" has one
e-mail address in his Contact item and Jim Jones has two e-mail addresses in
his Contact item.

The first CreateRecipient works fine. John Smith appears in the distribution
list, his display name is "John Smith )" and the icon to the
left of his name is the Outlook Contact busines card icon. If you
double-click on the entry the Contact form comes up.

The second CreateRecipient fails. The Resolve function returns false and
nothing is added to the list.

The third CreateRecipient succeeds, but the Display Name is "Jim Jones" and
the icon to the left of the name is the notecard that indicates a non-Contact
entry. This entry looks like it is NOT associated with an Outlook Contact.

However - if you double-click on the entry the Contact form comes up, so the
association gets made somehow. It's just that the icon and name are different.

Note that if you use the "Select Members" dialog the icon and name are set
correctly, but you can't do it from VBA. It seems a small difference, but we
want the lists to "look right".

Any ideas?

PS

Many bonus points awarded if you can tell me how to change the user profile
used in the session. The Logon and Logoff methods don't seem to work at all.
We have to manually start Outlook with the correct profile before we run the
program.




Sub AddNewMember()
'Adds a member to a new distribution list
Dim ol As New Outlook.Application
Dim oStore As Outlook.Store
Dim oRoot As Outlook.Folder
Dim oFolder As Outlook.Folder
Dim oDistListItem As Outlook.DistListItem
Dim oRecipient As Outlook.Recipient

On Error Resume Next
' ol.Session.Logoff
' ol.Session.Logon "ETaiko", , True, True

Set oStore = ol.Session.Stores("ETaiko Folders")
Set oRoot = oStore.GetRootFolder
Set oFolder = oRoot.folders("Contacts")

Set oDistListItem = oFolder.Items.Add(olDistributionListItem)
oDistListItem.DLName = "AAA Test DGroup"

'Create recipients for distlist
Set oRecipient = ol.Session.CreateRecipient("John Smith")
oRecipient.Resolve
Debug.Print "1 " & oRecipient.Resolve
oDistListItem.AddMember oRecipient
oDistListItem.Close (olSave)

Set oRecipient = ol.Session.CreateRecipient("Jim Jones")
Debug.Print "2 " & oRecipient.Resolve
oDistListItem.AddMember oRecipient
Debug.Print Err.Number & " " & Err.Description
oDistListItem.Close (olSave)

Set oRecipient = ol.Session.CreateRecipient("Jim Jones )")
Debug.Print "3 " & oRecipient.Resolve
oDistListItem.AddMember oRecipient
Debug.Print Err.Number & " " & Err.Description
oDistListItem.Close (olSave)

End Sub

Pass an e-mail to CreateRecipient address rather than a name.

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"David Lingren" wrote in message
...

We are trying to build an Outlook Contacts folder from an Access database.
There are several Distribution Lists we want to add to the folder.

How can I programatically create a distribution list entry for an Outlook
Contact that has multiple e-mail addresses?

In the example below (running in Microsoft Access) "John Smith" has one
e-mail address in his Contact item and Jim Jones has two e-mail addresses
in
his Contact item.

The first CreateRecipient works fine. John Smith appears in the
distribution
list, his display name is "John Smith )" and the icon to
the
left of his name is the Outlook Contact busines card icon. If you
double-click on the entry the Contact form comes up.

The second CreateRecipient fails. The Resolve function returns false and
nothing is added to the list.

The third CreateRecipient succeeds, but the Display Name is "Jim Jones"
and
the icon to the left of the name is the notecard that indicates a
non-Contact
entry. This entry looks like it is NOT associated with an Outlook Contact.

However - if you double-click on the entry the Contact form comes up, so
the
association gets made somehow. It's just that the icon and name are
different.

Note that if you use the "Select Members" dialog the icon and name are set
correctly, but you can't do it from VBA. It seems a small difference, but
we
want the lists to "look right".

Any ideas?

PS

Many bonus points awarded if you can tell me how to change the user
profile
used in the session. The Logon and Logoff methods don't seem to work at
all.
We have to manually start Outlook with the correct profile before we run
the
program.




Sub AddNewMember()
'Adds a member to a new distribution list
Dim ol As New Outlook.Application
Dim oStore As Outlook.Store
Dim oRoot As Outlook.Folder
Dim oFolder As Outlook.Folder
Dim oDistListItem As Outlook.DistListItem
Dim oRecipient As Outlook.Recipient

On Error Resume Next
' ol.Session.Logoff
' ol.Session.Logon "ETaiko", , True, True

Set oStore = ol.Session.Stores("ETaiko Folders")
Set oRoot = oStore.GetRootFolder
Set oFolder = oRoot.folders("Contacts")

Set oDistListItem = oFolder.Items.Add(olDistributionListItem)
oDistListItem.DLName = "AAA Test DGroup"

'Create recipients for distlist
Set oRecipient = ol.Session.CreateRecipient("John Smith")
oRecipient.Resolve
Debug.Print "1 " & oRecipient.Resolve
oDistListItem.AddMember oRecipient
oDistListItem.Close (olSave)

Set oRecipient = ol.Session.CreateRecipient("Jim Jones")
Debug.Print "2 " & oRecipient.Resolve
oDistListItem.AddMember oRecipient
Debug.Print Err.Number & " " & Err.Description
oDistListItem.Close (olSave)

Set oRecipient = ol.Session.CreateRecipient("Jim Jones
)")
Debug.Print "3 " & oRecipient.Resolve
oDistListItem.AddMember oRecipient
Debug.Print Err.Number & " " & Err.Description
oDistListItem.Close (olSave)

End Sub

Thanks for your quick reaponse, but passing the e-mail address to
CreateRecipient doesn't work, either. The icon displayed is the non-contact
"notecard" and the Display Name contains the e-mail address, not the contact
name.

"Dmitry Streblechenko" wrote:

Pass an e-mail to CreateRecipient address rather than a name.

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-

I can only recomment Redemption which allows to prograammatically add a
contact through the RDODistListItem.AddContact method:
http://www.dimastr.com/redemption/rd...stListItem.htm

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"David Lingren" wrote in message
news
Thanks for your quick reaponse, but passing the e-mail address to
CreateRecipient doesn't work, either. The icon displayed is the
non-contact
"notecard" and the Display Name contains the e-mail address, not the
contact
name.

"Dmitry Streblechenko" wrote:

Pass an e-mail to CreateRecipient address rather than a name.

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-

Dmitry,

Thanks for your suggestion of 2/24. I downloaded and installed Outlook
Redemption and have made considerable progress. However, I have a related
problem.

I am trying to extract Contacts and Personal Distribution Lists to an Access
database so we can analyse them. I can't find a way to tell which members of
a MAPIPDL are related to Contacts in the address book so I can retrieve the
"FileAs" property that uniquely identifies each of them.

The code below is as close as I can get. The problem is that the
"oMember.GetContact" method always returns Nothing for members of a MAPIPDL.
Is there another way I can get from a MAPIPDL member to the related Contact?

Outlook (2007) does this somehow...

Thanks for all your help so far. By the way, OutlookSpy is terrific!

David Lingren


Sub EnumerateRDOAddressLists()

' Set up Redemption Objects.
Dim oSession As Redemption.RDOSession
Dim oAddressBook As Redemption.RDOAddressBook
Dim oAddressLists As Redemption.RDOAddressLists
Dim oAddresslist As Redemption.RDOAddressList
Dim oAddressEntries As Redemption.RDOAddressEntries
Dim oAddressEntry As Redemption.RDOAddressEntry
Dim oContact As Redemption.RDOContactItem
Dim oMembers As Redemption.RDOAddressEntries
Dim oMember As Redemption.RDOAddressEntry

Set oSession = New RDOSession
oSession.Logon ("ETaiko")

Set oAddressBook = oSession.AddressBook
Set oAddressLists = oAddressBook.AddressLists

For Each oAddresslist In oAddressLists
Debug.Print oAddresslist.Name

Set oAddressEntries = oAddresslist.AddressEntries
For Each oAddressEntry In oAddressEntries
Debug.Print oAddressEntry.Type & " " & oAddressEntry.Address & "
" & oAddressEntry.Name

If oAddressEntry.Type = "MAPIPDL" Then
Set oContact = oAddressEntry.GetContact
Set oMembers = oAddressEntry.Members
Debug.Print "MAPIPDL " & oContact.FileAs & " " &
oMembers.Count

For Each oMember In oMembers
Debug.Print "Member " & oMember.Name & ", " &
oMember.Address & ", " & oMember.Type
Set oContact = oMember.GetContact
If Not (oContact Is Nothing) Then
Debug.Print "Member FileAs " & oContact.FileAs
End If
Next
Else
Set oContact = oAddressEntry.GetContact
If Not (oContact Is Nothing) Then Debug.Print "CONTACT " &
oContact.FileAs
End If
Next
Next

Set oMember = Nothing
Set oMembers = Nothing
Set oContact = Nothing
Set oAddressEntry = Nothing
Set oAddressEntries = Nothing
Set oAddresslist = Nothing
Set oAddressLists = Nothing
oSession.Logoff
Set oSession = Nothing
End Sub



"Dmitry Streblechenko" wrote:

I can only recomment Redemption which allows to prograammatically add a
contact through the RDODistListItem.AddContact method:
http://www.dimastr.com/redemption/rd...stListItem.htm

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"David Lingren" wrote in message
news
Thanks for your quick reaponse, but passing the e-mail address to
CreateRecipient doesn't work, either. The icon displayed is the
non-contact
"notecard" and the Display Name contains the e-mail address, not the
contact
name.

"Dmitry Streblechenko" wrote:

Pass an e-mail to CreateRecipient address rather than a name.

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-

I hads no problem with the following script (assumign you have a contact
named "Dmitry Streblechenko").

set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set Contacts = Session.GetDefaultFolder(olFolderContacts)
set DL = Contacts.Items.Add("IPM.DistList")
DL.DLName = "test contact"
set Contact = Contacts.Items("Dmitry Streblechenko") 'add email1 address to
the DL
DL.AddContact Contact, 0
DL.Save

set AE = DL.Members(1)
set Contact = AE.GetContact
MsgBox Contact.FileAs

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"David Lingren" wrote in message
...
Dmitry,

Thanks for your suggestion of 2/24. I downloaded and installed Outlook
Redemption and have made considerable progress. However, I have a related
problem.

I am trying to extract Contacts and Personal Distribution Lists to an
Access
database so we can analyse them. I can't find a way to tell which members
of
a MAPIPDL are related to Contacts in the address book so I can retrieve
the
"FileAs" property that uniquely identifies each of them.

The code below is as close as I can get. The problem is that the
"oMember.GetContact" method always returns Nothing for members of a
MAPIPDL.
Is there another way I can get from a MAPIPDL member to the related
Contact?

Outlook (2007) does this somehow...

Thanks for all your help so far. By the way, OutlookSpy is terrific!

David Lingren


Sub EnumerateRDOAddressLists()

' Set up Redemption Objects.
Dim oSession As Redemption.RDOSession
Dim oAddressBook As Redemption.RDOAddressBook
Dim oAddressLists As Redemption.RDOAddressLists
Dim oAddresslist As Redemption.RDOAddressList
Dim oAddressEntries As Redemption.RDOAddressEntries
Dim oAddressEntry As Redemption.RDOAddressEntry
Dim oContact As Redemption.RDOContactItem
Dim oMembers As Redemption.RDOAddressEntries
Dim oMember As Redemption.RDOAddressEntry

Set oSession = New RDOSession
oSession.Logon ("ETaiko")

Set oAddressBook = oSession.AddressBook
Set oAddressLists = oAddressBook.AddressLists

For Each oAddresslist In oAddressLists
Debug.Print oAddresslist.Name

Set oAddressEntries = oAddresslist.AddressEntries
For Each oAddressEntry In oAddressEntries
Debug.Print oAddressEntry.Type & " " & oAddressEntry.Address &
"
" & oAddressEntry.Name

If oAddressEntry.Type = "MAPIPDL" Then
Set oContact = oAddressEntry.GetContact
Set oMembers = oAddressEntry.Members
Debug.Print "MAPIPDL " & oContact.FileAs & " " &
oMembers.Count

For Each oMember In oMembers
Debug.Print "Member " & oMember.Name & ", " &
oMember.Address & ", " & oMember.Type
Set oContact = oMember.GetContact
If Not (oContact Is Nothing) Then
Debug.Print "Member FileAs " & oContact.FileAs
End If
Next
Else
Set oContact = oAddressEntry.GetContact
If Not (oContact Is Nothing) Then Debug.Print "CONTACT " &
oContact.FileAs
End If
Next
Next

Set oMember = Nothing
Set oMembers = Nothing
Set oContact = Nothing
Set oAddressEntry = Nothing
Set oAddressEntries = Nothing
Set oAddresslist = Nothing
Set oAddressLists = Nothing
oSession.Logoff
Set oSession = Nothing
End Sub



"Dmitry Streblechenko" wrote:

I can only recomment Redemption which allows to prograammatically add a
contact through the RDODistListItem.AddContact method:
http://www.dimastr.com/redemption/rd...stListItem.htm

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"David Lingren" wrote in message
news
Thanks for your quick reaponse, but passing the e-mail address to
CreateRecipient doesn't work, either. The icon displayed is the
non-contact
"notecard" and the Display Name contains the e-mail address, not the
contact
name.

"Dmitry Streblechenko" wrote:

Pass an e-mail to CreateRecipient address rather than a name.

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-