Out-of-office automaticly set for Outlook 2010 for inside & outside organisation

496
Olga

I am currently able to automatically enable OOO (out-of-office) automatically when Outlook is closed.

I have the following code which enables OOO when I close outlook, it currently works only for internal emails (replying to emails received from inside the organisation), but it doesnt work for emails received outside the organisation (like if I send an email from my hotmail account to test it, I get no automated reply).

Any ideas on how to fix this?

Private Sub Application_Quit() OutOfOffice True End Sub Private Sub Application_Startup() OutOfOffice False End Sub Sub OutOfOffice(bolState As Boolean) Const PR_OOF_STATE = "http://schemas.microsoft.com/mapi/proptag/0x661D000B" Dim olkIS As Outlook.Store, olkPA As Outlook.PropertyAccessor For Each olkIS In Session.Stores If olkIS.ExchangeStoreType = olPrimaryExchangeMailbox Then Set olkPA = olkIS.PropertyAccessor olkPA.SetProperty PR_OOF_STATE, bolState End If Next Set olkIS = Nothing Set olkPA = Nothing End Sub

Thank you very much for any help you can provide...

Olga p.s. original source: http://www.experts-exchange.com/Software/Office_Productivity/Groupware/Outlook/A_3487-Automating-Out-of-Office-in-Outlook.html

0
Да, проверил, что вы видите. По какой-то причине код не включает * «Автоответчик за пределами моей организации» * при запуске. Я еще не нашел код для включения этого. CharlieRB 9 лет назад 0
Удачи в поиске решения? Большое спасибо за внимание! Olga 9 лет назад 0
Я нашел много статей и постов с таким же кодом, а также комментарии или вопросы о том, как преодолеть ту же проблему, но нет ответов, как это сделать. К сожалению, я не смог найти объект VBA, чтобы изменить этот конкретный флажок на true. Сожалею. CharlieRB 9 лет назад 0
Не беспокойся, спасибо! Может быть, это ошибка, и только Microsoft знает решение ... Olga 9 лет назад 0

0 ответов на вопрос

Похожие вопросы