Delphi - Učitavanje kontakata iz Outlook-a

Evo vrlo zanimljive i potencijalno vrlo korisne procedure kojom se iščitavaju podaci o kontaktima iz Outlook-a. Proceduru možete iskoristiti u slučaju da kreirate bilo koju aplikaciju koja ima evidenciju o kontaktima, tipa telefonski imenik, poslovni partneri, i slično. Jednostavno ugradite ovu proceduru i ponudite je korisnicima prilikom instalacione procedure vašeg programa, kako bi odmah na početku mogli da u vaš program uvezu sve postojeće kontakte, bez potrebe da ih ručno unose. Zatim te podatke smestite u sopstvenu bazu podataka.

U našem primeru, kreirali smo novi projekat, u okviru koga smo postavili samo dve kontrole: komandno dugme (Button) i memo-kontrolu (Memo). Sve što je potrebno jeste da unesete sledeću proceduru unutar obrađivača događaja OnClick dugmeta:

Uses ComObj, Outlook2000;
// ili  [Outlook8] u zavisnosti od verzije Outlook-a;


procedure TForm1.Button1Click(Sender: TObject);
var Outlook : TOutlookApplication;
    DefNamespace: NameSpace;
    Contacts: MAPIFolder;
    Contact: ContactItem;
    iCnt: Integer;
begin
        Memo1.Clear;
// Instanciranje Outlook-ovog glavnog objekta
Outlook:=TOutlookApplication.Create(self);
DefNameSpace:=Outlook.GetNamespace('MAPI');
// Citanje default foldera sa kontaktima
   Contacts:=DefNameSpace.
   GetDefaultFolder(olFolderContacts);
// Petlja kojom prolazimo sve objekte
   u folderu kontakata
for iCnt:=1 to Contacts.Items.Count do
begin
  // Citanje pojedinacnog objekta
  Contact:=Contacts.Items.Item(iCnt) as ContactItem;
  // Ucitavanje imena i prezimena kontakta u Memeo
  memo1.Lines.Add 
  (Contact.FirstName + ' ' + Contact.Lastname);
  end;
// Oslobadjanje instance
Outlook.Free;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Clear;
end;