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

@Ципихович Эндрю · Регистрация: 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

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

Спасибо за ответ, вторая часть условия есть, вернее реакция нужная на условие благодаря Вам есть
Теперь осталось само условие, можете перевесьти на машинный язык, язык ВБА фразу:
Если пользователь не добавил букву, знак, если ничего не удалил, не окрасил знаки в цвет ... и т.д., одним словом если ничего не делал, тогда ...
А оконцовка известна Then Dialogs(wdDialogFileSaveAs).Execute
Спасибо

@Sasha_Smirnov · 23.07.2010, 16:38

Ничего ли он не сделал или, наоборот, переделал всё — это без разницы.

Документ закрывается без вопросов. (Кстати, я и сам уже полдня это использую!)

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

Мне не надо так, как Вы говорите:
Ничего ли он не сделал или, наоборот, переделал всё — это без разницы.Документ закрывается без вопросов.
Мне недо чтобы он закрывался без вопросов если только ничего не делал, а когда делал тогда естественно нужно сообщение Сохранить???

@Busine2009 · 23.07.2010, 22:11

Ципихович Андрей,
шаришь в outlook?
Не в курсе, как сделать, чтобы тема сообщения дублировалась в самом сообщении?
Т.е смысл в чём, надо одно и то же писать и в теме и в сообщение. Есть одно но, есть подпись и она должна сохранять свой формат.

@Sasha_Smirnov · 24.07.2010, 01:40

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

Мне нAдо чтобы он закрывался без вопросов если только ничего не делал, а когда делал тогда естественно нужно сообщение Сохранить???

Ой ли естественно! Тут вот не зря Гейтса упомянули; не такой уж юзер идиот, чтобы, поработав над документом, изменений не сохранить. На случай ошибок есть Ctrl-Z.

Как вариант для «полупродвинутых» — комбинация моей F12 и моего автоклоуза.

Хочет так пошариться и выйти — жмёт F12, иначе (чтобы сохраниться) — на крестик. Каково, а!

@Alex77755 · 24.07.2010, 01:55

В том то и прикол, Что автор хочет чтобы программа узнавала сама - кто изменил документ?
документ изменяется изначально макросом. А потом надо отследить делал ли что то юзер?
Напрашивается программное сохранение документа в конце макроса. А уже потом ворд сам будет отслеживать изменял ли юзер документ.

@Ципихович Эндрю · 24.07.2010, 06:28 **[ТС]**

И что это Вы считаете задачей века, я программирую недавно и для меня дико, что это вообще можно считать задачей. Думал пойти таким путём, строка кода:
Documents(ActiveDocument).Undo 1 'отмена действий, в количестве ... шт.
И если пользователь ничего не делал выдаст ошибку № ...
И тогда
If ошибка № ... Then Dialogs(wdDialogFileSaveAs).Execute
Но ошибку увы не выдаёт
Но ведь можно же как то после этой строки: Documents(ActiveDocument).Undo 1 отследить
изменились ли что? как?

Добавлено через 14 минут
Busine2009
шаришь в outlook?
нет
Не в курсе, как сделать, чтобы тема сообщения дублировалась в самом сообщении?
нет и мне это нге надо, я об этом и не спрашивал
Т.е смысл в чём, надо одно и то же писать и в теме и в сообщение. Есть одно но, есть подпись и она должна сохранять свой формат.
Понял
Тоже считаете задачей века перед отправкой письма выдать форму не которой кнопки, их количество равно количеству контактов и на кнопке должен быть указан контакт и его эл. адрес
Так вот указать на кнопке контакт, пожалуйста
А указать на кнопке контакт, эл. адрес, это увы нет, вот Вам сообщение, пожалуйста, боритесь, почему?? бред!!!

Добавлено через 5 минут
Sasha_Smirnov, теперь только понял о чём Вы, просто кнопку на запуск макроса Вы выбрали Эф12 она меня сбила с толку.
Я попробовал между строками предложенными Вами

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

и строкой

PureBasic
1
Dialogs(wdDialogFileSaveAs).Execute

Я разницы не увидел на практике, читая их я понимаю, что разница есть
Но всё же я иду по пути, никаких Эф12 только крестик и всё

@Busine2009 · 24.07.2010, 07:26

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

нет и мне это нге надо, я об этом и не спрашивал

я для себя спросил, вдруг ты это знаешь и мне поможешь.

@Ципихович Эндрю · 24.07.2010, 07:36 **[ТС]**

.Subject = "" 'это тема письма
.Body = "Это текст письма" 'вариант отправки определённого текста
Делаете их одинкаковыми и всё

@Busine2009 · 24.07.2010, 07:38

Ципихович Андрей,
я до этого тоже дошёл, но у меня подпись есть ещё в сообщении, которая оформлена определённым шрифтом и т.д. Как её сохранить ну или добавить?

@Ципихович Эндрю · 24.07.2010, 07:46 **[ТС]**

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

но у меня подпись есть ещё в сообщении

этих слов не понял

@Busine2009 · 24.07.2010, 07:51

Ципихович Андрей,
т.е. есть постоянная часть в сообщении, например, с уважением Павел Петрович. Т.е. сообщение будет примерно так выглядеть:
Здравствуйте, меня зовут Павел Петрович.

