Архив форумов ЦИТФорума

[Анатолий]

Мастера, помогите разобраться. Нужно направить в папку “Исходящие” Microsoft Outlook письмо. На форму я положил OutlookApplication1 (AutoConnect:=true; AutoQuit:=true; ConnectKind:=RunningOrNew) и MailItem1 (AutoConnect:=false; ConnectKind:=RunningorNew).
Код программы следующий:
procedure TForm1.Button1Click(Sender: TObject);
var
mapi:NameSpace;
begin
mapi:=OutlookApplication1.GetNamespace('MAPI');
//Получаем доступ к папке
mapi:=OutlookApplication1.GetNamespace('MAPI');
MailItem1.ConnectTo(MailItem(mapi.Folders.Item
(olPersonal). Folders.Item(olFolderOutbox). Items.Add(olPostItem) as
iDispatch));
//Наполняем новое письмо информацией
MailItem1.Subject:='test for ';
end;
end.
После щелчка по Button1 получаю в окне “Debugger Exception Notification” сообщение:
Project Project1.exe raised exception class EaccessViolation with message ‘Access violation at address 779E7504 in module’ oleaut32.dll’. Write of address 0045846F’. Process stopped. Use Step or Run to continue.
Не понять в чём дело? Компилятор ошибок не находит. Почему не выполняется команда: MailItem1.Subject:='test for ';
Заранее благодарю.