Desabilitar la Seguridad de Outlook
 

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

Por favor, no repitas hilos en diferentes foros.
Revisa la Guía de estilo.