Delphi и MS Outlook 2010

[ProESM]

Приветствую всех и каждого!

Пишу простейшую программу, которая отсылает через MS Outlook 2010 письмо.

Делаю это следующим образом:

uses
  ComObj;

var
  OutlookApp, SpamNameSpace, MyLetter: OleVariant;

procedure TForm1.SendMail(Subject, Body, RecvAddress: string; Attachs: array of string);
begin
  try
    OutlookApp := GetActiveOleObject('Outlook.Application');
  except
    OutlookApp := CreateOleObject('Outlook.Application');
  end;
  try
    SpamNameSpace := OutlookApp.GetNameSpace('MAPI');
    MyLetter := OutlookApp.CreateItem(0);
    MyLetter.To := RecvAddress;
    MyLetter.Body := Body;
    MyLetter.Subject := Subject;
    MyLetter.Attachments.Add(paramstr(0));
    //MyLetter.DeleteAfterSubmit := True;
    MyLetter.Send;
  finally
    OutlookApp.Quit;
  end;
end;

На строке

OutlookApp := GetActiveOleObject('Outlook.Application');

выдает следующую ошибку

Exception class EOleSysError with message 'Недопустимая строка с указанием класса, ProgID: "Outlook.Application"'

Прошу помочь.

[Sibedir]

Всё логично. GetActiveOleObject возвращает OleObject уже запущеного экземпляра интерфейса.

А это

OutlookApp := CreateOleObject('Outlook.Application');

Выполняется?

Просто, дело в чём. Приведенный вами код можно закоментарить так

 try
    OutlookApp := GetActiveOleObject('Outlook.Application'); // Подключаемся к уже запущенному экземпляру Outlook'а
  except // Если нет токого, то выдаем ошибку (только на этапе отладки) и переходим на except. Если такой есть, то except пропускается
    OutlookApp := CreateOleObject('Outlook.Application'); // Создаем новый экземпляр
  end;

выдаем ошибку (только на этапе отладки) - значит, что когда вы запустили приложение из Delphi (F9), то сообщение об ошибке между try...except появится. А если из проводника откомпелированный exe-шник запустите, то - нет.

[ProESM]

Даже при запуске откомпилированного .exe все равно выскакивает эта ошибка:
Недопустимая строка с указанием класса, ProgID: "Outlook.Application".

Пробывал убирать вообще try except. Не помогает

[Sibedir]

Даже при запуске откомпилированного .exe все равно выскакивает эта ошибка:
Недопустимая строка с указанием класса, ProgID: "Outlook.Application".

Значит ошибка и на CreateOleObject тоже.

Сделай так

var
  OutlookApp: OleVariant;
begin
  try
    OutlookApp := GetActiveOleObject('Outlook.Application');
  except
  end;

  if OutlookApp = Unassigned then
  try
    OutlookApp := CreateOleObject('Outlook.Application');
  except
    Exit;
  end;

  try
    // ...
    // ...
    // ...
  finally
    OutlookApp.Quit;
  end;
end;

Затем
1. Устанавливаем точку останова на begin
2. Запускаем приложение, отправляем письмо
3. Нажимаем F7 пока не появится сообщение (на GetActiveOleObject)
4. Жмем OK
5. Продолжаем нажимать F7 до CreateOleObject и далее
6. Выкладываем сюда, что получилось.

P/S: У меня ошибка 2 раза возникала, т.к. MS Outlook не установлен (подозреваю, что у вас тоже, или их несколько, или был один потом установили другой), потому точно сказать не могу. Но по идее всё почти правильно.

[ProESM]

Там ОК нет, у меня стоит Delphi 2010, но есть Continue, что я и нажал.
Вот лог:

Source Breakpoint at $004AB60C: C:\Users\e-mazhitov\Desktop\Outlook\Unit1.pas line 39. Process Project1.exe (6040)
First chance exception at $752C9617. Exception class EOleSysError with message 'Недопустимая строка с указанием класса'. Process Project1.exe (6040)
First chance exception at $752C9617. Exception class EOleSysError with message 'Недопустимая строка с указанием класса'. Process Project1.exe (6040)
First chance exception at $752C9617. Exception class EOleSysError with message 'Недопустимая строка с указанием класса, ProgID: "Outlook.Application"'. Process Project1.exe (6040)