Merhaba arkadaşlar,
Bildiğiniz gibi outlookda kişiler bölümünde verilerini tutanlar var. Ben burada tutulan verileri programıma aktarmak istiyorum. Verilere delphi ile ulaşmam benim için yeterli. Bunu ne gibi yollar ile yapabilirim ?
Şimdiden tşk. ederim.
Outlookdan veri almak
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
- sadettinpolat
- Moderator
- Mesajlar: 2131
- Kayıt: 07 Ara 2003 02:51
- Konum: Ankara
- İletişim:
http://www.delphi-jedi.org/APILIBRARY:283700
Windows Address Book API Petr Vones WAB.zip 17 Mar 2000
Windows Address Book API Petr Vones WAB.zip 17 Mar 2000
-
- Üye
- Mesajlar: 380
- Kayıt: 31 Eki 2005 03:26
Excel'le uğraşmana gerek yok, direkt memo ya atan kod
kolay gelsin.
Kod: Tümünü seç
uses ComObj;
....
....
procedure TForm1.tcbutton1Click(Sender: TObject);
var
OutlookObj, ObjSpace, ObjFolder: Variant;
i: Integer;
Str: string;
begin
OutlookObj:=CreateOleObject('Outlook.Application');
ObjSpace:=OutlookObj.GetNameSpace('MAPI');
ObjFolder:=ObjSpace.GetDefaultFolder(10);
for i:=1 to ObjFolder.Items.Count do
begin
Str:='';
Str:=ObjFolder.Items[i].CompanyAndFullName+' - '+
ObjFolder.Items[i].Email1Address;
Memo1.Lines.Add(Str);
end;
OutlookObj.Quit;
end;
kolay gelsin.