Outlookdan veri almak

[Merchant]

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.

[sadettinpolat]

http://www.delphi-jedi.org/APILIBRARY:283700

Windows Address Book API Petr Vones WAB.zip 17 Mar 2000

[Merchant]

İlgilendiğiniz için teşekkür ederim. Outlookda Dosya menüsünün altında Al ve Ver sekmesini kullarak verileri excel dosyasına Daha sonrada excelden programa atabiliyorum. 1-2 gün kadar ertelemek zorunda kaldım, Bitirdikten sonra örnek programı buraya atacağım.

Kolay gelsin.

[turkcanfidan]

Excel'le uğraşmana gerek yok, direkt memo ya atan kod

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.