Excel VBA Outlook自动化代码段可以在一个工作簿中工作，但不能在另一个工作簿中工作

I am trying to transfer one piece of code to another workbook. The code works perfectly on workbook1 but generates a I am trying to transfer one piece of code to an