Убрать лишнее сообщение

@Ципихович Эндрю · Регистрация: 10.04.2009

Студворк — интернет-сервис помощи студентам

Подскажите, пожалуйста, в скрипте представленном ниже, как убрать сообщение: программа пытается получить доступ к адресам электронной почты

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim OutlookApp As Outlook.Application
Dim Contact As Outlook.ContactItem
 
Set OutlookApp = New Outlook.Application
Количество_контактов = OutlookApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items.Count
 
For Each Contact In OutlookApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items
 
With Contact
й = .FullName 'полное имя
ц = .HomeTelephoneNumber 'домашний телефон
у = .JobTitle 'должность
к = .CompanyName 'место работы, организация, где работает лицо, занесённое в контакт
е = .Email1Address 'адрес e-mail сообщение программа пытается получить доступ к адресам электроноой почты
н = .HomeAddress 'домашний адрес
e = .MobileTelephoneNumber 'мобильный телефон
End With
Next Contact
Set OutlookApp = Nothing

@analyst · 19.07.2010, 12:42

Вот здесь обсуждалось:
Кто знает, как отключить проверку доступа к адресам эл.почты Outlook-а?
Предупреждения системы безопасности в Microsoft Outlook

@Busine2009 · 19.07.2010, 22:27

Ципихович Андрей,
а ты откуда свалился, что столько вопросов задаёшь? Уже целый месяц - вот тебя прёт.

@Ципихович Эндрю · 20.07.2010, 16:49 **[ТС]**

На вопрос а ты откуда свалился
Что именно Вас интерисует?

@trouvor · 20.07.2010, 18:32

Сам когда то наступал на эти грабли.
Если аутлук 2007 то это отключается в параметрах, если нет, то ставишь специальную прораммку:
Advanced Security for Outlook и через нее отключаешь. Просто так отключить сообщения не получится

@analyst · 20.07.2010, 18:59

Сообщение от trouvor

Сам когда то наступал на эти грабли.
Если аутлук 2007 то это отключается в параметрах

Вы имеете в виду то, что нужно поставить Центр управления безопасностью->Безопасность програмного доступа->Никогда не предупреждать о подозрительной активности (не рекомендуется) ?

@trouvor · 20.07.2010, 19:08

Скажу честно - не помню. У самого Офис XP стоит.

Добавлено через 51 секунду
Сейчас посмотрел скриншот. Вроде оно.

@Ципихович Эндрю · 20.07.2010, 20:40 **[ТС]**

Я пользовался прогой Advanced Security for Outlook, поставил, что то сразу она у меня не пошла, еще потом вчера поставил прогу Click Yes всё делала хорошо, но на следуюший день, то есть сегодня не работала, пришлось её сначала запустить в списке программ она активировалась и снова заработала, бред какой то, что с ней как сделать чтобы ежедневно работала??

@analyst · 20.07.2010, 20:57

Сообщение от Ципихович Андрей

Я пользовался прогой Advanced Security for Outlook, поставил, что то сразу она у меня не пошла, еще потом вчера поставил прогу Click Yes всё делала хорошо, но на следуюший день, то есть сегодня не работала, пришлось её сначала запустить в списке программ она активировалась и снова заработала, бред какой то, что с ней как сделать чтобы ежедневно работала??

Я сам её вчера попробовал. Работает конечно не фонтан, но лучше чем ничего)
В общем во первых, нужно, поставить её в список программ для автозапуска, а во вторых сделать по ней двойной клик. Хотя не факт что при этом не возникнет проблем.

Остаётся самый действенный способ: Взять попробовать с помощью API нажимать на кнопку да в сообщении или использовать для этого WMI, но в этом к сожалению я не смогу помоч. Хотя, как мне кажется, существуют другие програмные решения. Нужно их только поискать!

@Alex77755 · 20.07.2010, 23:31

Сообщение от Ципихович Андрей

На вопрос а ты откуда свалился
Что именно Вас интерисует?

Интересует почему ты так рьяно борешься с сообщениями программ?
То Ворд выдаёт не нужные тебе запросы на сохранение, то Оутлук.
Прими во внимание, что все нормальные программы при изменении документа запрашивают сохранять или нет. И тут ничего не поделаешь!!
Разве что заменить комп на пачатную машинку или написать свой офис

@Ципихович Эндрю · 20.07.2010, 23:58 **[ТС]**

Тем не менее всё это решаемо, избавиться от сообщений

@Alex77755 · 21.07.2010, 00:01

Ну если задача сводится к избавлению от от сообщений....то вопросов нет

@Ципихович Эндрю · 21.07.2010, 00:09 **[ТС]**

По Вашему менению пользователь разве не сойдёт с ума от наличия сообщений, то есть программист ему написал прогу а всё равно надо нажимать Да, Да, бред!!

@Alex77755 · 21.07.2010, 00:24

Думаю, что этот бред будет сохраняться до тех пор пока не научаться читать мыслю юзера и не привяжут к программе. А иначе как узнает программа что на уме у юзера? Сохранять или не сохранять документ?
Что бы избавиться от запроса, я думаю, нужно управлять вордом из внешней программы. Тогда можно дать команду на закрытие документа без сохранения

@Ципихович Эндрю · 21.07.2010, 00:29 **[ТС]**

ВЫ говорите:
А иначе как узнает программа что на уме у юзера? Сохранять или не сохранять документ?
А что тут узнавать если юзер открыл ни к чему не прикасался закрывает,я ему такой вопрос, бред, он начнёт сомневаться и т. д.

