- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

หลักการทำงานของโปรแกรมคือ

 1. กำหนด Object แบบ  OleVariant ขึ้นมา 3 ตัวจากนั้นทำการ Create ตัวแรกเป็นแบบ Outlook.Application  ตัวที่สองดึงค่า Address มาจากตัวแรก ตัวที่ดึงค่า Address มาจากตัวที่สอง จากนั้นเราก็เอาตัวที่สามไปใช้งานอีกที่ โดยเราจะได้ข้อมูลเป็นแบบ Strings จากนั้นนำมาแปลงเป็น String เพื่อใช้งานต่อไป

ตัวอย่าง SourceCode

uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
const
  olFolderContacts = $0000000A;
var
  outlook, NameSpace, Contacts, Contact: OleVariant;
  i: Integer;
  ContactString :String;
begin
  outlook := CreateOleObject('Outlook.Application');
  NameSpace := outlook.GetNameSpace('MAPI');

  Contacts := NameSpace.GetDefaultFolder(olFolderContacts);
  for i := 1 to Contacts.Items.Count do
  begin
    Contact := Contacts.Items.Item(i);

    ContactString :=ContactString + Contact.FullName + ' <' + Contact.Email1Address + '>' + #13;
  end;

  Outlook := UnAssigned;
  ShowMessage(ContactString);
end;

ตัวอย่างรายชื่อ Contact ที่ได้

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -