Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Outlook

515
17 марта 2002 года
fwp1
15 / / 20.07.2000
Мастера, помогите разобраться. Нужно направить в папку “Исходящие” 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 ';
Заранее благодарю.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог