修改选定的电子邮件主题

Question

在我的工作中，我一天要处理一百多封电子邮件，而且我总是必须在主题的前面加上我的姓名首字母，以便其他人知道我已经接受了。

目前在 Outlook 2013 中，我必须双击电子邮件，鼠标单击到主题前面，添加我的姓名首字母和 /，然后关闭电子邮件并对问题回答是 "Do you want to change the subject."

我已经尝试创建一个 vba 按钮来为我执行此操作，代码如下，但我无法让它工作。编辑器运行时的错误代码是：运行-time error '424': Object required.在 Outlook 中使用宏按钮时，绝对没有任何反应。宏安全设置为通知。

因此，非常感谢任何帮助或完全重写代码！

Sub Nimmarit()
Dim aItem As Object

Set aItem = obj.AppApplication.ActiveExplorer.Selection()

Dim strTemp As String
Dim strFilenum As String

strFilenum = "JK/"

If strFilenum = False Then Exit Sub
If strFilenum = "" Then Exit Sub

strTemp = "[" & strFilenum & "] " & aItem.Subject
    aItem.Subject = strTemp
    aItem.Save     
End Sub

Answer 1

尝试以下方法

Sub Nimmarit()
    Dim olItem As MailItem
    Dim sFilenum As String

    sFilenum = "JK/ "

    If Application.ActiveExplorer.Selection.Count = 0 Then
        MsgBox "No Items selected!", vbCritical, "Error"
    End If

    '// Process each selected Mail Item
    For Each olItem In Application.ActiveExplorer.Selection
        olItem.Subject = "[" & sFilenum & "] " & olItem.Subject
        olItem.Save
    Next olItem
End Sub

修改选定的电子邮件主题

Modifying selected email subject

outlook

vba

outlook-2013