Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];

Вниз

Взаимодействие с Outlook   Найти похожие ветки 

 
Suhomlin   (2003-05-25 00:29) [0]

Привет мастера!
Помогите!
Пытаюсь создать на Delphi7 сообщение в Microsoft Outlook, но вылезает окно с предупреждением: "Программа пытается получить доступ к адресам элетронной почты..."!
Аналогичный код, созданный на VB работает без такого окна!
Почему?
Как сделать, что бы оно не появлялось?

Код такой:

var
Mi: MailItem;
........
begin
Ol.Connect; //OutlookApplication
Mi:= Ol.CreateItem(olMailItem) as MailItem;
Mi.Recipients.Add("//Адрес E-mail//");
Mi.Subject:= "//Тема//";
Mi.Body:= "//Текст сообщения//";
Mi.Display(EmptyParam);


 
DrPass   (2003-05-25 00:39) [1]

Потому что программа на VB написана в Outlook, и он уверен в ее безопасности (Outlook 2002?). А про твою софтину он ничего не знает, и справедливо полагает, что юзера надо предупредить, т.к. такой херней обычно занимаются почтовые черви, а никак не честные и полезные программы.


 
Suhomlin   (2003-05-25 00:50) [2]

А как сделать чтобы это окно не появлялось?
Я понимаю, что Microsoft-ские приложения дружат между собой!
Но неужели ничего нельзя придумать?
Наверняка же есть какой-то выход!



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.012 c
1-13246
Kudatsky
2003-05-23 09:45
2003.06.05
Ошибка при работе с Excel


1-13316
Rulya
2003-05-21 21:21
2003.06.05
Создание цифрового Вольтметра


1-13114
Apachi
2003-05-23 09:52
2003.06.05
Дочерние окна


8-13340
K-Sergey
2003-02-21 14:04
2003.06.05
Как можно картинку сделать фоновым рисунком TMemo?


1-13250
Vick
2003-05-15 15:07
2003.06.05
Программно из Делфи объединять ячейки в Excel





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский