Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Июль 2003   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 21.07.03 09:04

Обновился дайджест по FAQ. Скачать можно здесь
Вышел очередной дайджест форумов. Скачать можно здесь
Кое-что из нашей кладовки   |x|
  • SPECTral PrivateInfo DLL v2.0 SPE spectrnl@rambler.ru   (20.07.03 20:31)
    универсальная криптобиблиотека, хеширование по MD5 и SHA512, шифрование по TwoFish, RC6 и IDEA. Самораспаковывающийся архив.
    »»» Скачать: исходные тексты
Лучшее из нашего FAQ   |x|
Delphi and Outlook
»»» Paul (30.04.00 13:56)
Подскажите как прочитать адресную книгу Outlook (MSOffice) из Delphi и занести данные в таблицу *.db???

»»» Алексей - melrin@mastak.com (07.05.00 03:07)
Полагаю, что работа с Outlook идентична работе с Exel через OLE. Пример смотрите в FAQ - Система. А список команд управления Оутглюком есть в MSDN.

»»» Rukhimovich Oleg - rukhiich@hotmail.com (06.06.00 20:16)
Сперва сделай 'Import type Library' для Outlk80.olb, (расположен в \Program Files\Microsoft Office\Office).
После того, как появится файл 'Outlook_TLB.pas', можно нацарапать следующее:



uses ComObj, Outlook_TLB;

procedure TForm1.Button1Click(Sender: TObject);
var
  MSOutlook,
  MyNameSpace,
  MyFolder,
  MyItem: Variant;
  s: string;
  i: Integer;
begin

 try
    MSOutlook := CreateOleObject('Outlook.Application');
    MyNameSp!
ace := MSOutlook.GetNameSpace('MAPI');
    MyFolder := MyNamespace.GetDefaultFolder(olFolderContacts);

    for i := 1 to MyFolder.Items.Count do begin
      s := s + #13#13'Contact No: ' + IntToStr(i) + #13#13;
      MyItem := MyFolder.Items[i];

      s := s + 'BillingInformation: ' + MyItem.BillingInformation + #13;
      s := s + 'Body: ' + MyItem.Body + #13;
      s := s + 'Categories: ' + MyItem.Categories + #13;
      s := s + 'Companies: ' + MyItem.Companies + #13;
      s := s + 'CreationTime: ' + DateTimeToStr(MyItem.CreationTime) + #13;
      s := s + 'EntryID: ' + MyItem.EntryID + #13;
      s := s + 'Importance: ' + IntToStr(MyItem.Importance) + #13;
      s := s + 'LastModificationTime: ' + DateTimeToStr(MyItem.LastModificationTime) + #13;
      s := s + 'MessageClass: ' + MyItem.MessageClass + #13;
      s
:= s + 'Mileage: ' + MyItem.Mileage + #13;
      s := s + 'NoAging: ' + IntToStr(MyI!
tem.NoAging) + #13;
      s := s + 'OutlookVersion: ' + MyItem.OutlookVersion + #13;
      s := s + 'Saved: ' + IntToStr(MyItem.Saved) + #13;
      s := s + 'Sensitivity: ' + IntToStr(MyItem.Sensitivity) + #13;
      s := s + 'Size: ' + IntToStr(MyItem.Size) + #13;
      s := s + 'Subject: ' + MyItem.Subject + #13;
      s := s + 'UnRead: ' + IntToStr(MyItem.UnRead) + #13;
      s := s + 'Account: ' + MyItem.Account + #13;
      s := s + 'Anniversary: ' + DateTimeToStr(MyItem.Anniversary) + #13;
      s := s + 'AssistantName: ' + MyItem.AssistantName + #13;
      s := s + 'AssistantTelephoneNumber: ' + MyItem.AssistantTelephoneNumber + #13;
      s := s + 'Birthday: ' + DateTimeToStr(MyItem.Birthday) + #13;
      s := s + 'Business2TelephoneNumber: ' + MyItem.Business2TelephoneNumber + #13;
      s := s + 'BusinessAddress: ' + MyItem.BusinessAddress
+ #13;
      s := s + 'BusinessAddressCity: ' + MyItem.BusinessAddressCity + #13;
!
      s := s + 'BusinessAddressCountry: ' + MyItem.BusinessAddressCountry + #13;
      s := s + 'BusinessAddressPostalCode: ' + MyItem.BusinessAddressPostalCode + #13;
      s := s + 'BusinessAddressPostOfficeBox: ' + MyItem.BusinessAddressPostOfficeBox + #13;
      s := s + 'BusinessAddressState: ' + MyItem.BusinessAddressState + #13;
      s := s + 'BusinessAddressStreet: ' + MyItem.BusinessAddressStreet + #13;
      s := s + 'BusinessFaxNumber: ' + MyItem.BusinessFaxNumber + #13;
      s := s + 'BusinessHomePage: ' + MyItem.BusinessHomePage + #13;
      s := s + 'BusinessTelephoneNumber: ' + MyItem.BusinessTelephoneNumber + #13;
      s := s + 'CallbackTelephoneNumber: ' + MyItem.CallbackTelephoneNumber + #13;
      s := s + 'CarTelephoneNumber: ' + MyItem.CarTelephoneNumber + #13;
      s := s + 'Children: ' + MyItem.Children + #13;
      s := s + 'CompanyAndFullName:
