Подскажите чайнику, пожалуйста. Вот есть у меня макрос следующего вида
Код
Dim objFolder As Outlook.Folder
Dim objNS As Outlook.Namespace
Dim objMail As Outlook.MailItem
Dim lCounter As Long
Set objNS = Outlook.GetNamespace("MAPI")
Set objFolder = objNS.GetDefaultFolder(olFolderInbox).Folders("Важная папка")
For lCounter = 1 To objFolder.Items.Count
Set objMail = objFolder.Items.Item(lCounter)
{Здесь я получаю информацию различную из objMail такие как дата, время, тема, отправитель, вложения и т.д. и произвожу с ними манипуляции.}
Next
Все это прекрасно работает у меня в Excel 2016 с подключенной библиотекой (т.е.галочку поставил в Tools->References) Microsoft Outlook 16.0 Object Library. Но, требуется запускать тоже самое и на Excel 2013. Там соответственно библиотека уже не 16.0, а 15.0 и, неизвестно, может и на других версиях офиса придется. Файл могут открыть на разных ПК с разными версиями MS Office. И там, соответственно, все вываливается с ошибкой, что не найдена библиотека 16.0. Догадываюсь, что можно библиотеку не подключать галочкой, а в макросе что-то переделать. Но, пока, не научился (самоучка). Подскажите, как все-таки сделать, чтобы работало и на 2016м и на 2013м. Желательно, прям поправить код, чтобы понятнее было, как работает.