Форум программистов, компьютерный форум, киберфорум
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
0 / 0 / 0
Регистрация: 12.10.2007
Сообщений: 522
12.11.2010, 16:37 0

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

12.11.2010, 16:37. Просмотров 19431. Ответов 5
Метки (Все метки)

Ответ


попробуй так

Код
Dim s As New NotesSession
Dim db As NotesDatabase
Dim mime As NotesMIMEEntity
Dim memo As NotesDocument

Set db=s.CurrentDatabase
Set memo = db.CreateDocument
Set result = memo.CreateMIMEEntity("Body")
Dim hdr As NotesMIMEHeader
Set hdr = result.CreateHeader("MIME-Version")
Call hdr.SetHeaderValAndParams(|1.0|)

Set mime = result.CreateChildEntity( )
Dim stream As NotesStream

Set stream = s.CreateStream
s.ConvertMIME = False  Restore conversion

stream.WriteText {<body>Тут пишем html-текст</body>}
mime.SetContentFromText stream, "text/html; charset=Windows-1251", ENC_IDENTITY_8BIT
приаттачивание файлов
Set rtdoc=doc.GetFirstItem("Files")
If ( rtdoc.Type = RICHTEXT ) Then
If Not Isempty(rtdoc.EmbeddedObjects) Then
Set mime = result.CreateChildEntity( )
Forall object In rtdoc.EmbeddedObjects
If (object.Type = EMBED_ATTACHMENT ) Then
filepath =Environ("Temp")+"\"+Cstr(Object.Name)
Call object.ExtractFile(filepath)

tmpSource=Object.Source
i=i+1
NameSource:
If i=0 Then
Redym Preserve filenames(0)
filenames(0)=Object.Source
Else
For j=0 To Ubound(filenames)
If filenames(j)=tmpSource Then
tmpSource=Strleft(Object.Source,".")+Cstr(n)+"."+Strright(Object.Source,".")
n=n+1
Goto NameSource
End If
Next
tmpSource=Strleft(Object.Source,".")+"_"+Cstr(n-1)+"."+Strright(Object.Source,".")
Redym Preserve filenames(Ubound(filenames)+1)
filenames(Ubound(filenames))=tmpSource
End If

tmp=Evaluate({@ReplaceSubstring(@URLEncode("UTF-8";"}+Cstr(tmpSource)+{");"%";"=")})
filename="=?utf-8?Q?"+tmp(0)+"?="

Set mime = result.CreateChildEntity( )

Set hdr = mime.CreateHeader("Content-Disposition")
Call hdr.SetHeaderValAndParams(|attachment; filename="|+filename+|"|)
Set hdr = mime.createHeader("Content-ID")
Call hdr.setHeaderVal(filename)
Set stream = s.CreateStream
stream.Open filepath, "binary"
mime.SetContentFromBytes stream, |application/octet-stream; name="|+filename+|"|, ENC_BINARY
mime.EncodeContent ENC_BASE64
Kill filepath
End If
End Forall
End If
End If

Call memo.CloseMIMEEntities(True, "Body")
memo.SendTo ="Кому "
memo.Principal="От кого"
memo.INetFrom="От кого"
memo.Subject = "Тема"
Call memo.Send(False)
s.ConvertMIME = True  Restore conversion


Вернуться к обсуждению:
Отправка писем с форматированием из базы Lotus на внешнюю почту
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.11.2010, 16:37

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Отправка писем через Lotus Notes
Есть такой макрос (см ниже) письмо формируется но не отправляется . подскажите в чем проблема,...

Отправка писем на почту через сайт
Здравствуйте, проблема выскакивает &quot;ошибка при отправке письма&quot;, сервер WAMP, установил sendmail в...

Отправка писем о заказе на почту клиенту
Вот меня интересует мнение опытных верстальщиков. Хочу прояснить вопрос когда на фрилансе пишут...

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

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