Переадресация макроса, не работающего в Outlook 2013

Я autofoward все сообщения в папке, в которой я запускал этот макрос. Я обновил вчера до 2013 года, и он не работает. Я искал команды, используемые и не смогли найти какой-либо из тех, которые я использую, не признается в Outlook, 2013.Переадресация макроса, не работающего в Outlook 2013

Sub ChangeSubjectForward(Item As Outlook.MailItem) 
Item.Subject = "TAG NUMBER1234" & Item.Subject 
Item.Save 

Set myForward = Item.Forward 
myForward.Recipients.Add "[email protected]" 

myForward.Send 
End Sub

источник

2015-03-13 Greg D

Возможно, такая же проблема, как в: http://stackoverflow.com/questions/30619881/microsoft-outlook-2013-error-verify-vba-project-signature/30735745#30735745 – BerndGit

Ваш код выглядит хорошо, я не вижу ничего странного в коде. Похоже, вам нужно создать правило и назначить макрос VBA для запуска.

источник

2015-03-13 15:44:21

Спасибо. Я все это настроил и назначил ему. Он работает хорошо, никаких ошибок, но на самом деле ничего не передает. Я добавил к нему еще одно действие, присвоив его категории, и это сработало, поэтому я предполагаю, что проблема связана с VBA-компонентами. Http://i.imgur.com/oGkgDk9.png –

Я только что изменил параметры безопасности и разрешил все макросы и опустил всю другую безопасность. Когда я запускаю правило, он по-прежнему не пересылает сообщения в папке. Цените помощь никому. –

Некоторые вопросы:

Каковы ваши настройки правил, которые управляют этим? Вы вручную запускаете правило в папке, или это правило автоматически запускается на триггере? Вы получаете сообщения об ошибках?

Попробуйте следующее:

Убедитесь, что правило, которое работает ваш autoforward макрос ниже в списке правил, чем правило, что файлы сообщений в этой вложенной папке (если вы используете один).

Кроме того, поскольку я не знаю, что запускает ваш макрос, точно, возможно, он останавливается, когда он сталкивается с объектом не MailItem. Попробуйте это изменение:

Sub ChangeSubjectForward(olObj As Object) 

dim Item As Outlook.MailItem 

If olObj.Class <> olMail Then 'Making sure it is an email message 
    msgbox("Object Was Not MailItem") 
    Exit Sub 
End If 

Set Item = olObj 

Item.Subject = "TAG NUMBER1234" & Item.Subject 
Item.Save 

Set myForward = Item.Forward 
myForward.Recipients.Add "[email protected]" 

myForward.Send 
End Sub

Если вы продолжаете получать сообщение «Объект не был MailItem», то неправильные объекты становятся передаются на ваш суб.

источник

2015-04-08 13:25:56 Trashman

Переадресация макроса, не работающего в Outlook 2013

ответ

Смежные вопросы