Вложение и тема электронной почты в Outlook с использованием Visual Basic

Question

Я попытался сделать стандартное письмо в 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

Я хотел бы объединить эти электронные письма. заранее спасибо.

Answer 1

В коде вы создаете новый почтовый элемент и ответ на существующий элемент.Вместо этого вам нужно создать ответ и прикрепить туда файл:

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

Answer 2

Вы создаете новое письмо с вложениями и позже отвечаете на существующее, которое создает два письма, попробуйте это:

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