Error al enviar email por outlook

[oscjae]

Buenas, tengo un código desde hace tiempo que funciona perfectamente para enviar emails,

Código Delphi [-]
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;

pero no el nuevo outlook no me funciona, me da una excepción (class EOLeSYSError) con el mensaje de "Operación no disponible", le ha pasado esto a alguien?
Gracias!!!