Visual Basic para Aplicaciones - problema con código

Hola a todos, espero me puedan ayudar. Este código sirve para enviar un correo electrónico a través de Outlock, funciona bien, pero tengo el siguiente proglema. Cada vez que compilo me sale el siguienbte mensaje

"Un programa está intentando obtener acceso a direcciones de correo electrónico almacenadas en Outlock. ¿Desea Permitirlo? Si esto es inesperado, puede que sea un virus y debería elegir "No"."

"Un programa está intentando enviar correo electrónico automáticamente en su nombre. ¿Desea permitirlo? Si esto es inesperado, puede que sea un virus y debería elegir "No"."

Alguien sabe como impedir que aparezcan estos mensajes y que lo correos los envía automáticamente sin preguntar nada?

Aqui va el código.

'--- Set up the Outlook objects.
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment

Dim Address As String
Dim CustomerMessage As String

Sub MailItNow()

Application.DisplayAlerts = False
Dim TempCustomerAddress As String
Application.ScreenUpdating = False
Address = "[email protected]"
CustomerMessage = "prueba56"
Call SendMessage
Application.ScreenUpdating = True

End Sub

Sub SendMessage(Optional AttachmentPath)
Application.DisplayAlerts = False
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg
Set objOutlookRecip = .Recipients.Add(Address)
objOutlookRecip.Type = olTo
.Subject = "pruebita"
.Body = CustomerMessage
.Importance = olImportanceHigh 'High importance

If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath)
End If

For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
If Not objOutlookRecip.Resolve Then
Exit Sub
End If
Next
.Send
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
Application.ScreenUpdating = True
End Sub


Saludos, y gracias.

Puedes descargarte un programa que presiona el si de esos mensajes, no lo eliminas pero evitas tener q presionar si todo el tiempo. Esto se ejecuta en un segundo plano. La versión base es gratuita.
ingresa a http:// www.express-soft.com/mailmate/clickyes.html
suerte