[Marcos]

Hola Estoy usando esta función:

Código Delphi [-]
procedure TDM1.EnviaMail(Direcciones, Asunto, CuerpoHtml: string);
const
  olFolderNotes = $0000000C;
var
  oCorreoOutlook: Variant;
  oCorreoNameSpace: Variant;
  oMail: Variant;
  oCarpeta: Variant;
begin
  try
    oCorreoOutlook := CreateOleObject('OutLook.Application');
    try
      oCorreoNameSpace := oCorreoOutlook.getNameSpace('MAPI');
    except
      on E: Exception do
        raise Exception.create(E.Message +  #10#13'No se ha podido crear el espacio de nombres de OutLook')
    end;
    try
      oCarpeta := oCorreoNamespace.GetDefaultFolder(olFolderNotes);
      oMail := oCarpeta.Items.Add('IPM.Note');
      oMail.to := Direcciones;
      oMail.Subject := Asunto;
      oMail.HTMLBody := CuerpoHtml;
      oMail.send
    except
      on E: Exception do
        raise Exception.create(E.Message +   #10#13'Error al crear el Mail en OutLook.')
    end;
  except
    on E: Exception do
      raise Exception.create(E.Message + #10#13'No se puede abrir outlook.')
  end;
end;

Pero con Outlook 2003 cada vez que la uso me salta una ventana de seguridad, como puedo quitarla?

Muchas gracias por cualquier info