Вопрос № 53883: Ув. эксперты, как в Delphi построить список Outlook-учётных записей электронной почты и узнать, какая учётная запись имеет опцию "по умолчанию"?...Вопрос № 53889: 1. Скажите, как можно создать на форме WebBrowser динамически, кол-во браузеров заранее неизвестно
2. Если отправляешь запрос к сайту (GET или POST) через TCPServer, то как можно получить ответ? Или как можно отправить этот запрос так, чтобы отве...
Вопрос № 53.883
Ув. эксперты, как в Delphi построить список Outlook-учётных записей электронной почты и узнать, какая учётная запись имеет опцию "по умолчанию"?
Отвечает: Coupler
Здравствуйте, Гутштадт В В!
Собственно, здесь язык программирования не играет роли - outlook хранит все в реестре. Поэтому я только натолкну на мысль - есть ветвь HKEY_CURRENT_USERSoftwareMicrosoftInternet Account Manager - там-то все и лежит:
Аккаунты: HKEY_CURRENT_USERSoftwareMicrosoftInternet Account ManagerAccounts - а там ветки с аккаунтами, их параметрами и тд.
Дефолтный аккаунт: HKEY_CURRENT_USERSoftwareMicrosoftInternet Account ManagerAccountsDefault Mail Account - там и лежит условное имя записи, под которым она лежит в HKEY_CURRENT_USERSoftwareMicrosoftInternet Account ManagerAccounts.
Если будут проблемы с реализацией - стучите во внутреннюю почту, помогу.
Ответ отправил: Coupler (статус: Студент)
Ответ отправлен: 31.08.2006, 15:59 Оценка за ответ: 5 Комментарий оценки: Спасибо, Coupler, путь освещён и указан, пора в дорогу...
Отвечает: CoolBick
Здравствуйте, Гутштадт В В!
uses ComObj;
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);
ShowMessage(Contact.FullName + ' <' + Contact.Email1Address + '>');
end;
Outlook := UnAssigned;
end;
Ответ отправил: CoolBick (статус: 1-ый класс)
Ответ отправлен: 02.09.2006, 17:41 Оценка за ответ: 3 Комментарий оценки: Алексей Борисович, спасибо. Это тоже очень полезно, только я хочу попасть не в адресную книгу, а в СВОИ учетные записи. См., например, ответ Coupler'a на мой вопрос. Ещё раз спасибо за Ваше внимание к моему вопросу.
Вопрос № 53.889
1. Скажите, как можно создать на форме WebBrowser динамически, кол-во браузеров заранее неизвестно
2. Если отправляешь запрос к сайту (GET или POST) через TCPServer, то как можно получить ответ? Или как можно отправить этот запрос так, чтобы ответ пришел!
Отвечает: Сухомлин Кирилл Владимирович
Здравствуйте, Томша Павел!
1. Так же, как и остальные компоненты:
wb[i] := TWebBrowser.Create(Form1);
2. Может быть, воспользоваться TCPClient? (это советую совсем "вслепую")
--------- Не узнаешь - не попробуешь.
Ответ отправил: Сухомлин Кирилл Владимирович (статус: Студент)
Ответ отправлен: 31.08.2006, 17:35 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ на первый вопрос
Отвечает: Melamed
Здравствуйте, Томша Павел!
В добавление к предыдущему ответу на первый вопрос добавлю
wb[i] := TWebBrowser.Create(Form1);
wb[i].Parent := Form1; /* Или любое другое окно, которое должно быть родителем для TWebBrowser (см. логику Вашей прогрвммы)
*/
Ответ отправил: Melamed (статус: 3-ий класс)
Ответ отправлен: 31.08.2006, 18:18 Оценка за ответ: 5 Комментарий оценки: Спасибо
