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

您正在创建一个包含附件的新电子邮件，然后回复创建两封邮件的现有邮件，请尝试以下操作：

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

Answer 2

在代码中，您可以创建新邮件项目并回复现有项目。相反，您需要创建一个回复并在那里附加文件：

import pandas as pd
dict(pd.value_counts(my_list))

Outlook中的附件和电子邮件主题使用visual basic

2 个答案: