Код Outlook перестает работать

Question

У меня есть 1-минутная задержка на всех электронных письмах и вы хотите назначить категорию, настроенную как исключение из правила для отправки немедленно.

Я создал макрос, но он прекратил работать.

Public Sub CategoriesButton() 
    Dim Item As Outlook.MailItem 
    Set Item = Application.ActiveInspector.CurrentItem 
    Item.Categories = "SendMe" 
    Item.Save 
End Sub 

Answer 1

Интересно - у меня была такая же проблема. Работала отлично, но затем я перезапустил Outlook, и он прекратил работать - без видимых причин.

Понадобилось время, чтобы разобраться в этом, но при перезапуске Outlook он применяет разрешения макросов к вашему макросу.

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

Вы можете расслабить настройки безопасности, чтобы Outlook, либо попросить разрешение на запуск макросов, или просто запускать все макросы независимо (этот последний вариант, вероятно, не очень хорошая идея!)

Вы можете самостоятельно подписать ваш собственный макрос, есть довольно хорошее руководство, чтобы сделать это здесь: http://www.slipstick.com/developer/how-to-use-outlooks-vba-editor/

Но досадно, кажется, вы всегда получить уведомление, даже с подписанным макро ... так что это, вероятно, проще просто изменить параметры безопасности «уведомление для всех».

Надеюсь, что это поможет - код, который вы отправили, определенно помог мне, это было точно, что я искал, а также для контроля за 1 минутой задержки!

Человек, каждый раз, когда я приближаюсь к макросам в Outlook, я в конечном итоге теряю полдня или около того ...