|
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") - ругается что то типа недостаточно прав, а правильно ли я делаю, что пытаюсь через это ?
|
|