Delphi Учётные записи Ms Outlook

← →
Lennyt © (2008-10-28 08:06) [0]

как получить адреса smtp, pop3 каждой учетной записи? везде только пишут про контакты, да и про отправку письма... как обратится вот к этим объектам? заранее спасибо

← →
Lennyt © (2008-10-28 09:16) [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;

Delphi Учётные записи Ms Outlook Найти похожие ветки