Contactpersonen uit Outlook gebruiken

Sectie: Delphi
Auteur(s): Conversie auteur
Publicatiedatum: 10-3-2003
Keywords: Delphi, Outlook
Type bijdrage: Tip
Taal: Nederlands
Rating:

Currently 0/5 Stars.
1
2
3
4
5

Onderstaand voorbeeldprogramma laat zien hoe bij het indrukken van de button een memo gevuld wordt met namen en e-mail-adressen van alle contactpersonen in Outlook.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,
  Forms, Dialogs, comobj, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
const
  olFolderContacts = $0000000A;
var
  outlook, NameSpace, Contacts, Contact: OleVariant;
  i: Integer;
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); 
    memo1.Lines.Add(  Contact.FullName + ' <' +
                      Contact.Email1Address + '>');
  end;

  Outlook := UnAssigned;
end;

end.

In dit voorbeeld werden alleen de properties FullName en Email1Address 
gebruikt. De namen van mogelijke properties zijn:

Birthday 
Business2TelephoneNumber
BusinessAddress 
BusinessAddressCity
BusinessAddressCountry
BusinessAddressPostalCode
BusinessAddressPostOfficeBox
BusinessAddressState 
BusinessAddressStreet 
BusinessFaxNumber 
BusinessHomePage 
BusinessTelephoneNumber
CompanyAndFullName 
CompanyMainTelephoneNumber
CompanyName 
ComputerNetwork
Name Department 
Email1Address 
Email1AddressType 
Email1DisplayName 
Email2Address
Email2AddressType Email2DisplayName 
Email3Address 
Email3AddressType 
Email3DisplayName 
FirstName
FTPSite 
FullName 
FullNameAndCompany 
GovernmentIDNumber
Hobby 
Home2TelephoneNumber 
HomeAddress 
HomeAddressCity 
HomeAddressCountry
HomeAddressPostalCode 
HomeAddressPostOfficeBox
HomeAddressState 
HomeAddressStree 
HomeFaxNumber 
HomeTelephoneNumber
Initials
ISDNNumber JobTitle
Language 
LastName 
LastNameAndFirstName 
MailingAddress 
MailingAddressCity 
MailingAddressCountry 
MailingAddressPostalCode 
MailingAddressPostOfficeBox 
MailingAddressState 
MailingAddressStreet 
MiddleName
NickName 
OfficeLocation 
OrganizationalIDNumber 
PersonalHomePage 
PrimaryTelephoneNumber 
Profession 
Suffix 
Title 
WebPage

Ed Sonneveld

(bron: Swiss Delphi Center)