Access - evitar advertencia con docmd.sendobject

Estoy tratando de hacer un programa en access(xp), el programa envia un correo electronico atravez de outlook 2003 utilizando la siguiente funcion:

Function ECorreo(a, b, c)

des = a
asu = b
num = c

On Error GoTo CORREO_Err

DoCmd.SendObject , "", "", des, "", "", "N°." + num + " " + "SOLICITUD DE SOPORTE", asu, False, ""

CORREO_Exit:
Exit Function

CORREO_Err:
MsgBox Error$
Resume CORREO_Exit

End Function


cuando se ejcuta sale la siguiente alerta

" un programa esta intentando enviar correo elctronico a su nombre"


La idea seria que no saliera esta alerta sino enviarlo automaticamente..

Muchas Gracias,,por su colaboracion


Uriel Serrano Rincon
FNG

Prueba a poner:
DoCmd.SetWarnings(False)
DoCmd.SendObject , "", "", des, "", "", "N°." + num + " " + "SOLICITUD DE SOPORTE", asu, False, ""
DoCmd.SetWarnings(True)
A ver si te sirve, un saludo
Sk@keo