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;
OutlookApplicat ion1 : OleVariant;
NameSpace : OleVariant;
AddressLists : OleVariant;
AddressList : OleVariant;
AddressEntries : OleVariant;
begin
OutlookApplicat ion1 := CreateOleObject ('Outlook.Appli cation');
NameSpace := OutlookApplicat ion1.GetNamespa ce('MAPI');
NameSpace.Logon ('','',false,fa lse);
AddressLists := CreateOleObject ('Redemption.Ad dressLists');
AddressLists := NameSpace.Addre ssLists;
for i := 1 to AddressLists.co unt do
begin
combobox1.Items .Add (AddressLists.i tem(i));
AddressList := AddressLists.it em(i);
AddressEntries := AddressList.Add ressEntries;
for j:= 1 to AddressEntries. count do
begin
listbox1.Items. Add(AddressEntr ies.item(j).Nam e);
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