修改选定的电子邮件主题

时间:2016-03-04 12:09:44

标签: vba outlook-vba outlook-2013

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

目前在Outlook 2013中,我必须双击电子邮件,鼠标点击主题前面,添加我的姓名首字母和/,然后关闭电子邮件并回答问题"是否要更改。受试者#34;

我试图创建一个vba按钮为我这样做,代码在下面,但我不能让它工作。从编辑器运行时的错误代码是:运行时错误' 424':需要对象。在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

1 个答案:

答案 0 :(得分:0)

尝试以下

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