ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / отправка писем в Lotus Notes из Excel
4 сообщений из 4, страница 1 из 1
отправка писем в Lotus Notes из Excel
    #37853008
sergey88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sergey88
Гость
Помогите разобраться со следующей ситуацией.
Возникла необходимость организовать рассылку писем в Lotus Notes средствами MS Office (из Excel). Когда был Outlook, то эта задача спокойно решалась, теперь же получаю следующее.
Пишу на VBA следующую процедуру:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Set Session = CreateObject("Lotus.NotesSession")
Call Session.Initialize("пароль")
Set Maildb = Session.GETDATABASE("", "C:\Program Files\lotus\notes\data\bookmark.nsf")
If Not Maildb.IsOpen = True Then
Call Maildb.Open
End If
Set MailDoc = Maildb.CREATEDOCUMENT
Call MailDoc.ReplaceItemValue("Form", "Memo")
Call MailDoc.ReplaceItemValue("SendTo", "адрес")
Call MailDoc.ReplaceItemValue("CopyTo", "адрес")
Call MailDoc.ReplaceItemValue("BlindCopyTo", "адрес")
Set Body = MailDoc.CREATERICHTEXTITEM("Body")
Call Body.APPENDTEXT("текст письма")
Call Body.ADDNEWLINE(2)
Call Body.EMBEDOBJECT(1454, "", "файл вложения")
MailDoc.SAVEMESSAGEONSEND = True
Call MailDoc.ReplaceItemValue("PostedDate", Now())
Call MailDoc.SEND(True)
Set MailDoc = Nothing
Set Body = Nothing
Set Maildb = Nothing
Set Session = Nothing


Письмо отправляется, но почему-то текст письма отсутствует. Объект "Body" почему-то передает только вложенный файл, а текст письма - не передает.
Более того, среди отправленных писем в их объектной модели я не смог найти поля, отвечающего за текст письма. Поля "Body" там не было, были только
Title Site URLIcon URL Form Collaborators SourceForm $UpdatedBy, и ни в одном из них текста не содержалось.
Версия Lotus Notes стоит 8.5. Может быть, в ней поменялось что-то в структуре писем?
Знает кто-нибудь, где в Lotus Notes 8.5 содержится текст письма? И есть ли какие-нибудь материалы в интернете по данному вопросу?
...
Рейтинг: 0 / 0
25.06.2012, 11:27
| Ответить | Цитировать | Написать  
отправка писем в Lotus Notes из Excel
    #37864748
nast9
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nast9
Гость
sergey88,

Попробуйте MailDoc.Body = "BodyText"
...
Рейтинг: 0 / 0
03.07.2012, 16:07
| Ответить | Цитировать | Написать  
отправка писем в Lotus Notes из Excel
    #37865713
sergey88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sergey88
Гость
Удалось решить проблему следующим образом:
Call MailDoc.SEND( FALSE )

Видимо, дело в том было, что надо бы не этот файл писать: bookmark.nsf, а свою учетную запись, а у нас в конторе она на недоступном сервере лежит...
...
Рейтинг: 0 / 0
04.07.2012, 11:38
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
отправка писем в Lotus Notes из Excel
    #39607242
Ressyx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ressyx
Гость
Возник вопрос, сообщения которые отправляются через данную процедуру не сохраняются в отправленных. Хотя отправляется нормально и адресат его получает. Версия Lotus 8.5.3
Подскажет может кто?
...
Рейтинг: 0 / 0
26.02.2018, 12:07
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / отправка писем в Lotus Notes из Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]