' + MyItem.CompanyAndFullName + #13;
      s := s + 'CompanyMainTele!
phoneNumber: ' + MyItem.CompanyMainTelephoneNumber + #13;
      s := s + 'CompanyName: ' + MyItem.CompanyName + #13;
      s := s + 'ComputerNetworkName: ' + MyItem.ComputerNetworkName + #13;
      s := s + 'CustomerID: ' + MyItem.CustomerID + #13;
      s := s + 'Department: ' + MyItem.Department + #13;
      s := s + 'Email1Address: ' + MyItem.Email1Address + #13;
      s := s + 'Email1AddressType: ' + MyItem.Email1AddressType + #13;
      s := s + 'Email1DisplayName: ' + MyItem.Email1DisplayName + #13;
      s := s + 'Email1EntryID: ' + MyItem.Email1EntryID + #13;
      s := s + 'Email2Address: ' + MyItem.Email2Address + #13;
      s := s + 'Email2AddressType: ' + MyItem.Email2AddressType + #13;
      s := s + 'Email2DisplayName: ' + MyItem.Email2DisplayName + #13;
      s := s + 'Email2EntryID: ' + MyItem.Email2EntryID + #13;
      s := s + 'Email3Address:
' + MyItem.Email3Address + #13;
      s := s + 'Email3AddressType: ' + MyI!
tem.Email3AddressType + #13;
      s := s + 'Email3DisplayName: ' + MyItem.Email3DisplayName + #13;
      s := s + 'Email3EntryID: ' + MyItem.Email3EntryID + #13;
      s := s + 'FileAs: ' + MyItem.FileAs + #13;
      s := s + 'FirstName: ' + MyItem.FirstName + #13;
      s := s + 'FTPSite: ' + MyItem.FTPSite + #13;
      s := s + 'FullName: ' + MyItem.FullName + #13;
      s := s + 'FullNameAndCompany: ' + MyItem.FullNameAndCompany + #13;
      s := s + 'Gender: ' + IntToStr(MyItem.Gender) + #13;
      s := s + 'GovernmentIDNumber: ' + MyItem.GovernmentIDNumber + #13;
      s := s + 'Hobby: ' + MyItem.Hobby + #13;
      s := s + 'Home2TelephoneNumber: ' + MyItem.Home2TelephoneNumber + #13;
      s := s + 'HomeAddress: ' + MyItem.HomeAddress + #13;
      s := s + 'HomeAddressCity: ' + MyItem.HomeAddressCity + #13;
      s := s + 'HomeAddressCountry:
' + MyItem.HomeAddressCountry + #13;
      s := s + 'HomeAddressPostalCode: ' + My!
Item.HomeAddressPostalCode + #13;
      s := s + 'HomeAddressPostOfficeBox: ' + MyItem.HomeAddressPostOfficeBox + #13;
      s := s + 'HomeAddressState: ' + MyItem.HomeAddressState + #13;
      s := s + 'HomeAddressStreet: ' + MyItem.HomeAddressStreet + #13;
      s := s + 'HomeFaxNumber: ' + MyItem.HomeFaxNumber + #13;
      s := s + 'HomeTelephoneNumber: ' + MyItem.HomeTelephoneNumber + #13;
      s := s + 'Initials: ' + MyItem.Initials + #13;
      s := s + 'ISDNNumber: ' + MyItem.ISDNNumber + #13;
      s := s + 'JobTitle: ' + MyItem.JobTitle + #13;
      s := s + 'Journal: ' + IntToStr(MyItem.Journal) + #13;
      s := s + 'Language: ' + MyItem.Language + #13;
      s := s + 'LastName: ' + MyItem.LastName + #13;
      s := s + 'LastNameAndFirstName: ' + MyItem.LastNameAndFirstName + #13;
      s := s + 'MailingAddress: ' + MyItem.MailingAddress
+ #13;
      s := s + 'MailingAddressCity: ' + MyItem.MailingAddressCity + #13;
  !
    s := s + 'MailingAddressCountry: ' + MyItem.MailingAddressCountry + #13;
      s := s + 'MailingAddressPostalCode: ' + MyItem.MailingAddressPostalCode + #13;
      s := s + 'MailingAddressPostOfficeBox: ' + MyItem.MailingAddressPostOfficeBox + #13;
      s := s + 'MailingAddressState: ' + MyItem.MailingAddressState + #13;
      s := s + 'MailingAddressStreet: ' + MyItem.MailingAddressStreet + #13;
      s := s + 'ManagerName: ' + MyItem.ManagerName + #13;
      s := s + 'MiddleName: ' + MyItem.MiddleName + #13;
      s := s + 'MobileTelephoneNumber: ' + MyItem.MobileTelephoneNumber + #13;
      s := s + 'NickName: ' + MyItem.NickName + #13;
      s := s + 'OfficeLocation: ' + MyItem.OfficeLocation + #13;
      s := s + 'OrganizationalIDNumber: ' + MyItem.OrganizationalIDNumber + #13;
      s := s + 'OtherAddress: ' + MyItem.OtherAddress + #13;
    
 s := s + 'OtherAddressCity: ' + MyItem.OtherAddressCity + #13;
      s := s + 'Other!
