Outlook VBA вне офиса - установка даты + форматирование - PullRequest
Новая
       91

Outlook VBA вне офиса - установка даты + форматирование

0 голосов
/ 08 октября 2018

я использую Outlook 2013 и нуждаюсь в помощи для активации Out Of Office с VBA.У меня проблемы с настройкой времени начала и окончания, а также с форматированием моего сообщения.Кажется, я не могу использовать HTML-теги ... Есть ли способ получить мою текущую подпись?

Код до сих пор: 

Sub absence(toggle As Boolean)

Const PR_OOF_STATE = "http://schemas.microsoft.com/mapi/proptag/0x661D000B"

Dim oStore As Outlook.Store, oProp As Outlook.PropertyAccessor
Dim oStorageItem As Outlook.StorageItem

Set oStorageItem = Application.Session.GetDefaultFolder(olFolderInbox).GetStorage("IPM.Note.Rules.OofTemplate.Microsoft", olIdentifyByMessageClass)

oStorageItem.Body = "<html><body><b>I am curerntly not available...</b></body></html>"

oStorageItem.Save


For Each oStore In Session.Stores
    If oStore.ExchangeStoreType = olPrimaryExchangeMailbox Then

        Set oProp = oStore.PropertyAccessor
        oProp.SetProperty PR_OOF_STATE, toggle 'If true: start OOF, if false: quit OOF

    End If
Next
Set olkIS = Nothing
Set olkPA = Nothing

End Sub

Кто-нибудь есть идеи?Любая помощь приветствуется.

1 Ответ

0 голосов
/ 08 октября 2018

HTML OOF-ответы и диапазоны времени могут быть установлены только с помощью EWS - см. Операцию SetUserOofSettings на MSDN (https://docs.microsoft.com/en-us/exchange/client-developer/web-service-reference/setuseroofsettings-operation)

...