![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Приветствую всех и каждого!
Пишу простейшую программу, которая отсылает через 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"' |