G
Gor
Здравствуйте All!
Немного затупил с отправкой письма.
Надо формировать письмо в бэке агентом на сервере в определённом стиле + к этому письму прикладывать определённый аттач.
Пошёл путём через MIME.
т.е. письмо получается формируется в html, нужным мне, а аттач то сейчас как прикрутить?
ЧЕрез richtext и embededobjects не получается...
Немного затупил с отправкой письма.
Надо формировать письмо в бэке агентом на сервере в определённом стиле + к этому письму прикладывать определённый аттач.
Пошёл путём через MIME.
Код:
Dim mime As NotesMIMEEntity
Dim memo As NotesDocument
Set memo = mdb.CreateDocument
Dim texthtml As NotesStream
htmltext = {<body>
<br>
<br>
Всем привет
<br>
<br>
</body>}
Set texthtml = session.CreateStream
texthtml.WriteText htmltext
Set mime = memo.CreateMIMEEntity("Body")
mime.SetContentFromText texthtml, "text/html; charset=Windows-1251", ENC_NONE
memo.Closemimeentities True
memo.Form = "Memo"
memo.From = "Auto рассылка"
memo.SendTo = "получатель@om.com"
memo.Recipients = "получатель@om.com"
memo.Subject = "Автоматическая рассылка"
Call memo.Save(True, True)
т.е. письмо получается формируется в html, нужным мне, а аттач то сейчас как прикрутить?
ЧЕрез richtext и embededobjects не получается...