Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: ActiveX/СОМ/CORBA > Запустить OutLook


Автор: Petro123 27.9.2010, 08:05
Для отправки письма через Outlook использую такой код:
Цитата

const olMailItem = 0;
var Outlook: OLEVariant;
     MailItem: Variant;
begin
  try
   Outlook:=GetActiveOleObject('Outlook.Application') ;
  except
   Outlook:=CreateOleObject('Outlook.Application') ;
  end;
  MailItem := Outlook.CreateItem(olMailItem) ;
  with MailItem do begin 
   Recipients.Add('delphi.guide@about.com') ;
   Subject := 'Subject: Outlook Mail From Delphi';
   Body := 'Welcome to my homepage:
http://delphi.about.com';
   Attachments.Add('C:\Windows\Win.ini') ;
   Send;
  end; {with}
   Outlook := Unassigned;
end;

Но работает только при запущенном OutLook - е, 
Хотя по идее строка   Outlook:=CreateOleObject('Outlook.Application') ; должна запускать OutLook в фоновом режиме. 
Но видимо не запускает. 
Как запустить корректно Outlook?

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)