Экспорт электронной почты Outlook в Excel с ссылкой на ячейку, содержащую папки из Outlook - PullRequest
0 голосов
/ 05 февраля 2020

Я сейчас ищу и пробую все, но не могу найти хорошую работу для этого. Чтобы в папках была ссылочная ячейка, в которую можно поместить адрес электронной почты или подпапку, например, лист «Тест», ячейка A2

Option Explicit
Public Sub Example()
Dim olApp As Outlook.Application
Dim olNS As Outlook.Namespace
Dim Inbox As Outlook.MAPIFolder
Dim Items As Outlook.Items
Dim i As Long

'// Ref to Outlook Inbox
Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set Inbox = olNS.GetDefaultFolder(olFolderInbox).Folders(Reference a cell from the workbook )

Set Items = Inbox.Items

For i = Items.count To 1 Step -1
    Debug.Print Items(i) '

Next
End Sub

Спасибо

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...