Письмо с аттачем

[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]

db:=nc.GetDatabase(server,'names.nsf',false);

Просто приаттачить файл к письму в клиенте дает.

Возможно, не с той базой работаешь?

 

[D!m@n]

Нет прав на создание документов в names.nsf?
А без приаттачивания файла работает?
Кстати, а зачем вообще это письмо создавать в Domino Directory? Нет, я понимаю, конечно, что его никто сохранять не собирается... Но мало ли какой мусор может остаться от неудачных отработок программы.
Кстати, не забудьте заполнить поле SendTo (CopyTo/BlindCopyTo/Recipients) и вызвать метод NotesDocument.Send. Сейчас у Вас этого нет.

 

[morpheus]

bigbugzy
да и на какаой строке? может даже и инициализация не проходит?Отправки точно нету. И вообще как заметили выше - нафиг лезть в серверную АК

 

[Akupaka]

ну че вы набросились, видать человек пока не знает какая база для чего служит...

 

[bigbugzy]

без аттача все проходит, просто текст отправляется нормально
doc.ReplaceItemValue('SendTo',SendTo);
doc.Send(false);
это есть
как создать письмо не в серверной АК??

лотус вижу второй день только

 

[morpheus]

bigbugzy

как создать письмо не в серверной АК??

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

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

//лотус вижу второй день только
как для 2го дня неплохие результаты

 

[bigbugzy]

rt.EmbedObject(1454,'',FileName);
вот на этой строчке пишет отлуп

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

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

Большое спасибо! получилось!