Delphi - Upisivanje kontakata u Outlook

Nastavljajući se na prethodni prilog u kome smo vam prikazali kako da iščitate podatke o kontaktima iz Outlook-a, u ovom prilogu ćemo vam prikazati kako da upišete novi kontakt u Outlook. Sa ovom procedurom možete, na primer, kreirati aplikaciju za konverziju ili import-eksport aplikaciju. Radi primera kreiraćemo novi Delphi projekt sa formom na koju ćemo postaviti nekoliko polja sa podacima koje treba da upišete u Outlook-ov folder Contacts. Postavite elemente (kontrole) kao na slici i dodajte sledeći programski kod:

{$IFDEF SYN_COMPILER_6}
Uses ComObj, Outlook2000;
{$ELSE}
Uses ComObj, Outlook8;
{$ENDIF}

procedure UpisNovogKontakta;
var
     OutlApp        : OutlookApplication;
     OutlNamespace  : Namespace;
     ContactFolder  : MAPIFolder;
     Contact        : ContactItem;
begin
  OutlApp:=CoOutlookApplication.Create;
  OutlNamespace:=OutlApp.GetNameSpace('MAPI');
  ContactFolder:=OutlNamespace.
    GetDefaultFolder(olFolderContacts);
  Contact:=OutlApp.
    createitem(olContactItem) as ContactItem;
  Contact.FirstName:=Form1.Edit1.Text;
  Contact.LastName:=Form1.Edit2.Text;
  Contact.HomeAddressStreet:=Form1.Edit3.Text;
  Contact.HomeAddressCountry:=Form1.Edit4.Text;
  Contact.HomeAddressPostalCode:=Form1.Edit5.Text;
  Contact.HomeAddressCity:=Form1.Edit6.Text;
  Contact.HomeTelephoneNumber:=Form1.Edit7.Text;
  Contact.HomeFaxNumber:=Form1.Edit8.Text;
  Contact.Email1Address:=Form1.Edit9.Text;
  Contact.save;
  OutlApp:=nil;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
UpisNovogKontakta
end;