Macro, enviar correo automáticamente con excel

mi problema es el siguiente, realice una macro en la cual me llena varios reportes automáticamente, hasta ahi todo bien, pero quiero agregar una macro en la cual de igual manera se envían automáticamente corre a cierto contactos para informarles que ya esta disponible el archivo en cierta dirección(repositorio) y quise hacerlo con este código que me encontré por ahi el cual es este:
Sub Envio_Mail()
Dim objOutlook As Object
Dim objMail As Object
Dim objOutlookAttach As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(olMailItem)
Set objOutlookAttach = objOutlook.CreateItem(olAttachMents)
With objMail
.To = "[email protected]"
.Subject = "TEST CORREO"
.Body = "TEST CORREO"
.Send
End With
Set objMail = Nothing
Set objOutlook = Nothing
End Sub
EL PROBLEMA ESTA en que al momento de enviar los mail's outlook me envía un mensaje en donde me avisa que un programa ajeno a el esta intentando enviar el mismo y deseo que esto no suceda, si no que solo se envíen y ya

ALGUIEN QUE ME AYUDE, ME URGEEE

gracias