С уважением Павел Петрович.

Это "С уважением Павел Петрович" оформлено определённым шрифтом и должно быть во всех сообщениях - это называется подписью.

К тому же и текст самого сообщения тоже должен быть оформленным определённым шрифтом.

@Ципихович Эндрю · 24.07.2010, 08:02 **[ТС]**

Попробуйте так: создайте объект А, затем

А = "Здравствуйте"
А.Font.Size = 14

....
.Subject = А
.Body = А

@Busine2009 · 24.07.2010, 08:04

Ципихович Андрей,
попробую.

@Ципихович Эндрю · 25.07.2010, 17:22 **[ТС]**

потом отпишитесь

Добавлено через 23 часа 55 минут
Ну что Алекс три семёрки и две пятёрки, поговорим?
1 строка кода и вся проблема:

Visual Basic
1
2
3
4
5
6
7
8
Sub AutoClose()
'AutoClose работает при закрытии документа Ворд
 
'условие, если буфер отмены пуст, тогда ...
'закрыть документ, не сохраняя его и при этом не выводить диалог о его сохранении
If ActiveDocument.Undo = False Then Dialogs(wdDialogFileSaveAs).Execute
 
End Sub

Остался только один нюанс, который даже если и не решится можно и обойтись, а именно:
теперь ведь в документе, когда я редактирую код ВБА, документ закрывается без вопросов
И ведь по идее всё верно, Ундо пустое нет вопросов к ВБА.
Но уж для полного счастья как условие ещё поставить если изменялся код ВБА, тогда также спросить о сохранении документа???

Добавлено через 9 часов 19 минут
Ну что попробовали, если сделали то как??

@Sasha_Smirnov · 27.07.2010, 11:07

Я как раз с этим столкнулся, испытывая способы закрытия без вопросов.

Поскольку Autoclose я забил в общий шаблон (Normal.dot) — ответ очевиден (поставить галочку).

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера 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. Пошагово создадим проект для загрузки изображения. . .

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,323
	23.07.2010, 12:49 [ТС]
	Спасибо за ответ, вторая часть условия есть, вернее реакция нужная на условие благодаря Вам есть Теперь осталось само условие, можете перевесьти на машинный язык, язык ВБА фразу: Если пользователь не добавил букву, знак, если ничего не удалил, не окрасил знаки в цвет ... и т.д., одним словом если ничего не делал, тогда ... А оконцовка известна Then Dialogs(wdDialogFileSaveAs).Execute Спасибо 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	23.07.2010, 16:38
	Ничего ли он не сделал или, наоборот, переделал всё — это без разницы. Документ закрывается без вопросов. (Кстати, я и сам уже полдня это использую!) 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,323
	23.07.2010, 16:42 [ТС]
	Мне не надо так, как Вы говорите: Ничего ли он не сделал или, наоборот, переделал всё — это без разницы.Документ закрывается без вопросов. Мне недо чтобы он закрывался без вопросов если только ничего не делал, а когда делал тогда естественно нужно сообщение Сохранить??? 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	23.07.2010, 22:11
	Ципихович Андрей, шаришь в outlook? Не в курсе, как сделать, чтобы тема сообщения дублировалась в самом сообщении? Т.е смысл в чём, надо одно и то же писать и в теме и в сообщение. Есть одно но, есть подпись и она должна сохранять свой формат. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	24.07.2010, 01:55
	В том то и прикол, Что автор хочет чтобы программа узнавала сама - кто изменил документ? документ изменяется изначально макросом. А потом надо отследить делал ли что то юзер? Напрашивается программное сохранение документа в конце макроса. А уже потом ворд сам будет отслеживать изменял ли юзер документ. 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,323
	24.07.2010, 07:36 [ТС]
	.Subject = "" 'это тема письма .Body = "Это текст письма" 'вариант отправки определённого текста Делаете их одинкаковыми и всё 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	24.07.2010, 07:38
	Ципихович Андрей, я до этого тоже дошёл, но у меня подпись есть ещё в сообщении, которая оформлена определённым шрифтом и т.д. Как её сохранить ну или добавить? 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	24.07.2010, 07:51
	Ципихович Андрей, т.е. есть постоянная часть в сообщении, например, с уважением Павел Петрович. Т.е. сообщение будет примерно так выглядеть: Здравствуйте, меня зовут Павел Петрович. С уважением Павел Петрович. Это "С уважением Павел Петрович" оформлено определённым шрифтом и должно быть во всех сообщениях - это называется подписью. К тому же и текст самого сообщения тоже должен быть оформленным определённым шрифтом. 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,323
	24.07.2010, 08:02 [ТС]
	Попробуйте так: создайте объект А, затем А = "Здравствуйте" А.Font.Size = 14 .... .Subject = А .Body = А 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	24.07.2010, 08:04
	Ципихович Андрей, попробую. 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	27.07.2010, 11:07
	Я как раз с этим столкнулся, испытывая способы закрытия без вопросов. Поскольку Autoclose я забил в общий шаблон (Normal.dot) — ответ очевиден (поставить галочку). Миниатюры 0