如何在Excel中用VBA回复指定的Outlook邮件

VBA万岁

问题是这样的：我每月初都会在Outlook中发一份进销存方面的报表，进货后更改报表，再用将更改后的报表附在邮件后回复自己之前发过的的那份报表邮件。于是采用以下代码:
Sub 发送进货后调整的报表()
'On Error Resume Next
Dim d, x, k, i
Dim nmsName As Outlook.Namespace
Dim inFolder As Outlook.MAPIFolder
Dim mi As Object
Dim m As MailItem
Set nmsName = Outlook.Application.GetNamespace("MAPI")
Set inFolder = nmsName.GetDefaultFolder(Outlook.olFolderSentMail)
For Each mi In inFolder.Items
    If mi.Class = 43 Then
        Set m = mi
        If (m.Subject = Month(Date) - 1 & "月份库存报表") And (Format(m.SentOn, "yyyy-mm") = Format(Date, "yyyy-mm")) Then
            'm.Display
            m.ReplyAll.Body = "gfh"
            m.ReplyAll.Display
         End If
    End If
Next
End Sub

以上代码能打开我之前的那个主题为“6月份库存报表”的邮件的回复界面，显示了那份邮件的内容及新内容的光标插入点，但回复内容"gfh"却没有被自动加进去。
不知为什么？如何解决？望路过的大神帮忙看看......

VBA万岁

由于申核耽搁了一些时间，所以求助被潮水般涌现的新帖挤到后面了，只好自己再顶一下，见谅！......

VBA万岁

VBA万岁 发表于 2018-7-5 11:45
由于申核耽搁了一些时间，所以求助被潮水般涌现的新帖挤到后面了，只好自己再顶一下，见谅！......

问题是这样的：我每月初都会在Outlook中发一份进销存方面的报表，进货后更改报表，再将更改后的报表附在邮件中回复自己之前发过的的那份报表邮件。于是采用以下代码:

Sub 发送进货后调整的报表()
Dim nmsName As Outlook.Namespace
Dim inFolder As Outlook.MAPIFolder
Dim m As MailItem
Set nmsName = Outlook.Application.GetNamespace("MAPI")
Set inFolder = nmsName.GetDefaultFolder(Outlook.olFolderSentMail)
For Each m In inFolder.Items
      If m.Class = 43 Then
         If (m.Subject = Month(Date) - 1 & "月份库存报表") And (Format(m.SentOn, "yyyy-mm") = Format(Date, "yyyy-mm")) Then
             m.ReplyAll.Body = "gfh"
              m.ReplyAll.Display
           End If
      End If
Next
End Sub


代码运行结果如下：

可见代码能打开我之前的那个主题为“6月份库存报表”的邮件的回复界面，显示了那份邮件的内容及新内容的光标插入点，但回复内容"gfh"却没有被自动加进去。附件也加不进去。
不知为什么？如何解决？望路过的大神帮忙看看......

VBA万岁

VBA万岁 发表于 2018-7-5 14:12
问题是这样的：我每月初都会在Outlook中发一份进销存方面的报表，进货后更改报表，再将更改后的报表附在 ...

百度关于关于用VBA回复Outlook指定邮件的文帖子很少，目前只发现以下帖子：
Outlook 怎么用VBA打开回复邮件窗口，并进入可编辑状态
这个帖子也只解决了一半的问题，剩下的一半期待有大神帮忙解决。

闻启学

  我来试一试  哈哈哈哈

VBA万岁

闻启学 发表于 2018-7-6 07:30
我来试一试  哈哈哈哈

期待中......
一旦此路不通，权宜之计（笨办法）是：新建一个邮件，收件人同指定的待回复邮件。主题在待回复邮件主题之前添加“回复：”三字符。内容分3部分：一部分为回复的内容 & 换行 ；第二部分：“From: ” & 待回复邮件的发件人地址 & 换行 & “Sent:” & 待回复邮件的发送时间 & “To:”& 换行 & 待回复邮件的收件人地址& 换行 & “Cc: “ & 待回复邮件的抄送人地址& 换行 & “Subject: ” & 待回复邮件的主题 & 换行 ；第二部分：待回复邮件的内容。
新建邮件的VBA代码百度一大把。但我还是希望通过回复邮件的方式实现。

VBA万岁

VBA万岁 发表于 2018-7-6 08:56
期待中......
一旦此路不通，权宜之计（笨办法）是：新建一个邮件，收件人同指定的待回复邮件。主题在待 ...

而且，新建邮件为了做得更像回复邮件，还必须在内容的第一、二部分之间加一条水平线。这个须用HTMLBody方式。

VBA万岁

VBA万岁 发表于 2018-7-6 09:02
而且，新建邮件为了做得更像回复邮件，还必须在内容的第一、二部分之间加一条水平线。这个须用HTMLBody方 ...

最新进展：已在4楼的链接贴中得到解决。
再次感谢cocojyg的帮助！

VBA万岁

VBA万岁 发表于 2018-7-6 11:57
最新进展：已在4楼的链接贴中得到解决。
再次感谢cocojyg的帮助！

更正，不是4楼的链接帖，而是在本人于Outlook版块所发的求助帖中得到解决：
如何在Excel中用VBA回复指定的Outlook邮件