Форум программистов, компьютерный форум, киберфорум
HCL Notes: Программирование
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Lotus Domino Xmlhttprequest https://www.cyberforum.ru/ lotus-programming/ thread2077044.html
Здравствуйте , уважаемые. Есть необходимость при некоем событии дергать http://reportsrv/cgi/domino.cgi?.... для передачи данных в некоторую CRM Опыта разработки под домино маловато, поэтому...
Значение полей из справочника и связанные справочники Lotus
Здравствуйте уважаемые. Сразу скажу что в Lotus -программировании новичок. Так что не судите слишком строго. ) Дали задание реализовать что-то вроде системы заявок. Скажем кому то нужно дать...
Lotus Поиск в массиве
Есть 2 поля (многозначных) такой зависимости: "Иванов" "Петров" "Сидоров" "2" "5" "6"
Lotus Как при помощи @-команд, создать внутри вычисляемого поля Link на роди При создании респонса документа, необходима что бы в нём присутствовала ссылка на родительский документ, можно ли это сделать при помощи @ в вычисляемом поле https://www.cyberforum.ru/ lotus-programming/ thread2077041.html
Lotus Picklistcollection https://www.cyberforum.ru/ lotus-programming/ thread2077040.html
На вьюшке (А) создана кнопка, на кнопке запуск агента, в агенте код вызывающий выбор ответного документа из другой вьюшки (Б): ...трам пам пам.. .. Set collection = NUIW.PickListCollection( ......
КриптоПро через консоль в Лотусе Lotus
Начальство поставило задачу сделать сертифицированное криптование в Лотусе с помощью КриптоПро. Поскольку криптование должно быть сертифицированное, то и средства запуска и проверки должны быть...
Lotus Lotus Notes + Websphere Mq
Небольшая база под лотус для просмотра сообщений в очереди и удалении сообщений из очереди. Написал по работе, решил поделиться, может кому-то пригодится :D Посмотреть вложение wsmqlotus.7z
Lotus Не работают оповещения... Всем доброго времени суток... У меня вновь дилемма... Надеюсь на вашу помощь... В общем так... Не работают уведомления на почтовые ящики пользователей в базе... Уведомления отсылаются напрямую при... https://www.cyberforum.ru/ lotus-programming/ thread2077037.html
Lotus Getallentriesbykey криво ищет по составному ключу https://www.cyberforum.ru/ lotus-programming/ thread2077036.html
Здравствуйте, все! Столкнулся с проблемой: есть представление, первый сортированный столбец типа дата, второй сортированный столбец вычисляется по формуле типа @If(SomeField = "SomeValue"; "0"; "1")...
Lotus Правильное условие Доброго времени суток.. У меня такой вопрос... Есть поле в документе ПОЛЕ_1 - оно многозначное, может принимать к примеру значения A,B,C. Также есть второе поле ПОЛЕ_2, однозначное... В зависимости... https://www.cyberforum.ru/ lotus-programming/ thread2077035.html
otyxkopustym
0

Отправка писем с форматированием из базы Lotus на внешнюю почту

10.11.2010, 10:23. Просмотров 19428. Ответов 5
Метки (Все метки)


Коллеги доброе время суток.
возможно повторюсь и подобное обсуждение было на форуме но прочел все и не нашел

проблемка вот в чем
есть лотусовая база - которая предназначеня для отправки писем из лотуса на внешние ящики
отлично все работает за исключением того что текст письма идет без форматирования. пропадает шрифт, разбивается таблица (вернее подставляется тире ----- и т.д.) в итоге приходящее письмо представляет из себя только текст.
вот примерно такой
____________________________________________________________ ___
gdfgfdgfdgkljdfo gjoidfgijdf
dfpgjkopfdopgifd

|------------------------------------+------------------------------------|
|jhk |hjk |
|------------------------------------+------------------------------------|
|hk |hjk |
|------------------------------------+------------------------------------|
____________________________________________________________ ____


вот код на кнопку которая производит данную отправку

может поправите чуток
заранее спасибо



LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
(Declaration)
Dim wksp As NotesUIWorkspace
Dim session As notessession
Dim db As notesdatabase
Dim cuid As notesuidocument
Dim mailnote As notesdocument
Dim doc As notesdocument
Dim rtitem As notesrichtextitem
Dim OrigBody As NotesRichTextItem
Dim i%,j%,k%,ar%
Dim s$
Dim v,vn,vn1,ers As Variant
 
 
(Click)
 
Sub Click(Source As Button)
On Error Goto errhndl
Print "Рассылка -  Подготовка..."
Set wksp = New NotesUIWorkspace
Set session = New notessession
Set cuid=wksp.CurrentDocument
If cuid.edytmode Then
cuid.autoreload=False
On Error Goto saveerrhnd
Call cuid.save
On Error Goto errhndl
End If
Set db=session.currentdatabase
Set mailnote=New notesdocument(db)
Set doc=cuid.Document
mailnote.Form="Memo"
mailnote.Subject=doc.Subject
Set OrigBody = doc.GetFirstItem("Body")
Set rtitem= New notesrichtextitem(mailnote,"Body")
Call rtitem.AppendRTItem(OrigBody)
vn=doc.CList
vn1=doc.EList
v=doc.MList
k%=0
On Error Goto senderrhnd
For i%=0 To Ubound(v)
Print "Информационная рассылка - " + v(i%)
mailnote.SendTo=v(i%)
Call mailnote.Send(False)
loopfromerror:
Next i%
If k%>0 Then
Call showerrors()
End If
 
If doc.FlagMail(0)<>"1" Then
If cuid.autoreload=False Then ar%=True
cuid.autoreload=True
doc.FlagMail="1"
If cuid.edytmode Then
Call cuid.save
Else
Call doc.save(True,False)
Call wksp.viewrefresh
End If
If ar%=True Then cuid.autoreload=False
Else
If cuid.edytmode Then
doc.SaveOptions="0"
End If
End If
Msgbox "Операция завершена.",0,"Разослать..."
subend:
Print
Exit Sub
errhndl:
Msgbox "Произошла следующая ошибка:"+Chr$(10)+""+Error$+"",16,"Ошибка..."
If cuid.edytmode Then
Call cuid.reload
Call cuid.refresh
End If
Resume subend
saveerrhnd:
Resume subend
senderrhnd:
If k%=0 Then
Redym ers(0)
Else
Redym Preserve ers(k%)
End If
ers(k%) = vn(i%)+" "+vn1(i%)
k%=k%+1
If Msgbox("Не удается послать сообщение для:"+Chr$(10)+""+ers(k%-1)+"."+Chr$(10)+Chr$(10)+"Произошла следующая ошибка:"+_
Chr$(10)+""+Error$+""+Chr$(10)+Chr$(10)+_
"Продолжить рассылку ?",4+16,"Ошибка...")=6 Then
Resume loopfromerror
Else
Call showerrors()
Resume subend
End If
End Sub
 
 
 
(showerrors)
Sub showerrors()
Dim cd1 As New notesdocument(db)
cd1.Hid1=ers
cd1.Hid2="Не удалось отправить следующим:"
Call wksp.dialogbox("ForMemoWarning",True,True,True,True,True,False,"Внимание...",cd1)
End Sub


Вернуться к обсуждению:
Отправка писем с форматированием из базы Lotus на внешнюю почту
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.11.2010, 10:23
Готовые ответы и решения:

SMTP: отправка на внешнюю почту
Привет всем. Появилась проблема, хостинг, на котором стоит мой сайт, ограничили количество...

Отправка писем на почту
idsmtp2.Host:='smpt.yandex.ru'; idsmtp2.Host:= IntToStr(25); idsmtp2.Username:='*******';...

Не рабтает отправка писем на почту
Здравтсвуйте. Столкнулся с такой проблемой. Необходимо по клику высылать данные из формы на...

Не работает отправка писем на почту
Здравствуйте! Проблема в том, что по какой-то причине программа не хочет оправлять письмо! Вот...

5
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.