Sub Email_Attachment_To_Group()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
        .To = "person1@email.com;person2@email.com"     ' List of addresses to send
        .CC = ""
        .BCC = ""
        .Subject = "Monthly spreadsheet"
        .Body = "Attached is the monthly spreadsheet."
        .Attachments.Add ("C:\Users\123456\Documents\Monthly\test.txt") ' Specify full path to the file to attach
        .Display
    End With
         
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub