在 Excel VBA 中通过电子邮件将选定的单元格作为多个附件发送答案

【问题标题】：Emailing selected cells as multiple attachments in Excel VBA在 Excel VBA 中通过电子邮件将选定的单元格作为多个附件发送
【发布时间】：2019-05-21 17:55:28
【问题描述】：

我在 Excel 中有一些非常基本的 VBA 代码，可以从活动单元格中创建一封电子邮件——该单元格包含附件的整个文件路径。有没有办法选择多个单元格（每个单元格具有不同的文件路径）并根据所选单元格创建包含多个附件的电子邮件？

我尝试替换代码以使用选择，但我不断收到错误。

Sub Send_email_fromexcel()
Dim edress As String
Dim subj As String
Dim message As String
Dim filename As String
Dim outlookapp As Object
Dim outlookmailitem As Object
Dim myAttachments As Object
Dim path As String
Dim lastrow As Integer
Dim attachment As String
Dim rngAttach As Range

    Set outlookapp = CreateObject("Outlook.Application")
    Set outlookmailitem = outlookapp.createitem(0)
    Set myAttachments = outlookmailitem.Attachments
    path = ActiveCell
    attachment = path
        outlookmailitem.Subject = subj
        myAttachments.Add (attachment)
        outlookmailitem.display
        Set outlookapp = Nothing
Set outlookmailitem = Nothing

End Sub

我怀疑我必须指定范围号并编写条件语句，但我不太确定，因为我的 vba 编码有点不稳定。

【问题讨论】：

在SO 上实际上有几个示例如何执行此操作。 This one 可能会让你指向正确的方向。
上周我查看了这篇特别的帖子。在示例中，他们从特定的已知单元中提取数据。我正在尝试根据已通过 CTRL+单击突出显示的选定单元格发送附件。
啊……抱歉重读了您的问题，我原本以为您是想离开 Selection。然后，您只需要遍历选择中的所有单元格。

标签： excel vba

【解决方案1】：

对于那些好奇的人：

Sub Send_email_fromexcel()
Dim subj As String
Dim outlookapp As Object
Dim outlookmailitem As Object
Dim myAttachments As Object
Dim attachment As String
Dim cel As Range
Dim selectedRange As Range
    Set selectedRange = Application.Selection
    Set outlookapp = CreateObject("Outlook.Application")
    Set outlookmailitem = outlookapp.createitem(0)
    Set myAttachments = outlookmailitem.Attachments
            For Each cel In selectedRange.Cells
                attachment = cel.Value
                myAttachments.Add attachment
            Next cel
        outlookmailitem.display
    Set outlookapp = Nothing
    Set outlookmailitem = Nothing

End Sub

【讨论】：