|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - VBA-Outlook внесение изменений в список входящих писем |
|
VBA - VBA-Outlook внесение изменений в список входящих писем
|
Новый участник Сообщения: 1 |
Профиль | Отправить PM | Цитировать Добрый день!
Вроде простое задание, но есть какая-то хитрость, пока не могу понять какая... После запуска макроса требуется во всех входящих письмах за последние пять дней внести небольшие изменения. Почему-то макрос вносит изменения только в то сообщение, на котором в данный момент находится курсор, а не во всех полученных письмах за указанный период... Private Sub ChangeMSG() Dim olApp As Outlook.Application Dim fldr As MAPIFolder Dim myItem As Object Dim filt As String Dim i As Integer Set olApp = New Outlook.Application Set fldr = olApp.GetNamespace("MAPI").Folders("Входящие").Folders("Свои") filt = "([ReceivedTime] >= '" & Format(Now() - 5, "dd.MM.yyyy") & "')" Set myItem = fldr.Items.Restrict(filt) If myItem.Count > 0 Then For i = 1 To myItem.Count If myItem(i).Subject = "Отчет" Then myItem(i).Categories = "# Отчет #" myItem(i).Subject = "#Номер#" & Chr(13) & myItem(i).Subject myItem(i).Body = "# Номер & " #" & Chr(13) & myItem(i).Body myItem(i).Save End If Next i End If Set fldr = Nothing Set olApp = Nothing End Sub |
|
Отправлено: 13:29, 16-09-2016 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
V. 2010 - Не работает правило для входящих писем в Outlook | Jandosic | Microsoft Exchange Server | 1 | 02-02-2015 09:31 | |
2010 - MS Outlook 2010 и обработка входящих писем | blackrokk | Microsoft Office (Word, Excel, Outlook и т.д.) | 0 | 29-03-2014 06:43 | |
2010 - Вопрос по сортировке писем в входящих Outlook | Cr00t | Microsoft Office (Word, Excel, Outlook и т.д.) | 2 | 07-10-2011 16:39 | |
Ошибка - outlook express и 2 Гб входящих писем | olalkon | Microsoft Windows 2000/XP | 3 | 25-10-2010 09:23 | |
Не отображается список писем во входящих OE | OFP | Microsoft Windows 95/98/Me (архив) | 7 | 03-06-2005 09:30 |
|