Что нужно настроить в аутлуке, чтобы при обращениии к нему как к серверу автоматизации она по три раза не спрашивала "программа пытается получить доступ к адресам электронной почты, хранящимся в Outlook. Возможно это свидетельствет о наличии вируса, и следует выбрать нет" (далее - птичка и выпадающий список разрешить доступ на 1 мин)?
Любопытно, что у некоторых из моих заказчиков ничего такого не выскакивает. Выскакивает почему-то у меня на компе :(
Outlook 2003
-----------------
Обращение делаю как-то так:
--------------------------------
try
Outlook := GetActiveOleObject('Outlook.Application') ;
except
Outlook := CreateOleObject('Outlook.Application') ;
end;
Application.ProcessMessages;
try
MailItem := Outlook.CreateItem(0);
with MailItem do
begin
Recipients.Add('xxx@xxx.xxx');
Subject := 'xxx';
Body := '';
Attachments.Add(sFileName) ;
Send;
end;
finally
Outlook := Unassigned;
end;
----------------
После нажатия подтверждения 3 раза (!!!) письмо нормально помещается в папку на отправку.
Есть новые 
Нет новых [134427 +34][b:0][p:0.001]