Excel Maxro可编辑电子邮件类别

我正在寻找一个在excel中运行的宏，它可以将一个类别添加到当前在outlook中打开的电子邮件中

---

我不想在Outlook中运行宏，它需要在excel中运行。

错误/空检查省略：

set OlApp = CreateObject("Outlook.Application")
OlApp.ActiveInspector.CurrentItem.Categories = "test"

---

由于出现“对象变量未设置”错误，我无法执行此操作。你能帮我在excel中创建整个宏来执行吗？在哪一行？Outlook当时正在运行吗？邮件是否在单独的检查器中打开？您好，outlook正在同时运行，无论预览窗格中是否有电子邮件，我都会收到相同的错误。我实现的代码：

code

Sub-AddCategory（）'Dim-OlApp-As-Object-Set-OlApp=CreateObject（“Outlook.Application”）OlApp.ActiveInspector.CurrentItem.Categories=“test”End-Sub

code

没关系。我试图用范围（“P19”）替换您的“test”部分，我必须用

code

Dim refCat As String”替换该部分，定义您的参考refCat=Range（“P19”）

code

谢谢您的帮助