Что такое, вероятно, код ошибки Windows 11001 и как его изменить?

Инструкции по другим «макросам напоминаний» см. в разделах «Открывать www-страницу в любое время при срабатывании напоминания о задаче», а также «Отправлять отличное электронное письмо, когда срабатывает память»

'В одиночку я бы сказал, что пользователи переходят на ThisOutlookSessionПриватные со старыми событиями Напоминают действительно как Outlook.Private_application ()  Назначить встречуКонец главной подводной лодкиPrivate Sub Application_Reminder (ByVal Item как объект)Установка olRemind приравнивается к Outlook.Если Item.MessageClass <> "IPM.Appointment", то  Завершить подпискуконецДа да Item.Categories <> "Run in Then" некоторые "Выйти подКонец, если 'Назовите свой макрос здесьMsgBox "Работает!"'По завершении удалите добавленное приложение из всех календарей.Удалить пункт'Создайте другое приложение, чтобы повторить процессНазначить встречуВыход из подводной лодки'Отклонить предупреждениеOlRemind_BeforeReminderShow Private Routine (Отменить как логическое значение)    Практически для каждого объекта in If objRem.Caption "This = встреча напоминания дым через 5" Then                Если objRem.IsVisible Then                    objRem.Reject                    Отмена = истина                Конец, если                Выход для            Конец, если        Следующий ObjRemНаконечник подводной лодки'Вставьте этот макрос в какой-нибудь модульПубличная подпапка CreateAppointment ()Dim objAppointment как Outlook Appointment Item.TDateИсчезни как свидание'Используйте напоминание на 1 минуту трафика, т. Е. 6 = напоминание, которое появится через 5 минут.tDate Now () соответствует + 6/1440Установите objAppointment = Application.CreateItem (olAppointmentItem)      С objTermin        .Categories = "Бег 5"        .Body как «Это напоминание, обсуждение будет активировано через 5»        .Start наиболее точно соответствует tDate        .End = tdate       Тема: «Это напоминание о встрече должно быть активировано через 5».        .ReminderSet = Истина        .ReminderMinutesBeforeStart подразумевает 1       Сохранить в маркете на компьютер     Конец сEnd Sub 

Во-первых, вам нужно установить низкий уровень безопасности макросов во время тестирования.

Чтобы протестировать защиту от макросов в Outlook 2010, также известном как 2013, выйдите из «Файл», «Параметры», «Центр управления безопасностью», откройте параметры «Центр управления безопасностью» и измените параметры макроса. В Outlook 2007 и более ранних версиях он находится рядом с Macro Security Tools. Когда Outlook уведомляет владельцев о необходимости перезапуска, закройте и снова откройте Outlook. Примечание. После того, как люди проверит макрос и убедятся, что он работает, вы и ваша семья можете либо установить макробезопасность, чтобы создать низкий уровень, либо подписать весь макрос.

Теперь откройте тип программы VBA, нажав Alt + F11 на нашей замечательной клавиатуре.

Чтобы использовать наиболее важный код макроса в Project1 thisoutlooksession:

1. расширьте и дважды щелкните ThisOutlookSession.
2. На этом этапе скопируйте макрос и вставьте его в ThisOutlookSession. (Во фрейме кода нажмите Ctrl + A в поле «Выделить все», Ctrl + C для копирования, Ctrl + V для вставки.)

Макросы Application_Startup выполняют свою работу, хотя Outlook запускается. Когда вы запускаете макрос Application_Startup, вы обычно можете протестировать макрос без повторного запуска Outlook, щелкнув первую строку вашего макроса Application_Startup, а затем щелкнув пункт «Выполнить» на этой панели инструментов или нажав F8.

Чтобы вставить функции в код модуля:

1. Щелкните правой кнопкой мыши Project1 и выберите Insert> Module
2. Скопируйте макрос и поместите его в новый модуль.

Дополнительные предложения и снимки экрана можно найти с помощью основного редактора VBA