By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
455,101 Members | 1,387 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 455,101 IT Pros & Developers. It's quick & easy.

Outlook warning when using Redemption.AddressLists (Delphi)

P: 1
I'm trying to pool contact list and code works fine but its open an outlook warning massege, please help me.

var
i,j : integer;
OutlookApplication1 : OleVariant;
NameSpace : OleVariant;
AddressLists : OleVariant;
AddressList : OleVariant;
AddressEntries : OleVariant;
begin

OutlookApplication1 := CreateOleObject('Outlook.Application');
NameSpace := OutlookApplication1.GetNamespace('MAPI');
NameSpace.Logon ('','',false,false);

AddressLists := CreateOleObject('Redemption.AddressLists');
AddressLists := NameSpace.AddressLists;

for i := 1 to AddressLists.count do
begin
combobox1.Items.Add (AddressLists.item(i));
AddressList := AddressLists.item(i);
AddressEntries := AddressList.AddressEntries;
for j:= 1 to AddressEntries.count do
begin
listbox1.Items.Add(AddressEntries.item(j).Name);
end;
end;

end;

I have looked all over http://www.dimastr.com/redemption/ and not found
anything that specifically talks about how to get to the address book. Does
anyone know what I am missing?
Thanks!
Dimitry Kashin
Mar 26 '07 #1
Share this question for a faster answer!
Share on Google+

Post your reply

Sign in to post your reply or Sign up for a free account.