请问可以批量修改草稿夹中的SUBJECT吗?

lenovo0916

OUTLOOK2003英文版,,
自己每天要回复很多邮件..每次都手动在SUBJECT处加上处理结果..比如__OK或者___APPROVED

想问问大家有没有方法啊..先谢谢了

aaaaabbbbb

我理解你的意思,我建议你创建两个文件夹,一个是APPROVED, 一个是REJECT.看完邮件后把相应的邮件拖入邮箱, 再通过 VBA,将APPROVED里的邮件统一回复.

lenovo0916

可我还要添加不同的附件.. 该如何详细操作呢?.

aaaaabbbbb

要求有些高。请把你的需求全部提出，看看是否可以通过VBA实现？

lenovo0916

附件我自己可以添加..
完了我可以保存到草稿夹中,,... 您告诉我如何批量修改SUBJECT就可以了..谢谢版主了..

aaaaabbbbb

以下代码可以批量修改成"__OK__",即同意.我从收件箱中选择了四封邮件测试 ,运行有点慢.(1.6G主频+736M内存, XP+OUTLOOK 2007), 可以做成窗体,和菜单项,这样就更方便了.

Sub MlReply()
Dim BodyFile As String
Dim olMailItem As MailItem
Dim rMailItem As MailItem
Dim myComments As String
Dim myOlSel As Outlook.Selection

Dim subj As String
myComments = "___OK____: "

Set myOlSel = Application.ActiveExplorer.Selection
For i = 1 To myOlSel.count
        Set olMailItem = myOlSel.item(i)
        Set rMailItem = olMailItem.Reply
        rMailItem.Subject = myComments & rMailItem.Subject
        rMailItem.Display
        rMailItem.Send
Next
Set rMailItem = Nothing
Set olMailItem = Nothing

End Sub

[ 本帖最后由 aaaaabbbbb 于 2009-5-30 08:18 编辑 ]

Itachi

用.send方法会出问题。是否有更好的方法？谢谢！