Outlook 怎么用VBA打开回复邮件窗口，并进入可编辑状态

bokk123 · 发表于 2017-12-8 16:21

本帖最后由 bokk123 于 2017-12-8 16:23 编辑

邮件找到后显示，直接进入可编辑状态。而不是只是显示出来。
用.Display和.Replay, .ReplyAll方法都不能做到。

Sub DisplayMail()
Dim myNamespace, myFolder As Folder, myItem As Object
Set myNamespace = Application.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
Set myItem = myFolder.Folders(1).Folders(1)

myItem.Items(1).Display '这个只能单独把邮件窗口显示出来，但是不是那种回复时候的可编辑状态

End Sub

bokk123 · 发表于 2017-12-11 17:00

自己解决了，哈哈。原来要用到Reply方法。
Dim objMsg As Outlook.MailItem
Set objMsg = myItem.Items(i).Reply
objMsg.Display

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

bokk123 发表于 2017-12-11 17:00
自己解决了，哈哈。原来要用到Reply方法。
Dim objMsg As Outlook.MailItem
Set objMsg = myItem.Items(i ...

楼主帮忙看看以下问题能否解决？
[求助] 如何在Excel中用VBA回复指定的Outlook邮件

		自动登录	找回密码
密码			免费注册