Enviando mail en outlook desde excel

Hola a todo
He conseguido mandar un mail desde excel con el siguiente código

Sub Mail(

Dim MapiMessage As Objec
Dim MapiSession As Objec

Set MapiSession = CreateObject("Mapi.Session"
Set ObjOutlook = CreateObject("Outlook.Application"

Set myNameSpace = ObjOutlook.GetNamespace("MAPI"
Set myFolder = myNameSpace.GetDefaultFolder(4
Set MapiMessage = myFolder.Items.Ad

With MapiMessag
.Recipients.Add "nombre@dominio.com
.Subject = "Prueba
.Body = "Hola, esto es una prueba" & Chr(13) & "Saludos" & Chr(13
.Sen
End Wit
Set MapiSession = Nothin

End Su

El problema que tengo es que cada vez que lo ejecuto me da el mensaje de aviso de que otro programa está intentando acceder al listado de contactos de outlook y otro mensaje de aviso de que otro programa está intentando mandar un correo
Hay alguna forma de que no me salgan estos mensajes de advertencia? He probado co
Application.DisplayAlerts = Fals
pero no funciona

Alguine que domine la materia

Un salud

Carlos