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

VBA万岁 · 发表于 2018-7-5 12:08

问题是这样的：我每月初都会在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万岁 · 发表于 2018-7-5 13:57

问题是这样的：我每月初都会在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

代码运行结果如下：
Excel中用VBA回复指定的Outlook邮件.gif

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

VBA万岁 · 发表于 2018-7-5 17:12

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

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

cocojyg · 发表于 2018-7-6 10:01

Sub 发送进货后调整的报表()
Dim nmsName As Outlook.Namespace
Dim inFolder As Outlook.MAPIFolder
Dim olItem As Outlook.MailItem
Dim olReply As MailItem
Set nmsName = Outlook.Application.GetNamespace("MAPI")
Set inFolder = nmsName.GetDefaultFolder(Outlook.olFolderSentMail) '发件箱
For Each olItem In inFolder.Items
   If olItem.Class = 43 Then
      If olItem.Subject = "6月份库存报表" Then
            Set olReply = olItem.ReplyAll
            olReply.HTMLBody = "gfh" & vbCrLf & olReply.HTMLBody
            olReply.Display
         End If
   End If
Next
Set olItem = Nothing
Set olReply = Nothing
End Sub

VBA万岁 · 发表于 2018-7-6 11:54

cocojyg 发表于 2018-7-6 10:01
Sub 发送进货后调整的报表()
Dim nmsName As Outlook.Namespace
Dim inFolder As Outlook.MAPIFolder

测试成功，cocojyg好样的！

VBA万岁 · 发表于 2020-12-2 09:32

以下求助，由于发新贴需要绑定QQ，所以放弃了，故回复到此处，望有人帮忙解答：

主题：Microsoft退出Win7意味着什么？

前两天，公司IT竟然告知所有电脑使用者：“微软将于2021年3月1日退休并终止所有的SharePoint 2010工作流(Microsoft is retiring and terminatingall SharePoint 2010 workflows on March 1st, 2021)……”

老实说，这个消息令我震惊，我不知道，这是否意味着：我现在正在使用的由自己编写的以下许多VBA程序将无法继续使用。如果真是那样，那太可怕了。

1、常用的Office管理，如收发邮件的管理、进销存管理、统计报表系统、数据上传至网络及从网络下载数据的管理……；

2、常用的应用小程序，如年终聚餐的抽奖系统、员工电话管理系统、交通巴士管理系统……；

3、各种VBA游戏，如：中国象棋、扑克牌24点、打气球游戏、五连珠、扫雷、拼图、魔方、钢琴电子琴……

十几年来，以上各系统我都是用VBA进行管理的，可以这么说，VBA几乎贯川了我工作的全部，所以，一旦VBA无法使用，我的工作将步履惟艰。

如果VBA仍能使用，那么VBA引用列表中，是否所有以“Microsoft”开头的工程引用都不可用，如果是，那于我仍然是一个不小的打击。比如：

1、Microsoft Excel 16.0 Object Library

2、Microsoft Access BarCode Control14.0

3、Microsoft ADO Ext. 2.8 for DDLand Security

4、:Microsoft HTML Object Library

5、Microsoft Outlook 16.0 ObjectLibrary

6、Microsoft Visual Basic forApplications Extensibility 5.3

7、Microsoft Internet Controls

8、Microsoft Forms 2.0 ObjectLibrary

以上求助，期待有人帮忙解答！

VBA万岁 · 发表于 2020-12-2 12:46