outlook adressbuch anzeigen um e-mail adresse auszuwählen

[rocksoft]

Hallo Susane,

ich hoffe das hilft dir weiter

quelle Autor: Mike Shkolnik

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  Kontaktordner = $0000000A;
var
  outlook, Name, Kontakte, Kontakt: OleVariant;
  i : Integer;
  l : TListItem;
begin
  outlook := CreateOleObject('Outlook.Application');
  Name := outlook.GetNameSpace('MAPI');
  Kontakte := Name.GetDefaultFolder(Kontaktordner);
  for  i := 1 to  Kontakte.Items.Count do
  begin
    Kontakt := Kontakte.Items.Item(i);
    l := LV.Items.Add;
    l.Caption := Kontakt.FullName;
    l.Subitems.Add(Kontakt.Email1Address);
    l.Subitems.Add(Kontakt.Email1AddressType);
  end;
  Outlook := UnAssigned;
end;