使用Vba向2个或更多Excel工作簿发送电子邮件-Email2ormoreExcelWorkbookswithVba

I cannot figure out how to send more than 1 workbook for the life of me! I know a couple different ways to email 1 workbook, I place them here.

我无法弄清楚如何为我的生活发送超过1个工作簿!我知道几种不同的方式来发送1个工作簿,我把它们放在这里。

Sub SendActiveWorkbook()
                ActiveWorkbook.SendMail _
    Recipients:=Array("MyEmail@123.com", "AnotherEmail@123.com"), _
    Subject:="Write subject here"                 
End Sub

And

Sub RouteActiveWorkbook()   
    With ActiveWorkbook
           .HasRoutingSlip = True
               With .RoutingSlip
                    .Delivery = xlAllAtOnce
                    .Recipients = Array("MyEmail@123.com", "AnotherEmail@123.com")
                    .Subject = "CSAM Lux BIEO and BCF breakdown"
                    .Message = "Attached are the breakdowns as of " & Date
               End With
            .Route
     End With
End Sub

I seem to be only able to send 1 workbook in a given email. (it will not solve my problem to make my 2 workbooks into 1 workbook). Anyone had any success with sending more than 1 workbook in an email?

我似乎只能在给定的电子邮件中发送1个工作簿。 (将我的2个工作簿变成1个工作簿并不能解决我的问题)。有人在电子邮件中发送超过1个工作簿是否有任何成功?

1 个解决方案

Option Explicit

Sub Sample()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim MyFileList(1) As String
    Dim i As Long

    '~~> Change/Add the file names here
    MyFileList(0) = "C:\Sample1.xlsm"
    MyFileList(1) = "C:\Sample2.xlsm"

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
        .To = "MyEmail@123.com"
        .Subject = "Example for attaching 2 files"
        .Body = "Hi Ommit :)"

        For i = LBound(MyFileList) To UBound(MyFileList)
            .Attachments.Add MyFileList(i)
        Next i

        .Display
    End With
End Sub