Visual Basic - Mensaje al Envio Automático de Mail... I Need You.

Cuando voy a enviar el correo automáticamente me salta el siguiente
mensaje:
------------------
Microsoft Outlook:
Un programa está intentando obtener acceso a direcciones de correo

electrónico almacenadas en Outlook. ¿desea permitirlo?

Si esto es inesperado, puede que sea un virus y debería elefir "No".

"casilla" Permitir acceso a 1, 2 ,10 minutos.
Opciones Si/No/Ayuda
---------------------

Qué debo de hacer para que no me salte el mensaje??? debo de buscar algo en el outlook??? no encuentro nada...

Alguna sugerencia????

Os pongo el Código Fuente que utilizo para el envio de mail en VB:

---------

Private Sub EnviarCorreo()

Dim objOutlook As Outlook.Application
Dim objMailItem As Outlook.MailItem
Dim para As String, cuerpo As String, asunto As String

para = "[email protected]"
asunto = "Prueba de automatización correo"
cuerpo = "Realizando pruebas"

Set objOutlook = CreateObject("outlook.application")
Set objMailItem = objOutlook.CreateItem(olMailItem)
objMailItem.Recipients.Add para
objMailItem.Body = cuerpo
objMailItem.Attachments.Add ("c:\XXXXXX\XXXXX.gif")
objMailItem.Subject = asunto

objMailItem.Send
objOutlook.Quit
Set objOutlook = Nothing

End Sub

Gracias de antemano.-
Sergio M.