| View previous topic :: View next topic |
| Author |
Message |
KiteK
Member
Joined: 27 Nov 2003
Posts: 6
|
 Posted: 27/11/03 16:19 Post subject: Outlook contacts list |
 |
|
| Hi! Actually, i'm writing program to sending e-mails, such as Outlook (This program is in API). And i found problem, i don't know, how can I get Outlook contacts list. Do you know any API procedures or functions to get this? Greetings, KiteK |
|
| Back to top |
|
 |
Johnny_Bit
Moderator
Joined: 15 Jun 2003
Posts: 128
|
| Posted: 28/11/03 09:52 Post subject: |
|
|
| Code: | const
folder_kontaktow = $0000000A;
var
Outlook, NameSpace, Kontakty, Kontakt : OleVariant;
i : Integer;
//----------------------------
Outlook := CreateOleObject('Outlook.Application');
NameSpace := Outlook.GetNameSpace('MAPI');
//----------------------------
Kontakty := NameSpace.GetDefaultFolder(folder_kontaktow);
//-------------------------------------------------
for i := 1 to Kontakty.Items.Count do
begin
Kontakt := Kontakty.Items.Item(i);
ListBox1.Items.Add(Kontakt.FullName); // Imie i Nazwisko
ListBox2.Items.AddKontakt.Email1Address ); // Adres e-mail
ListBox3.Items.Add(Kontakt.BusinessTelephoneNumber); // Numer telefonu
end;
Outlook := UnAssigned; // Zwolnienie zmiennej Outlook
//---------------------------------------------------------- |
possible properties of Kontakt:
Birthday
Business2TelephoneNumber
BusinessAddress
BusinessAddressCity
BusinessAddressCountry
BusinessAddressPostalCode
BusinessAddressPostOfficeBox
BusinessAddressState
BusinessAddressStreet
BusinessFaxNumber
BusinessHomePage
BusinessTelephoneNumber
CompanyAndFullName
CompanyMainTelephoneNumber
CompanyName
ComputerNetworkName
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 |
|
| Back to top |
|
|
KiteK
Member
Joined: 27 Nov 2003
Posts: 6
|
| Posted: 28/11/03 17:02 Post subject: |
|
|
Hi! Thanks, Johnny_bit (why don't you reply on 4p?  ), but this code has a mistake. This try open Outlook, and break down. Hmmm... do you know, how viruses getting an Outlook contacts list? (then Outlook is hidden, I'd like have that effect). Greentings, Kitek. |
|
| Back to top |
|
|
Johnny_Bit
Moderator
Joined: 15 Jun 2003
Posts: 128
|
| Posted: 01/12/03 05:12 Post subject: |
|
|
| if you want know, on 4p is article 'bout it. |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