@Alex77755 · 21.07.2010, 00:36

если юзер открыл ни к чему не прикасался закрывает

Удали из шаблона макросы, Что бы шаблон не менялся и не будет тебе лишних вопросов.
А иначе все претензии к дяде Биллу: Документ изменён - надо спросить у юзера о необходимости сохранения. Что непонятно то?

@Ципихович Эндрю · 21.07.2010, 00:56 **[ТС]**

Вы спросили:
А иначе как узнает программа что на уме у юзера? Сохранять или не сохранять документ?
Я Вам отвечаю
А что тут узнавать если юзер открыл ни к чему не прикасался
Что не понятно Вам

@Sasha_Smirnov · 21.07.2010, 04:16

На сей раз ребята-разработчики не оплошали: дав нам параметр SaveChanges для метода Close.

Visual Basic
1
2
3
4
5
Sub ВыйтиХлопнувДверью()
If Application.Documents.Count < 1 Then Application.Quit
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
Application.Quit
End Sub

Для своего Word поставил вышеприведённый «патч» на F12 — закрывается без вопросов!

@Ципихович Эндрю · 21.07.2010, 05:40 **[ТС]**

Alex77755
Вы говорите:
Удали из шаблона макросы, Что бы шаблон не менялся и не будет тебе лишних вопросов
Согласен с Вами
Так, а чтобы задуманное выполнялось для этого и нужен ОСХ, он будет всё делать
Можно у Вас спросить Вы его создали?
Зарегестрировали?
Опробовали?
И что результат тот же?

Сообщение от Sasha_Smirnov

Для своего Word поставил вышеприведённый «патч» на F12 — закрывается без вопросов!

Поясните пожалуйста эту фразу и при чём здесь Эф12 сохранение документа, когда юзер будет нажимать на крестик в правом верхнем углу

@Sasha_Smirnov · 23.07.2010, 12:27

У него будет выбор: нажать, как обычно, крестик и ответить на вопрос — либо нажать F12, закрыв без сохранения.

Чтобы закрыть документ Word с сохранением, но без лишних вопросов, используйте

Visual Basic
1
2
3
4
5
Sub AutoClose()
' Сохряняет закрываемый (щелчком по крестику) файл в папке Мои документы (новый)
' либо на своём прежнем месте (старый).
Dialogs(wdDialogFileSaveAs).Execute
End Sub

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@analyst 437 / 144 / 9 Регистрация: 12.01.2009 Сообщений: 678 Записей в блоге: 1
	19.07.2010, 12:42
	Вот здесь обсуждалось: Кто знает, как отключить проверку доступа к адресам эл.почты Outlook-а? Предупреждения системы безопасности в Microsoft Outlook 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	19.07.2010, 22:27
	Ципихович Андрей, а ты откуда свалился, что столько вопросов задаёшь? Уже целый месяц - вот тебя прёт. 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,323
	20.07.2010, 16:49 [ТС]
	На вопрос а ты откуда свалился Что именно Вас интерисует? 0

@trouvor 7 / 7 / 0 Регистрация: 25.07.2007 Сообщений: 74
	20.07.2010, 18:32
	Сам когда то наступал на эти грабли. Если аутлук 2007 то это отключается в параметрах, если нет, то ставишь специальную прораммку: Advanced Security for Outlook и через нее отключаешь. Просто так отключить сообщения не получится 1

@trouvor 7 / 7 / 0 Регистрация: 25.07.2007 Сообщений: 74
	20.07.2010, 19:08
	Скажу честно - не помню. У самого Офис XP стоит. Добавлено через 51 секунду Сейчас посмотрел скриншот. Вроде оно. 1

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,323
	20.07.2010, 20:40 [ТС]
	Я пользовался прогой Advanced Security for Outlook, поставил, что то сразу она у меня не пошла, еще потом вчера поставил прогу Click Yes всё делала хорошо, но на следуюший день, то есть сегодня не работала, пришлось её сначала запустить в списке программ она активировалась и снова заработала, бред какой то, что с ней как сделать чтобы ежедневно работала?? 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,323
	20.07.2010, 23:58 [ТС]
	Тем не менее всё это решаемо, избавиться от сообщений 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	21.07.2010, 00:01
	Ну если задача сводится к избавлению от от сообщений....то вопросов нет 1

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,323
	21.07.2010, 00:09 [ТС]
	По Вашему менению пользователь разве не сойдёт с ума от наличия сообщений, то есть программист ему написал прогу а всё равно надо нажимать Да, Да, бред!! 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	21.07.2010, 00:24
	Думаю, что этот бред будет сохраняться до тех пор пока не научаться читать мыслю юзера и не привяжут к программе. А иначе как узнает программа что на уме у юзера? Сохранять или не сохранять документ? Что бы избавиться от запроса, я думаю, нужно управлять вордом из внешней программы. Тогда можно дать команду на закрытие документа без сохранения 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,323
	21.07.2010, 00:29 [ТС]
	ВЫ говорите: А иначе как узнает программа что на уме у юзера? Сохранять или не сохранять документ? А что тут узнавать если юзер открыл ни к чему не прикасался закрывает,я ему такой вопрос, бред, он начнёт сомневаться и т. д. 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,323
	21.07.2010, 00:56 [ТС]
	Вы спросили: А иначе как узнает программа что на уме у юзера? Сохранять или не сохранять документ? Я Вам отвечаю А что тут узнавать если юзер открыл ни к чему не прикасался Что не понятно Вам 0