Boa tarde!!

O que você já tem pronto

Private Sub Workbook_Open()
'Meu código para enviar e-Mail
'Exemplo:
Dim Outlook As Object, EMail As Object

Set Outlook = CreateObject("Outlook.Application")
Set EMail = Outlook.CreateItem(0)

With EMail
    .To = "Teste@Teset.com; AleVBA@planilhando.com"
    .CC = ""
    .BCC = ""
    .Subject = "Teste"
    .Body = "Meu texto aqui"
    .Attachments.Add ActiveWorkbook.FullName 
    .Attachments.Add "C:Test.xlsx" 
    .Display   'ou use .Send <<<< para enviar o e-Mail
End With

Set EMail = Nothing
Set Outlook = Nothing

End Sub

Att