AddressCountry: ' + MyItem.OtherAddressCountry + #13;
      s := s + 'OtherAddressPostalCode: ' + MyItem.OtherAddressPostalCode + #13;
      s := s + 'OtherAddressPostOfficeBox: ' + MyItem.OtherAddressPostOfficeBox + #13;
      s := s + 'OtherAddressState: ' + MyItem.OtherAddressState + #13;
      s := s + 'OtherAddressStreet: ' + MyItem.OtherAddressStreet + #13;
      s := s + 'OtherFaxNumber: ' + MyItem.OtherFaxNumber + #13;
      s := s + 'OtherTelephoneNumber: ' + MyItem.OtherTelephoneNumber + #13;
      s := s + 'PagerNumber: ' + MyItem.PagerNumber + #13;
      s := s + 'PersonalHomePage: ' + MyItem.PersonalHomePage + #13;
      s := s + 'PrimaryTelephoneNumber: ' + MyItem.PrimaryTelephoneNumber + #13;
      s := s + 'Profession: ' + MyItem.Profession + #13;
      s := s + 'RadioTelephoneNumber: ' + MyItem.RadioTelephoneNumber + #13;
      s := s +
'ReferredBy: ' + MyItem.ReferredBy + #13;
      s := s + 'SelectedMailingAddress: ' !
+ IntToStr(MyItem.SelectedMailingAddress) + #13;
      s := s + 'Spouse: ' + MyItem.Spouse + #13;
      s := s + 'Suffix: ' + MyItem.Suffix + #13;
      s := s + 'TelexNumber: ' + MyItem.TelexNumber + #13;
      s := s + 'Title: ' + MyItem.Title + #13;
      s := s + 'TTYTDDTelephoneNumber: ' + MyItem.TTYTDDTelephoneNumber + #13;
      s := s + 'User1: ' + MyItem.User1 + #13;
      s := s + 'User2: ' + MyItem.User2 + #13;
      s := s + 'User3: ' + MyItem.User3 + #13;
      s := s + 'User4: ' + MyItem.User4 + #13;
      s := s + 'UserCertificate: ' + MyItem.UserCertificate + #13;
      s := s + 'WebPage: ' + MyItem.WebPage + #13;

    end;
    Memo1.Lines.Text := s;
  except
    on E: Exception do MessageDlg(E.Message + #13 + s, mtError, [mbOk], 0)
  end;
  MSOutlook.Quit;
end;


-= Из конференции сайта MASTERS OF DELPHI (http://delphi.m! astak.com) =-

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Программирование серверов на основе сокетов в Дельфи
Данная статья посвящена созданию приложений архитектуры клиент/сервер в Borland Delphi на основе сокетов ("sockets" - гнезда). В отличие от предыдущей статьи на тему сокетов, здесь мы разберем создание серверных приложений.
Новинки книжного рынка   |x|
Базы данных в Delphi 7. Самоучитель
В этой книге урок за уроком описывается работа с базами данных. Демонстрируются широкие возможности по созданию интерфейса пользователя и рассказывается о большом наборе стандартных компонентов, с помощью которых можно создавать приложения достаточно высокого уровня сложности. Самоучитель предназначен для читателей, знакомых с основами объектно-ориентированного программирования и уже имеющих опыт написания простых программ в среде Delphi.
Автор: Понамарев В. А.
Другие сайты о DELPHI   |x|
Клуб Delphi
Хороший новый форум заглени и оцени
» Оценка сайта: 2
Опрос населения :)
К какой возрастной категории Вы принадлежите ?
»»» меньше 16
»»» от 17 до 20
»»» от 21 до 23
»»» от 24 до 26
»»» от 27 до 30
»»» от 30 до 35
»»» от 35 до 40
»»» от 40 до 44
»»» больше 45
Для души

Хокку дня
Знать неспроста
Повешен на ручку двери
Левый носок...

Афоризмы
Где взять нужного человека, чтобы его уволить?!!

Фраза дня
- Родила? - Да! - Мальчика? - Нет! - А кого?

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Огайо (США) полиция не имеет права производить аресты по воскресеньям и на День независимости.
В Англии под угрозой крупного штрафа запрещается мочиться на публике. Единственное исключение, если мужчина делает это на заднее колесо своей машины- его правая рука при этом должна оставаться на капоте автомобиля. (Видимо, чтобы у прохожих создавалось впечатление, будто джентельмен зашел за машину просто полюбоваться природой)

И на закуску коротенький анекдот
Прибегает молодой сын-юрист к старому отцу-юристу и кричит:
- Отец, поздравь меня! Я выиграл дело, которое ты не мог выиграть всю свою жизнь!
А тот ему в ответ:
- Дурак, я с него кормился всю свою жизнь!

Фотоприколы.
Начните день с хорошего настроения!
http://www.delphimaster.ru/cgi-bin/prikol.pl?id=4199

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.ru)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное