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;

Pratite Krstaricu na www.krstarica.com