针对人群的开放式 outlook 电子邮件 (Outlook 2010)

Question

我一直在尝试使用 userform+vba 代码段改进 "quality of life" 以在办公室进行后续电子邮件流程，但我在这方面遇到了障碍，而我'我已经能够创建 全新的 电子邮件，并使用 .Body、.Attachments.Add、.To 等所有好东西对其进行格式化，我还没弄清楚如何回复一封已经存在的邮件，这是这个后续过程的必要部分。

我看到给出了 C#/vb.net 的解决方案，并且在使用对象浏览器时我发现 "Application.ActiveExplorer" 也存在于 VBA 中。这就是我目前正在使用的：

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

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

如果这不符合标准或有任何问题，我深表歉意missing/unclear，我只是另一个正在寻找方向的新手；我在使用对象资源管理器、MSDN 和简单的旧式搜索时一直在学习这一点。如果有任何歧义，我会尽力澄清。

感谢您的宝贵时间。

Answer 1

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

针对人群的开放式 outlook 电子邮件 (Outlook 2010)

Targeting an open outlook email for population (Outlook 2010)

email

outlook

vba

outlook-2010