Форум программистов, компьютерный форум, киберфорум
Наши страницы
MS Office Outlook
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
sergey23031978
6 / 6 / 4
Регистрация: 20.02.2015
Сообщений: 163
1

Выполнение команды "Ответить всем", если в теме или в сообщении есть слово "отчёт"

16.02.2016, 12:40. Просмотров 1134. Ответов 1
Метки нет (Все метки)

Добрий день!

Помогите с макросом для MS Office Outlook, нужен макрос для виполнения команди "Ответить всем" для письма которое пришло сегодня и в теме или теле письма есть слово "Отчет"

Добавлено через 1 час 45 минут
в ответе нужно написать "Отчет проверен"
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.02.2016, 12:40
Ответы с готовыми решениями:

VBA Outlook (Inspector, "Ответить всем", выборка из базы.)
Добрый день! на данный момент вручную выполняю следующие действия: - во входящей почте нахожу...

При "Ответить" из отправленных вставляет меня в адресатов. Как уйти от этого?
подскажите, пожалуйста, как при нажатии кнопки "Ответить" или "Ответить всем" сделать так, чтобы...

Что делает команда outlook "Отменить запрос к серверу"?
О каком запросе идёт речь?

Где у publisher 2007 выбрать "веб-узлы"?
В лабораторке написано: запустите паблишер и выбрать тип публикации "веб-узлы" где это?????

Как убрать значок "отправить в OneNote" из трея?
Вот висит и не знаю как убрать. Как убрать?)

1
pashulka
3325 / 1776 / 750
Регистрация: 01.12.2010
Сообщений: 3,536
23.02.2016, 13:11 2
Поиск писем в папке "Входящие" у которых в теле письма есть текст "Отчет"(без учёта регистра) и их последующая отправка.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Test()
    Dim objNameSpace As Outlook.NameSpace
    Dim objFolder    As Outlook.Folder
    Dim objMail      As Outlook.MailItem
    Dim objNewMail   As Outlook.MailItem
    
    Set objNameSpace = Application.GetNamespace("MAPI")
    Set objFolder = objNameSpace.GetDefaultFolder(olFolderInbox)
    
    For Each objMail In objFolder.Items
        If Int(objMail.CreationTime) = Date Then
           If InStr(1, objMail.Body, "Отчет", vbTextCompare) Then
              Set objNewMail = objMail.ReplyAll
              objNewMail.Body = "Отчет проверен"
              objNewMail.Send 'objNewMail.Display
           End If
        End If
    Next
End Sub
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.02.2016, 13:11

В outlook 2010 сообщения с вложениями не сохраняются в "Отправленные"
Всем здравия! В outlook 2010 сообщения с вложениями не сохраняются в "Отправленные". Т.е. когда...

Нет кнопки "Оставлять копии сообщений на сервере"
Что делать в Установленной програмее Аутлук 2007 нет кнопки "Оставлять копии сообщений на...

Outlook Express: управление столбцами в просмотрщике для папки "Исходящие"
Возникла задача, решения пока не нашёл. Откройте Outlook Express 6. Если посмотреть папки...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.