Mensaje de seguridad entre Outlook y Excel VBA

[Carlos1986]

Buenas Tardes, tengo el siguiente código, que lo que hace, es enviar la hoja activa de excel via outlook, pero por cuestiones de seguridad aparece una ventana emergente donde me pregunta si quiero permitir que un programa envie un correo por mi.

No puedo desactivar la notificacion por seguridad de la empresa.

La pregunta es: que puedo ingresar al codigo para que tambien pueda dar "click" en permitir y que se envie? la codigo funciona bien, si le doy click manualmente, el correo se envia con la info.

 

 

Sub Enviar_Correo_HojaActiva()

On Error Resume Next

ActiveSheet.Copy

With ActiveWorkbook

.SendMail Recipients:="colocar email", Subject:="Inventario"

.Close SaveChanges:=False

End With

End Sub