Можно ли в Excel VBA считывать Outlook для определенных тем?

Question

Я часто пользуюсь вашим сайтом, пока занимаюсь практикой для моего обучения.в то время как это мне нужно программировать VBA для компании.

Пока я это обдумал, и до сих пор со мной все в порядке.

Мой последний проект - список, следующие шаги:

1. обновляет себя новыми данными из других рабочих книг (отметьте)

2. отправка электронных писем группе конкретных лиц с личными данными в качестве рабочей книги Excel (также проверьте)

3. получение писем с возможно измененными значениями и исправлениями из группы лиц.(в процессе ... понятия не имею, как туда добраться)

Последний пункт меня беспокоит, потому что, если есть способ, это будет нелегко получить.Компания использует Excel / Office 2017 и Outlook.

Я хочу просмотреть приложение Outlook для конкретных тем.Затем откройте книгу Excel из этого письма и исправьте данные проекта.

Я осмотрелся и нашел несколько старых тем, которые больше не работали.Может кто-то ответить на это "Нет, не возможно" или "Вы, вы можете сделать это так": D спасибо большое, ребята.

Answer 1

Да, это определенно возможно. Вам нужно будет использовать свойство «Тема»:

Дополнительную документацию по этому свойству и примеры от Microsoft можно найти здесь: https://docs.microsoft.com/en-us/office/vba/api/outlook.mailitem.subject

Вот быстрый и грязный пример - вам, возможно, понадобится отладить этот, но он должен помочь вам в этом. В этом разделе будет отображаться MsgBox темы письма, которое вы выбрали в данный момент

Sub Selected_Email_Subject()

    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set GetCurrentItem = OutApp.ActiveInspector.CurrentItem


    If GetCurrentItem Is Nothing Then
            Set GetCurrentItem = olApp.ActiveExplorer.Selection.Item(1)
    End If


    MsgBox(GetCurrentItem.Subject)

End Sub