Delphi - Уписивање контаката у Outlook

Настављајући се на претходни прилог у коме смо вам приказали како да ишчитате податке о контактима из Outlook-а, у овом прилогу ћемо вам приказати како да упишете нови контакт у Outlook. Са овом процедуром можете, на пример, креирати апликацију за конверзију или импорт-експорт апликацију. Ради примера креираћемо нови Delphi пројект са формом на коју ћемо поставити неколико поља са подацима које треба да упишете у Outlook-ов фолдер Contacts. Поставите елементе (контроле) као на слици и додајте следећи програмски код:

{$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;