Dim memo As NotesDocument
Set memo = mdb.CreateDocument
Set result = memo.CreateMIMEEntity("Body")
Dim hdr As NotesMIMEHeader
Set hdr = result.CreateHeader("Subject")
Call hdr.SetHeaderValAndParams("SUBJ")
Set hdr = result.CreateHeader("MIME-Version")
Call hdr.SetHeaderValAndParams(|1.0|)
Dim tmp1 As NotesMIMEEntity
Set tmp1 = result.CreateChildEntity( )
' text entity, encoding type ENC_NONE
Dim stream As NotesStream
Set stream = session.CreateStream
stream.WriteText {<body>
<br>
Уважаемый коллега,
<br>
<br>
Dear colleague,
<br>
</body>}
tmp1.SetContentFromText stream, "text/html", ENC_NONE
Set tmp1 = result.CreateChildEntity( )
Set hdr = tmp1.CreateHeader("Content-Disposition")
Call hdr.SetHeaderValAndParams(|attachment; filename=|+ filename$)
Set stream = session.CreateStream
stream.Open pathName$+ filename$, "binary"
Call mime.SetContentFromText(stream,"text/html;charset=windows-1251",ENC_IDENTITY_8BIT)
tmp1.EncodeContent ENC_BASE64
Call memo.CloseMIMEEntities(True, "Body")
'===============
memo.Form = "Memo"
memo.From = "рассылка"
memo.SendTo = "123@rambler.com"
memo.Recipients = "123@rambler.com"
Call memo.Save(True, True)
Ссылка на оригинальную тему форума
Set memo = mdb.CreateDocument
Set result = memo.CreateMIMEEntity("Body")
Dim hdr As NotesMIMEHeader
Set hdr = result.CreateHeader("Subject")
Call hdr.SetHeaderValAndParams("SUBJ")
Set hdr = result.CreateHeader("MIME-Version")
Call hdr.SetHeaderValAndParams(|1.0|)
Dim tmp1 As NotesMIMEEntity
Set tmp1 = result.CreateChildEntity( )
' text entity, encoding type ENC_NONE
Dim stream As NotesStream
Set stream = session.CreateStream
stream.WriteText {<body>
<br>
Уважаемый коллега,
<br>
<br>
Dear colleague,
<br>
</body>}
tmp1.SetContentFromText stream, "text/html", ENC_NONE
Set tmp1 = result.CreateChildEntity( )
Set hdr = tmp1.CreateHeader("Content-Disposition")
Call hdr.SetHeaderValAndParams(|attachment; filename=|+ filename$)
Set stream = session.CreateStream
stream.Open pathName$+ filename$, "binary"
Call mime.SetContentFromText(stream,"text/html;charset=windows-1251",ENC_IDENTITY_8BIT)
tmp1.EncodeContent ENC_BASE64
Call memo.CloseMIMEEntities(True, "Body")
'===============
memo.Form = "Memo"
memo.From = "рассылка"
memo.SendTo = "123@rambler.com"
memo.Recipients = "123@rambler.com"
Call memo.Save(True, True)
Ссылка на оригинальную тему форума
Комментариев нет:
Отправить комментарий