Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/15: Рейтинг темы: голосов - 15, средняя оценка - 4.53
0 / 0 / 0
Регистрация: 28.08.2013
Сообщений: 5
1

Обработка писем в Outlook

19.11.2015, 21:47. Показов 2748. Ответов 1

Форумчане, здравствуйте.

Прошу помочь с решением такой задачи:
Как можно реализовать такую ситуацию - при снятии/изменении отметки "к исполнению" в конце тела данного сообщения указывалось время данного действия?
0
Миниатюры
Обработка писем в Outlook  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2015, 21:47
Ответы с готовыми решениями:

Обработка вложений из писем, загружаемых при запуске Outlook 2016
Всем доброго времени суток! У меня есть задача: сортировать вложения по названиям и хранить их в...

Сохранение писем в Outlook
Всем привет. Помогите пожалуйста исправить ошибку Sub P2() Dim myFolder As Outlook.MAPIFolder...

Считывание писем из Outlook
Доброе время суток. Столкнулся с такой проблемой: необходимо считать содержимое писем в...

Перебор писем Outlook
Здравствуйте уважаемые ! Прошу помочь в данной проблеме. Программа в MS Access. Нужно данной...

1
0 / 0 / 0
Регистрация: 28.08.2013
Сообщений: 5
22.11.2015, 18:02  [ТС] 2
Начало вроде есть:

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Application_ItemLoad(ByVal Item As Object)
Dim oMail As MailItem
Dim att As Attachment
 
Set oMail = Outlook.Application.ActiveExplorer.Selection(1)
 
If oMail.FlagStatus = 1 Then  Debug.Print oMail.Subject & " " & FormatDateTime(Now, vbGeneralDate)
 
End Sub
Но остался открытым вопрос как отловить событие изменения флажка в уже выделенном сообщении, т.е. без перехода к следующему сообщению.

Добавлено через 4 часа 5 минут
Задача решена.
Оставлю, возможно кому-то понадобится

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim myOlApp As New Outlook.Application
Public WithEvents myOlItems As Outlook.Items
 
Public Sub Initialize_handler()
    Set myOlItems = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
End Sub
 
Private Sub Application_ItemLoad(ByVal Item As Object)
    Call Initialize_handler
End Sub
 
Private Sub Application_Startup()
    Call Initialize_handler
End Sub
 
Private Sub myOlItems_ItemChange(ByVal Item As Object)
    If Item.FlagStatus = 1 Then
        Item.Body = "================================" & vbNewLine & "Обработано:" & vbNewLine & "================================" & vbNewLine & Item.Body
    End If
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.11.2015, 18:02

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Извлечь почты из писем в outlook
Всем привет, подскажите пожалуйста, есть ли возможность извлечь все почты из писем в определенной...

Перебор всех писем в Outlook
Подскажите, пожалуйста: как посредством VBA организовать последовательный перебор всех писем в...

Рассылка писем через Outlook
Добрый день, нашел макрос в интернете по рассылке писем через Outlook, помогите его доработать,...

Сохранение входящих писем из Outlook
Прошу помощи у более опытных товарищей. Может кто то решал задачу сохранения писем из определенной...


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

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

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