You can't send multiple objects using sendobject. The code below will allow you to add multiple attachments to your message.
Sub SendMessage(DisplayMsg As Boolean, Optional AttachmentPath1 As String,
Optional attachmentpath2 As String)
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As...