--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
<sandeep...@gmail.com> wrote in message
news:2e9c54e8-44ad-4e24...@r15g2000prh.googlegroups.com...
Basically what i want to do is extract the contacts of a
DistributionList and its sub distribution lists if it contains any.
Regards,
Sandeep
--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"Sandeep" <sandeep...@gmail.com> wrote in message
news:bfb7e799-50f4-46f9...@v13g2000pro.googlegroups.com...
What else is required in addition to installing Redemption? Yours assistence
is much appreciated.
function TestRedemtionDL
MsgBox "in TestRedemtionDL"
set outlookObj=CreateObject("Outlook.Application")
set sessionObj = outlookObj.GetNameSpace("MAPI")
MsgBox "in TestRedemtionDL after app"
set Sesn = CreateObject("Redemption.RDOSession")
if Err.number <> 0 or Sesn = nothing then
MsgBox "in TestRedemtionDL after RDOSession"
end if
'Sesn.Logon
Sesn.MAPIOBJECT = sessionObj.MAPIOBJECT
MsgBox " Sesn.CurrentUser.Name " & Sesn.CurrentUser.Name
MsgBox "logging in"
set AB = Sesn.AddressBook
MsgBox "After AB "
set Recips = AB.ShowAddressBook
MsgBox Recips.Count
MsgBox "Err " & Err.Description
end function
-Kalyan
.........
set utilobj = CreateObject("Redemption.MAPIUtils")
set colCDORecips = utilobj.AddressBook(Nothing,"Select Recipient",False,
True, 1,"To")
Count = colCDORecips.Count
For i = 1 To Count
'MsgBox "redemtion " & Count
Set recipientObj = colCDORecips.Item(i)
MsgBox "recipientObj.AddressEntry.Type " &
recipientObj.AddressEntry.Type
MsgBox "recipientObj.AddressEntry.DisplayType " &
recipientObj.AddressEntry.DisplayType
MsgBox "recipientObj " & recipientObj.DisplayType
displayName=recipientObj.Name
contactType= recipientObj.AddressEntry.Type
if contactType = "EX" then
if recipientObj.AddressEntry.DisplayType = 1 then
'set Citems = recipientObj.GetMember(1)
'email=oEDL.PrimarySmtpAddress
'set SafeDist = CreateObject("Redemption.SafeDistList")
Set oDL = recipientObj
Call ShowGALInfoFromDL(recipientObj)
'SafeDist.Item=recipientObj
'SafeContact.Item=recipientObj.AddressEntries
else
email=recipientObj.AddressEntry.Fields(&H39FE001F)
addEmailItems displayName, email, mode
end if
elseif contactType = "SMTP" then
email=recipientObj.Address
addEmailItems displayName, email, mode ......
......
-Kalyan
In your test you have this line:
if Err.number <> 0 or Sesn = nothing then
You can't test for Sesn being Nothing that way, you have to test for If Sesn
Is Nothing instead.
So is Sesn nothing? Which message boxes do you get?
--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm
"Kalyan" <Kal...@discussions.microsoft.com> wrote in message
news:5A8CCFC7-C71C-4EB4...@microsoft.com...
--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"Kalyan" <Kal...@discussions.microsoft.com> wrote in message
news:F8A183F7-B16A-436E...@microsoft.com...
Can you help me in using "Redemption.MAPIUtils" (instead of
Redemption.RDOSession) if the above is not possible?
-Kalyan
--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm
"Kalyan" <Kal...@discussions.microsoft.com> wrote in message
news:1DD49DBF-2B05-4F14...@microsoft.com...