Замечание к документу "Проблема формирования href для mailto с параметром subject"   >>>   
Тема: ! Ан нет - строка RenderToRTItem портит subject ...

Создан:Maxim Tolmachev 05/04/2008 09:35 AM
Модифицирован:Maxim Tolmachev 05/04/2008 09:36 AM
Папка:
06. Разработка Notes-приложений
Тип сообщения:
Мне лень заполнять это поле

Сообщение:
Еще раз проверил. Виноват не session.ConvertMIME = True, а RenderToRTItem!

Привожу код:

Dim session As New NotesSession
Dim body As NotesMIMEEntity ' The container MIME entity
Dim altBody As NotesMIMEEntity ' The alternatives MIME entity container
Dim textEntity As NotesMIMEEntity ' The text-based MIME alternative
Dim htmlEntity As NotesMIMEEntity ' The html-based MIME alternative
Dim mimeHeader As NotesMIMEHeader ' Used to describe MIME entities
Dim stream As NotesStream ' Data stream used to pipe information into MIME object
Dim cfgFrom As String
Dim docMail As NotesDocument

session.ConvertMIME = False

Set docMail = session.CurrentDatabase.CreateDocument
With docMail
.SendTo = SendTo
.INetFrom = SendFrom
.IMailAddress = SendFrom
.Principal = SendFrom
.Subject = Subject
End With

Set body = docmail.CreateMIMEEntity( "Body" )

Set mimeHeader = body.CreateHeader( "SMTPOriginator" )
Call mimeHeader.SetHeaderVal( SendFrom )
Set mimeHeader = body.CreateHeader( "Sender" )
Call mimeHeader.SetHeaderVal( SendFrom )
Set mimeHeader = body.CreateHeader( "INetFrom" )
Call mimeHeader.SetHeaderVal( SendFrom )
Set mimeHeader = body.CreateHeader( "ReplyTo" )
Call mimeHeader.SetHeaderVal( SendFrom )

Set mimeHeader = body.CreateHeader( "Content-Type" )
Call mimeHeader.SetHeaderVal( "multipart/related" )

Set altBody = body.CreateChildEntity
Set mimeHeader = altBody.CreateHeader( "Content-Type" )
Call mimeHeader.SetHeaderVal( "multipart/alternative" )

Set stream = session.CreateStream
Call stream.WriteText( Text )
Set htmlEntity = altBody.CreateChildEntity
Call htmlEntity.SetContentFromText( stream, "text/html;charset=UTF-8", ENC_NONE )
Call stream.Close
Call stream.Truncate

Call docMail.Save( true, False )

session.ConvertMIME = True ' ДУМАЛ, что ИЗ-ЗА ЭТОЙ СРОКИ Subject пустой

dim rtitem as NotesItem
set rtitem = docMail.GetFirstItem("Body")
call linkdoc.RenderToRTItem(rtitem) ' ... ИЗ-ЗА ЭТОЙ СТРОКИ Subject пустой!

Call docMail.Send( False )



Вопрос остается открытым!
Как же быть, чтобы и линки сформировались нормално?

Иерархия документов данной дискуссии:
Проблема формирования href для mailto с параметром subject (Maxim Tolmachev) (04.05.2008 9:08:09)
.... ! Ан нет - строка RenderToRTItem портит subject ... (Maxim Tolmachev) (04.05.2008 9:35:58)
.... Нюанс найден! Оказалось, что в случае с RenderToRTItem важно все значение для href брать в кавычки. (Maxim Tolmachev) (04.05.2008 10:24:56)
........ OFF: а вы хотели и W3C нарушить и чтоб работало как надо? (-) (Viktor Vladimirovich Alenkov) (04.05.2008 14:19:43)


Разработчикам и администраторам: курсы, книги, сертификация