| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Delphi Учётные записи Ms Outlook
Lennyt © (2008-10-28 08:06:00)как получить адреса smtp, pop3 каждой учетной записи? везде только пишут про контакты, да и про отправку письма... как обратится вот к этим объектам? заранее спасибо
Lennyt (2008-10-28 10:23:00) [1]вот нашел код, но не работает. говорит "недопустимая строка с указанием класса" может подключить юнит какойто нада кроме comobj?
var
OutlookSession, Accounts, Account : OLEVariant;
AccountCount, i : integer;
begin
OutlookSession := CreateOleObject('Redemption.RDOSession');
OutlookSession.Logon('Outlook');
Accounts := OutlookSession.Accounts;
AccountCount := Accounts.Count;
for i:=1 to AccountCount do begin
Account:=Accounts.Item(i);
if Account.AccountType = 0{atPOP3} then begin
ShowMessage(Account.POP3_Server);
end;
end;
end;
Lennyt (2008-10-28 09:16:00) [2]может в МСДН ктонить знает где раздел про это
| |
