轉發宏在Outlook 2013中不起作用

我自動將我運行此宏的文件夾中的所有消息自動化。我昨天升級到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 2015-06-09 15:04:41

您的代碼看起來不錯，我沒有在代碼中看到任何奇怪的東西。它看起來像您需要創建一個規則並分配VBA宏子運行。

來源

2015-03-13 15:44:21

謝謝。我已經把它全部設置並分配給它。它運行良好，沒有錯誤，但實際上並沒有轉發任何東西。我添加了另一個動作，將其分配給一個類別，並且它工作，所以我認爲問題出在VBA的一面http://i.imgur.com/oGkgDk9.png – 2015-03-13 15:52:38

我剛剛修改了安全設置並且允許所有宏並降低所有其他安全性。當我運行規則時，它仍然不轉發文件夾中的消息。欣賞任何人的幫助。 – 2015-03-16 12:48:27

一些問題：

你的規則設置是什麼運行？您是手動運行文件夾中的規則，還是自動運行觸發器的規則？您是否收到任何錯誤訊息？

嘗試以下操作：

確保運行您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]email.com" 

myForward.Send 
End Sub

如果你不斷收到消息「對象沒有的MailItem」接錯對象得到傳遞給你的子。

來源

2015-04-08 13:25:56 Trashman

轉發宏在Outlook 2013中不起作用

回答

相關問題