针对人群的开放 Outlook 电子邮件 (Outlook 2010)答案

【问题标题】：Targeting an open outlook email for population (Outlook 2010)针对人群的开放 Outlook 电子邮件 (Outlook 2010)
【发布时间】：2016-08-15 04:18:27
【问题描述】：

我一直在尝试使用 userform+vba sn-p 来提高办公室后续电子邮件流程的“生活质量”，但我在这方面遇到了障碍创建一个全新的电子邮件并使用所有好东西（如 .Body、.Attachments.Add、.To 等）对其进行格式化，我没能做到弄清楚如何回复已经存在的电子邮件，这是后续流程的必要部分。

我看到this SO page 为 C#/vb.net 提供了解决方案，在使用对象浏览器时，我发现 VBA 中也存在“Application.ActiveExplorer”。这是我目前正在使用的：

Private Sub btnSubmit_Click()
Dim msg As String
Dim objMsg As Outlook.MailItem

Set followUp = objMsg.ActiveInspector.CurrentItem
With followUp

' Compose message
msg = "Good Morning," & "<br />" & "<br />"
msg = msg & "This is a follow-up request for the following outstanding subjectivities: " & "<br />" & "<br />"

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
    Counter = Counter + 1
msg = msg & ListBox1.List(i) & "<br />"

Else: If Counter = 0 Then msg = msg & “nothing”
End If
Next

msg = msg & "<br />" & "If these are not submitted within 3 days, a Notice of Cancellation will be sent." & _
"Please let us know if you have any questions or concerns." & "<br />" & "<br />"

    .Reply
    .HTMLBody = msg
    ' .Attachments.Add (" ")
    Unload subjectivitiesSelection
    .Display
End With 
End Sub

最终目标只是填充响应消息，以便用户可以附加适当的用户签名并将其发送出去，没有什么花哨或自动化的东西，只是让生活更轻松，工作更快捷。我在这个项目中还有其他事情要解决（例如：在不选择任何预定因素的情况下点击 OK 会可能仍然会生成电子邮件），但这可能是最大的障碍我自己的路。

如果这不符合标准或有任何遗漏/不清楚的地方，我深表歉意，我只是另一个正在寻找方向的新手；我在使用对象资源管理器、MSDN 和普通的旧搜索时一直在学习这一点。如果有任何模棱两可的地方，我会尽力澄清。

感谢您的宝贵时间。

【问题讨论】：

标签： vba email outlook outlook-2010

【解决方案1】：

使用 MailItem.Reply 方法 - 它返回新创建的 MailItem 对象。您上面的代码没有多大意义 - objMsg 变量未初始化，MailItem 对象没有 ActiveInspector 属性，但 Application 对象有。您可能还想查看 Application.ActiveExplorer.Selection 集合：它将包含文件夹中当前选定的项目。 Application.ActiveInspector 仅适用于在活动检查器中打开的消息。

【讨论】：

正如你所说：我从未初始化我想使用的东西。我会说我在原始帖子中不清楚一件事；我确实想要选择当前打开电子邮件，而不是当前选择，因为我的公司将.msg文件存档在我们的专有系统中，然后当需要“跟进”时打开该 .msg 文件。