FoxClub Forums > Visual Foxpro, Foxpro for DOS > Создание письма в черновиках Lotus ::

• Войти

Создание письма в черновиках Lotus
Сергей Зиньковский Автор Сообщений: 130 Откуда: Оренбург Дата регистрации: 14.11.2003	Сергей Зиньковский 21.10.11 09:30:55 Добрый день! Просьба подсказать, как создать письмо в Lotus, которое было бы в папке Черновики? В примере, который приведен на форуме, письмо создается и сразу появляется в отправленных: * Сканируется таблица в которой указаны Адрес получателя (Adress), Тема (Tema), файл вложения (n_f) clear lotus= Createobject( "FOXForLotus" ) lotus.Initialize() SCAN lotus.SendMail(Adress,Tema,'Добрый день!'+CHR(13),N_F) ENDSCAN Define Class FOXForLotus As Custom mo_Session=.Null. mo_DB=.Null. mo_Mail=.Null. mc_PassWord="" mn_Files= 0 Function Initialize This.mo_Session=Createobject("lotus.NotesSession") This.mc_PassWord= '123' If Empty(This.mc_PassWord) This.mo_Session.Initialize() Else This.mo_Session.Initialize(This.mc_PassWord) Endif This.mo_DB = This.mo_Session.GetDbDirectory("") This.mo_Mail = This.mo_DB.OpenMailDatabase() Return 1 Endfunc Function SendMail(tc_adress,tc_Subject,tc_Body,tc_FileName) lo_Doc=This.mo_Mail.CreateDocument() lo_Doc.REPLACEITEMVALUE("SendTo", tc_adress) lo_Doc.REPLACEITEMVALUE("Form", "Memo") lo_Doc.REPLACEITEMVALUE("Subject",tc_Subject) lo_Doc.REPLACEITEMVALUE("From", "User") lo_Doc.REPLACEITEMVALUE("ReturnReceipt", "1") lo_Doc.REPLACEITEMVALUE("ConfirmRead", "1") lo_Doc.REPLACEITEMVALUE("DefaultMailSaveOptions", "1") lo_RtItem= lo_Doc.CREATERICHTEXTITEM("Body") lo_RtItem.APPENDTEXT(tc_Body) lo_RtItem.EmbedObject(1454,"",tc_FileName) lo_Doc.REPLACEITEMVALUE("PostedDate",DATETIME()) lo_Doc.RemoveFromFolder('($Drafts)') lo_Doc.Save(.T.,.F.,.T.) lo_Doc.Send(.F.) RETURN 1 ENDFUNC ENDDEFINE Использую VFP 9.0+SP1, LotusNotes 6.5

Сергей Зиньковский
Автор

Сообщений: 130
Откуда: Оренбург
Дата регистрации: 14.11.2003

Сергей Зиньковский

21.10.11 09:30:55

Добрый день!

Просьба подсказать, как создать письмо в Lotus, которое было бы в папке Черновики?
В примере, который приведен на форуме, письмо создается и сразу появляется в отправленных:


* Сканируется таблица в которой указаны Адрес получателя (Adress), Тема (Tema), файл вложения (n_f)
clear
lotus= Createobject( "FOXForLotus" )
lotus.Initialize()
SCAN
  lotus.SendMail(Adress,Tema,'Добрый день!'+CHR(13),N_F)
ENDSCAN

