使用 Visual Basic 在 Outlook 中的附件和电子邮件主题答案

【问题标题】：Attachment and Email subject in Outlook using visual basic使用 Visual Basic 在 Outlook 中的附件和电子邮件主题
【发布时间】：2018-10-25 02:09:08
【问题描述】：

我尝试在 Outlook 中制作带有附件的标准电子邮件。但结果并不完全符合我的预期。我收到两封电子邮件。一封包含附件，另一封包含主题。

Sub button()

Dim myAttachments As Outlook.Attachments

Set myItem = Application.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments
myAttachments.Add "C:\Users\User\AppData\Roaming\Microsoft\Test.pdf", _
olByValue, 1, "Test"
myItem.Display

Dim oMail As Outlook.mailItem
Dim Item As Outlook.mailItem

Set Item = Application.ActiveExplorer.Selection(1)
Set oMail = Application.ActiveExplorer.Selection(1).Reply
Strbody = "HTML"

With oMail
.HTMLBody = Strbody
   .CC = ""
   .BCC = ""
   .Subject = "subject"
   .Display
 End With
End Sub

我想将这些电子邮件合并在一起。提前谢谢你。

【问题讨论】：

标签： vba email outlook ms-office

【解决方案1】：

您正在创建一封带有附件的新电子邮件，然后回复现有的一封创建两封邮件，试试这个：

Sub button()

    With Application.ActiveExplorer.Selection(1).Reply
        .HTMLBody = "HTML"
        .CC = ""
        .BCC = ""
        .Subject = "subject"
        .Attachments.Add "C:\Users\User\AppData\Roaming\Microsoft\Test.pdf", olByValue, 1, "Test"
        .Display
    End With

End Sub

【讨论】：

【解决方案2】：

在代码中，您创建一个新邮件项目和对现有项目的回复。相反，您需要创建回复并在此处附加文件：

Dim myAttachments As Outlook.Attachments
Dim oMail As Outlook.mailItem
Dim Item As Outlook.mailItem

Set Item = Application.ActiveExplorer.Selection(1)
Set oMail = Application.ActiveExplorer.Selection(1).Reply
Strbody = "HTML"

With oMail
  .To = "sadasdasd@sdfsdgfgdfg.com"
  .HTMLBody = Strbody
  .Subject = "subject"
End With

Set myAttachments = oMail.Attachments
myAttachments.Add "C:\Users\User\AppData\Roaming\Microsoft\Test.pdf", _
   olByValue, 1, "Test"
oMail.Display

【讨论】：