07.11.2016, 20:30
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Чё, в гугле проблемы?
Код:
uses ComObj;
...
procedure TForm1.Button1Click(Sender: TObject);
var
OutlookObj, ObjSpace, ObjFolder: Variant;
i: Integer;
Str: string;
begin
OutlookObj:=CreateOleObject('Outlook.Application');
ObjSpace:=OutlookObj.GetNameSpace('MAPI');
ObjFolder:=ObjSpace.GetDefaultFolder(10);
for i:=1 to ObjFolder.Items.Count do
begin
Str:='';
Str:=ObjFolder.Items[i].CompanyAndFullName+' - '+
ObjFolder.Items[i].Email1Address;
Memo1.Lines.Add(Str);
end;
OutlookObj.Quit;
end;
Downlo
|