Имя: Пароль:
1C
 
Лотус и 1С, сохранение письма в отправленных
0 xxxAndricxxx
 
13.11.10
09:55
Люди подскажите, отсылай письмо в Лотус, пример:
   Лотус=СоздатьОбъект("Lotus.NotesSession");  
   Если (ПустоеЗначение(Лотус)=1)тогда
       сообщить("Не смог создать объект Лотуса");
   КонецЕсли;    
   Попытка
       Лотус.Initialize();
       Сессия=Лотус.GetDataBase("lotus", "names.nsf");//ИмяПользователя()+
       //сообщить(ИмяПользователя());
   Исключение
       сообщить("Не вышло");
   КонецПопытки;  
   
   Если Сессия.IsOpen=0 тогда
       сообщить("Не могу открыть");
       Возврат;
   иначе
       
   КонецЕсли;
   сообщить("Подцепились!"+Сессия.Title);
   док=Сессия.CreateDocument();
   док.ReplaceItemValue("Form", "Ответ на заявку");
   док.EncryptOnSend = 1;  
   док.SignOnSend=1;
   //док.PutInFolder("$Outbox");
   
   док.ReplaceItemValue("Encrypt", док.IsNewNote);    
   док.ReplaceItemValue("SendTo", Кому);
   док.ReplaceItemValue("CopyTo", Кому);
   док.ReplaceItemValue("Subject", "Ответ на заявку1");
   док.AddToFolder("Отправленные","");
   rt = док.CreateRichTextItem("Body");
   rt.AppendText(ТекстПисьма);
   //док.Save(1,1);
   Попытка        
       док.Send(1);
   Исключение  
       предупреждение("Не нашли пользователя "+Кому+"! "+РазделительСтрок+" Попробуйте прописать ФИО полностью!");
       ОткрытьФорму(ОтветственныйЗаказчик,,0);
   КонецПопытки

Все нормально работает, к базе подцепляется, письмо уходит, но как сделать чтобы письмо сохранялось в отправленных ??? PutInFolder("$Outbox") - ругается что то типа недостаточно прав, а правильно ли я делаю, что пытаюсь через это ?
1 xxxAndricxxx
 
13.11.10
09:57
По уму сначала наверно save, затем putInFolder, наверно нада )
2 xxxAndricxxx
 
13.11.10
10:00
AddToFolder - putInFolder чем отличаются ?
3 xxxAndricxxx
 
13.11.10
10:03
При save появляется NotesDocument: Notes error:Вы не имеете права выполнять эту операцию
4 filh
 
13.11.10
10:13
пиши еще
5 xxxAndricxxx
 
13.11.10
10:18
Дк че писать то, как будто прав на сохранение для не лотус клиента нету, не пойму
6 xxxAndricxxx
 
13.11.10
10:22
Наверно, немного не по адресу, ладно, попробую лотусятников поискать в сети)))