附加到主题并发送邮件Outlook VBA

Question

我正在尝试创建一个宏，它会将一些文本添加到邮件主题中，然后发送邮件。我在功能区上创建了一个按钮，用户将单击该按钮添加（安全）到主题行并发送消息。

我正在使用以下内容，我从网上找到的几个来源汇总了这些内容。

Sub InsertSubject()

Dim objMsg As Outlook.MailItem

'Get the currently open message'

Set objMsg = Outlook.Application.ActiveInspector.CurrentItem

objMsg.Subject = CurrentItem.Subject & "(Secure) "

'Destroy the object to avoid memory leaks'
objMsg.Send
Set objMsg = Nothing


End Sub

当我运行它时，我得到一个运行时错误424对象必需。它似乎与以下行有问题

objMsg.Subject = CurrentItem.Subject & "(Secure) "

如果我删除了CurrentItem.Subject，代码可以工作，但显然只是用（安全）替换了主题。

非常感谢任何帮助。

Answer 1

我认为你打算做objMsg.Subject = objMsg.Subject & "(Secure) "。

请注意，您尝试使用的CurrentItem不一定与Outlook.Application.ActiveInspector.CurrentItem相同。我对Outlook对象模型并不熟悉，但我打赌CurrentItem当它被调用时它本身无效。