Define Class FOXForLotus As Custom
  mo_Session=.Null.
  mo_DB=.Null.
  mo_Mail=.Null.
  mc_PassWord=""
  mn_Files= 0

  Function Initialize
  This.mo_Session=Createobject("lotus.NotesSession")
  This.mc_PassWord= '123'
  If Empty(This.mc_PassWord)
    This.mo_Session.Initialize()
  Else
    This.mo_Session.Initialize(This.mc_PassWord)
  Endif
  This.mo_DB = This.mo_Session.GetDbDirectory("")
  This.mo_Mail = This.mo_DB.OpenMailDatabase()
  Return 1
  Endfunc

  Function SendMail(tc_adress,tc_Subject,tc_Body,tc_FileName)

  lo_Doc=This.mo_Mail.CreateDocument()
  lo_Doc.REPLACEITEMVALUE("SendTo", tc_adress)
  lo_Doc.REPLACEITEMVALUE("Form", "Memo")
  lo_Doc.REPLACEITEMVALUE("Subject",tc_Subject)
  lo_Doc.REPLACEITEMVALUE("From", "User")
  lo_Doc.REPLACEITEMVALUE("ReturnReceipt", "1")
  lo_Doc.REPLACEITEMVALUE("ConfirmRead", "1")
  lo_Doc.REPLACEITEMVALUE("DefaultMailSaveOptions", "1")

  lo_RtItem= lo_Doc.CREATERICHTEXTITEM("Body")
  lo_RtItem.APPENDTEXT(tc_Body)
  lo_RtItem.EmbedObject(1454,"",tc_FileName)

  lo_Doc.REPLACEITEMVALUE("PostedDate",DATETIME())
  lo_Doc.RemoveFromFolder('($Drafts)')
  lo_Doc.Save(.T.,.F.,.T.)
  lo_Doc.Send(.F.)

  RETURN 1
  ENDFUNC
ENDDEFINE

Использую VFP 9.0+SP1, LotusNotes 6.5

Re: Создание письма в черновиках Lotus
Taran Сообщений: 13624 Откуда: Красноярск Дата регистрации: 16.01.2008	Taran 21.10.11 10:06:14 Нет лотуса, но вроде как на виду ~~lo_Doc.Send(.F.)~~ Исправлено 1 раз(а). Последнее : Taran, 21.10.11 10:06

Re: Создание письма в черновиках Lotus
Сергей Зиньковский Автор Сообщений: 130 Откуда: Оренбург Дата регистрации: 14.11.2003	Сергей Зиньковский 21.10.11 10:09:24 эта команда осуществляет пересылку самого письма: lo_Doc.Send(.F.)

Re: Создание письма в черновиках Lotus
Taran Сообщений: 13624 Откуда: Красноярск Дата регистрации: 16.01.2008	Taran 21.10.11 11:21:09 ну и? Ты же вроде как и хочешь только создать и оставить в черновиках. Не отправляя. Или я что-то не так понял.

Re: Создание письма в черновиках Lotus
Сергей Зиньковский Автор Сообщений: 130 Откуда: Оренбург Дата регистрации: 14.11.2003	Сергей Зиньковский 21.10.11 11:39:45 если команду Send не выполнять, то письмо создается, но находится в отправленных и еще не отправлено. А хотелось бы, чтобы оно создавалось в папке Черновики.

Re: Создание письма в черновиках Lotus
Влад Колосов Сообщений: 22664 Откуда: Ростов-на-Дону Дата регистрации: 05.05.2005	Влад Колосов 21.10.11 11:51:17 Черновики не предназначены для отсылки.. Предполагаю, что для решения задачи существует другой метод. ------------------ Совершенство - это не тогда, когда нельзя ничего прибавить, а тогда, когда нечего убавить.

Re: Создание письма в черновиках Lotus

Влад Колосов

Сообщений: 22664
Откуда: Ростов-на-Дону
Дата регистрации: 05.05.2005

Влад Колосов

21.10.11 11:51:17

Черновики не предназначены для отсылки.. Предполагаю, что для решения задачи существует другой метод.

------------------
Совершенство - это не тогда, когда нельзя
ничего прибавить, а тогда, когда нечего убавить.

Re: Создание письма в черновиках Lotus
Сергей Зиньковский Автор Сообщений: 130 Откуда: Оренбург Дата регистрации: 14.11.2003	Сергей Зиньковский 21.10.11 11:54:22 если в Lotus делать руками, то получается просто: создается письмо, сохраняется как черновик, а затем нажимаем кнопочку Отправить - письмо отправляется. Просто подумал, что если руками эта комбинация делается, то и можно запрограммировать. А идея в том, что перед отправкой надо просмотреть содержимое отправляемого письма.

