Access

Alternativna učenja

Android

Animacija

Antropologija

Apple - MAC OS X

Arheologija

Arhitektura

Astrologija

Astronomija

Audio kursevi + knjige

Audio, Multimedia, Video

Autobiografija

AutoCad, ArchiCAD, SolidWorks, Catia, Pro/Engineer

Automobili

Bajke

Baze podataka

Biografija

Biološke nauke

Botanika

C++ Visual C++ C#

Cloud

CSS

Dečije knjige

Delphi

Digitalna fotografija

Dizajn

Django

Domaće pripovetke

Domaći roman

Drama

E-knjiga

E-komerc

ECDL

Ekologija

Ekonomija

Elektrotehnika

Enciklopedija

Esejistika

Etika

Fantastika

Film

Filologija

Filozofija

Fizika

Fotografija

Geografija

Geologija

GOOGLE

Grafika, Dizajn, Štampa

Građevinarstvo

Hardver

Hemija

Hidrotehnika

Hobi

Horor

Humor

Internet

Intervju

Istorija

Istorija i teorija književnosti

Istorija umetnosti

Istorijski roman

Java, JavaScript, JScript, Perl

Joomla

jQuery

Knjiga posle posla - Beletristika i ostala izdanja

Knjižare i naše knjige

Književna kritika

Kuvari, hrana i piće

Leksikografija

Lingvistika

Ljubavni roman

logo

Magija

Marketing

Mašinsko učenje

Mašinstvo

Matematika

Medicina

Memoari

Menadžment

Modeliranje podataka

Monografija

Mreže

MS Office

Muzika

Nagrađivanje knjige

Naučna fantastika

Obrada teksta

OFFICE 2013

OpenOffice.org

Operativni sistemi

Oracle

Organizacione nauke

Pedagogija

PHP I MYSQL

Pisci u medijima

Ples

Poezija

Politika

Poljoprivreda

Popularna medicina

Popularna nauka

Popularna psihologija

Posao

Pozorište

Pravo

Pravoslavlje

Primenjene nauke

Pripovetke

Prirodne nauke

Priručnik

Programiranje

Psihologija

Publicistika

Putopis

Python programiranje

Raspberry PI

Rečnici

Religija

Robotika

Roman

Satira

Saveti

Sertifikati

Slikarstvo

Socijalna mreža - Facebook

Sociologija

Sport

Sport i hobi

SQL Server

Statistika

Strip

Tabele

Tableti

Tehnologija

Telekomunikacije

Triler

Turizam

Twitter

Udžbenici

Umetnost

Unix, Linux

Urbanizam

UX DIZAJN

Visual Basic .NET, VBA, V. Studio

Web design

Windows

Windows 7

Windows 8

WordPress

Zaštita i sigurnost

 

KAKO DA – upisivanje kontakata u MS Outlook, Delphi

 

 

  • Twitter
  • Facebook
  • Google plus
  • Linkedin
  • Pinterest
  • Email

 

Pregleda (30 dana / ukupno): 19 / 2170

Nakon upoznavanja sa postupkom čitanja podataka o kontaktima, videćemo i kao se isti podaci dodaju u Outlook-ov adresar.

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;

Pripremio: Milenko Kusurović

 

Budite prvi koji će ostaviti komentar.

Ostavite komentar Ostavite komentar