Correo con adjuntos

Tengo que realizar una aplicación que envíe automáticamente un correo con un
fichero adjunto a una serie de direcciones de correo, para lo cual utilizo
este programa que tomé del foro.



theApp = CREATEOBJECT("Outlook.Application")
theNameSpace = theApp.GetNameSpace("MAPI")
theNameSpace.Logon()
theMailItem = theApp.CreateItem(0)
IF TYPE('theMailItem')=='O'

theMailItem.Recipients.ADD( '&MEMAIL' )
theMailItem.Subject = 'E-Mail Profit '
theMailItem.Attachments.ADD('&LARCHIVO') theMailItem.SEND

ENDIF



Funciona muy bien, el problema que tengo es que cada vez que se ejecuta me
aparece el siguiente mensaje:

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 elegir no



Cuando pulso SI, aparece otra pantalla diciendo:

Un programa está intentando enviar un correo electrónico en su nombre,
¿Desea permitirlo?



Si le digo que SI me lo envía correctamente.



¿Hay alguna forma de enviar el correo sin que me aparezcan estos mensajes?,
ya que este procedimiento debe ser automático y se ejecutará por las noches