Re: Создание письма в черновиках Lotus

Сергей Зиньковский
Автор

Сообщений: 130
Откуда: Оренбург
Дата регистрации: 14.11.2003

Сергей Зиньковский

21.10.11 11:54:22

если в Lotus делать руками, то получается просто: создается письмо, сохраняется как черновик, а затем нажимаем кнопочку Отправить - письмо отправляется.

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

А идея в том, что перед отправкой надо просмотреть содержимое отправляемого письма.

Re: Создание письма в черновиках Lotus
Taran Сообщений: 13624 Откуда: Красноярск Дата регистрации: 16.01.2008	Taran 21.10.11 12:08:06 Сергей Зиньковский если команду Send не выполнять, то письмо создается, но находится в отправленных и еще не отправлено. А хотелось бы, чтобы оно создавалось в папке Черновики. А что делает команда lo_Doc.RemoveFromFolder('($Drafts)') ?

Re: Создание письма в черновиках Lotus

Taran

Сообщений: 13624
Откуда: Красноярск
Дата регистрации: 16.01.2008

Taran

21.10.11 12:08:06

Сергей Зиньковский
если команду Send не выполнять, то письмо создается, но находится в отправленных и еще не отправлено.
А хотелось бы, чтобы оно создавалось в папке Черновики.

А что делает команда

    lo_Doc.RemoveFromFolder('($Drafts)')

Re: Создание письма в черновиках Lotus
Сергей Зиньковский Автор Сообщений: 130 Откуда: Оренбург Дата регистрации: 14.11.2003	Сергей Зиньковский 21.10.11 12:26:30 [quote Taran] А что делает команда lo_Doc.RemoveFromFolder('($Drafts)') ?[/quote] RemoveFromFolder - удаляет из указанной папки, т.е. из папки Черновики PutInFolder - добавляет документ в указанную папку, но что-то письмо не появляется в папке Черновики: lo_Doc.PutInFolder('($Drafts)') ?[/quote]

Re: Создание письма в черновиках Lotus

Сергей Зиньковский
Автор

Сообщений: 130
Откуда: Оренбург
Дата регистрации: 14.11.2003

Сергей Зиньковский

21.10.11 12:26:30

[quote Taran]
А что делает команда

    lo_Doc.RemoveFromFolder('($Drafts)')

?[/quote]
RemoveFromFolder - удаляет из указанной папки, т.е. из папки Черновики

PutInFolder - добавляет документ в указанную папку, но что-то письмо не появляется в папке Черновики:

    lo_Doc.PutInFolder('($Drafts)')

?[/quote]

Re: Создание письма в черновиках Lotus
Гулин Федор Сообщений: 4640 Откуда: Минск Дата регистрации: 24.10.2002	Гулин Федор 21.10.11 18:33:28 тут был пример связанный с лотусом от Николая Кремко поищи может там что есть но вряд ли те поможет я для себя переделывал когда лотус был на прошлой работе *FUNCTION SCANMAIL копай методы в самом лотусе или гогле и пробуй

Re: Создание письма в черновиках Lotus

Гулин Федор

Сообщений: 4640
Откуда: Минск
Дата регистрации: 24.10.2002

Гулин Федор

21.10.11 18:33:28

тут был пример связанный с лотусом от Николая Кремко
поищи может там что есть
но вряд ли те поможет

я для себя переделывал когда лотус был на прошлой работе
*FUNCTION SCANMAIL

копай методы в самом лотусе или гогле
и пробуй

Re: Создание письма в черновиках Lotus
descent52_tmp Сообщений: 214 Откуда: Саров Дата регистрации: 20.11.2014	descent52_tmp 15.08.17 09:59:36 Сергей Зиньковский ... lo_Doc.Save(.T.,.F.,.T.) lo_Doc.Send(.F.) ... [/code] Стааааренький пост, однако... Но вопрос возник! А как в этом примере отловить недоставку письма после lo_Doc.Send(.F.)?

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 23 shumik73 (Гостей: 22)