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

代码语言

代码分类

【Domino】使用lotusscript发送mime格式邮件

作者:entry / 发布于2014/7/25/ 1291


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

	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)