Insert fax in DistListItem

  • Thread starter Thread starter Mpag
  • Start date Start date
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
 
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
 
Back
Top