Insert fax in DistListItem

M

Mpag

Hi,

I am attempting to create a DistListItem using this code:

.....
For Each ls In lst.ListItems
If ls.Checked Then
Set cnt = Session.GetItemFromID(ls.Tag)
Set rec = Session.CreateRecipient(cnt.FullName)
If rec.Resolve Then
'this code insert only the mail info. How can I get fax
dl.AddMember rec
Else
nonRes = nonRes + 1
End If
End If
Next ls
....
where lst is a listview showing a list of contacts.

When I use the outlook UI to create a DistListI I'm able to insert both
email and fax informations for each contact, but how can do this with vba?

Thanks in advantage.
Marco
 
D

Dmitry Streblechenko

You cannot do that in the Outlook Object Model.
<plug>Next version of Redemption (url below) will expose the RDODistListItem
object which would allow to add a particular address (email1, business fax,
etc) of s contact to a DL - RDODistListItem.AddContact(Contact,
AddressType). Contact me at my private e-mail address if you want a copy of
the beta version</plug>

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