Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Письмо с аттачем
Форум программистов > Базы данных и администрирование > Lotus > Lotus - Программирование
bigbugzy
Помогите плиз новечку!
из COM пытаюсь создать письмо с аттачем
procedure TForm1.Button1Click(Sender: TObject);
Var nc:OleVariant;
doc:OleVariant;
rt:OleVariant;
db:OleVariant;
begin
  nc:=CreateOleObject('Lotus.NotesSession');
  nc.Initialize(Pass);
  db:=nc.GetDatabase(server,'names.nsf',false);
  doc:=db.CreateDocument;
  doc.ReplaceItemValue('Form','MEMO');
  doc.ReplaceItemValue('Subject','test');
  rt:=doc.CreateRichTextItem('Body');
  rt.AppendText('Test message');
  rt.EmbedObject(1454,'',FileName);
end;

не получается. Пишет что Вы не имеете права выполнять эту операцию.
Просто приаттачить файл к письму в клиенте дает.
Что я не так делаю?
Medevic
Цитата(bigbugzy @ 18:08:2008 - 03:57) *
db:=nc.GetDatabase(server,'names.nsf',false);

Цитата(bigbugzy @ 18:08:2008 - 03:57) *
Просто приаттачить файл к письму в клиенте дает.

Возможно, не с той базой работаешь?
D!m@n
Нет прав на создание документов в names.nsf?
А без приаттачивания файла работает?
Кстати, а зачем вообще это письмо создавать в Domino Directory? Нет, я понимаю, конечно, что его никто сохранять не собирается... Но мало ли какой мусор может остаться от неудачных отработок программы.
Кстати, не забудьте заполнить поле SendTo (CopyTo/BlindCopyTo/Recipients) и вызвать метод NotesDocument.Send. Сейчас у Вас этого нет.
Morpheus
bigbugzy
да и на какаой строке? может даже и инициализация не проходит?Отправки точно нету. И вообще как заметили выше - нафиг лезть в серверную АК
Akupaka
ну че вы набросились, видать человек пока не знает какая база для чего служит... wink.gif
bigbugzy
без аттача все проходит, просто текст отправляется нормально
doc.ReplaceItemValue('SendTo',SendTo);
doc.Send(false);
это есть
как создать письмо не в серверной АК??

лотус вижу второй день только smile.gif
Morpheus
bigbugzy
Цитата(bigbugzy @ 18:08:2008 - 10:37) *
как создать письмо не в серверной АК??

прконектиться к локальной(не указывать имя сервера) АК или почте.

а что у Вас в переменнной FileName ?

//лотус вижу второй день только
как для 2го дня неплохие результаты
bigbugzy
rt.EmbedObject(1454,'',FileName);
вот на этой строчке пишет отлуп

в FileName путь к файлу 'C:\myFile.xls'

Цитата
прконектиться к локальной(не указывать имя сервера) АК или почте.

Большое спасибо! получилось! smile.gif
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.
Форум IP.Board © 2001-2008 IPS, Inc.