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

Question

我在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编码有点不稳定。

Answer 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