Question

我是VBA的新手。这与Outlook 2010相关。网络上的常见解决方案是对所有类别进行简单的注册表编辑，以便从传入消息传输到Reply / Reply all和forward消息。我的办公室不允许更改注册表。尊重办公室是否有任何VBA代码来完成COPY和PASTE所有指定类别的任务？

谢谢

Answer 1

通常对外发邮件进行分类。我相信大多数（也许全部）都会在发送时删除类别。

Private Sub Categories_reply()

Dim currItem As mailItem
Dim repItem As mailItem

Set currItem = ActiveInspector.currentItem

Set repItem = currItem.reply
repItem.Categories = currItem.Categories
repItem.Display

repItem.Save

If repItem.Categories <> "" Then

    MsgBox " Viewed in Drafts folder, with a categories column, you should see: " & _
        vbCr & repItem.Categories & vbCr & vbCr & _
        "The categories will likely be removed upon sending."

End If

End Sub

VBA for Outlook 2010复制类别以回复/回复所有和转发没有注册表

1 个答案: