使用lotusscript发送mime格式邮件代码,Domino代码库,德仔网

代码语言
代码分类
【Domino】使用lotusscript发送mime格式邮件
作者:entry / 发布于2014/7/25/ 1817

	======================================

	Sub Initialize()

	' 定义变量

	Dim s As New NotesSession

	Dim db As NotesDatabase

	Dim body As NotesMIMEEntity, bodyChild As NotesMIMEEntity

	Dim header As NotesMIMEHeader

	Dim stream As NotesStream

	Dim host As String

	Dim message As NotesDocument

	Set db = s.CurrentDatabase

	s.ConvertMIME = False

	' Do not convert MIME to rich text
	Set stream = s.CreateStream

	Set message = db.CreateDocument

	message.Form = "Memo"

	Set body = message.CreateMIMEEntity

	message.Subject = "通过MIME格式发送邮件"

	message.SendTo = "squallzhong@gmail.com"

	

	Set stream = s.CreateStream()
	' 设置HTML标题

	Call stream.WriteText ("<html><head><title>通过MIME格式发送邮件</title>")

	' BEGIN: 设置CSS

	Call stream.WriteText (|

	<style type="text/css">

	<!--

	.text, td, tr, p, br, body {

	COLOR: #666666;

	FONT-FAMILY: Arial, Helvetica, sans-serif;

	FONT-SIZE: 12px;

	}

	

	a {
	font-family: Arial, Helvetica, sans-serif;

	color: #663399;

	FONT-WEIGHT: bold;

	text-decoration: none;

	}

	-->

	</style>

	|)

	'--------------------------------------------

	Call stream.WriteText ({</head>})

	' BEGIN: 设置主体信息

	Call stream.WriteText ({<body text="#666666" bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">})

	Call stream.WriteText ({ <table width="100%" border="1" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF"><tr><td>测试MIME邮件-主体表格</td></tr></table>)

	Call Stream.WriteText({测试MIME邮件-主体文字})

	Call stream.WriteText({</body></html>})

	

	'将stream中的主体信息内容放置在一个子mime单元中
	Set bodyChild = body.CreateChildEntity()

	Call bodyChild.SetContentFromText (stream, "text/html;charset=utf-8", ENC_NONE)

	Call stream.Close

	Call stream.Truncate

	'--------------------------------------------

	

	'附件单元
	Set bodyChild = body.CreateChildEntity()

	Set header = bodyChild.createHeader("Content-Type")

	Call header.setHeaderVal("multipart/mixed")

	Set header = bodyChild.createHeader("Content-Disposition")

	Call header.setHeaderVal("attachment; filename=文档.doc")

	Set header = bodyChild.createHeader("Content-ID")

	Call header.setHeaderVal("文档.doc")

	

	Set stream = s.CreateStream()

	
	If Not stream.Open("c:\temp\文档.doc", "binary") Then
	Print "打开文伯失败"

	End If

	

	If stream.Bytes = 0 Then
	Print "文件中不包含内容"

	End If

	Call bodyChild.SetContentFromBytes(stream, "application/msword", ENC_IDENTITY_BINARY)

	
	%REM
	application/msword 文档匹配的content-type

	如:image/gif application/msword application/pdf application/zip

	%END REM

	

	'发送
	Call message.Send (False)

	s.ConvertMIME = True

	End Sub
试试其它关键字
　lotusscript　　mime　
同语言下
可能有用的
entry贡献的其它代码(10)