Отправка по электронной почте выбранных ячеек в виде нескольких вложений в Excel VBA

Question

У меня есть довольно простой базовый код VBA в Excel, который создает электронную почту из активной ячейки - ячейка содержит полный путь к файлу вложения. Есть ли способ выбрать несколько ячеек (каждая с разными путями к файлам) и создать электронное письмо, содержащее несколько вложений на основе выбранных ячеек?

Я пытался заменить код для использования Selection, но я получаю сообщение об ошибке.

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