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

  • Автор темы bigbugzy
  • Дата начала
Статус
Закрыто для дальнейших ответов.
B

bigbugzy

#1
Помогите плиз новечку!
из 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;
не получается. Пишет что Вы не имеете права выполнять эту операцию.
Просто приаттачить файл к письму в клиенте дает.
Что я не так делаю?
 
D

D!m@n

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

morpheus

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

Akupaka

А че я?.. О.о
04.10.2007
3 360
1
#5
ну че вы набросились, видать человек пока не знает какая база для чего служит... ;)
 
B

bigbugzy

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

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

morpheus

скриптописец
07.08.2006
3 915
1
#7
bigbugzy
как создать письмо не в серверной АК??
прконектиться к локальной(не указывать имя сервера) АК или почте.

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

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

bigbugzy

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

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

прконектиться к локальной(не указывать имя сервера) АК или почте.
Большое спасибо! получилось! ;)
 
Статус
Закрыто для дальнейших ответов.