domino代理发送邮件，邮件正文为表格的实现方法

最新推荐文章于 2021-02-23 17:36:50 发布

gavid0124

最新推荐文章于 2021-02-23 17:36:50 发布

阅读量2.7k

点赞数 1

文章标签： domino技术开发

本文链接：https://blog.csdn.net/gavid0124/article/details/36684037

版权

【背景】

客户要实现在domino平台发送工资条邮件的功能，邮件正文是工资条信息，domino发邮件功能很容易，邮件正文带表格的功能我找了半天，特把实现代码分享出来。

【实现代码】

Sub Initialize()
	
	On Error Goto errorline
	
	Set ss = New NotesSession
	Dim doc As NotesDocument
	Dim amonth As String
	Dim xm As String
	Dim yx As String
	Dim GZTMonth As String
	Dim body As String
	Dim result As String
	Dim contentStr As String
	Dim bodyItem As NotesRichTextItem
	Dim GZTtype As String
	
	contentStr = "Content-type: text/xml;CHARSET=GB2312"
	result = ""
	
	Set db = ss.Currentdatabase
	Set doc = ss.Documentcontext
		
	Dim maildoc As NotesDocument
	Set maildoc = New NotesDocument(db)
	
	ss.Convertmime=False
	Dim bodyRich As NotesMIMEEntity
	Dim header As NotesMIMEHeader
	Dim stream As NotesStream
	
	Set bodyRich=maildoc.CreateMIMEEntity
	Set stream=ss.Createstream()
	
	mailDoc.Form = "Memo"
	mailDoc.SendTo = "123@123.com"
	mailDoc.Subject = xm+",您好！这是您"+CStr(GZTMonth)+"的"+GZTtype
	mailDoc.body = "<table booder='1'><tr><th>序号</th><th>标题</th></tr><td>1</td><td>内容</td></tr></table>"
	Call stream.Writetext(getTable(amonth,body)& Chr(10)& Chr(10)& Chr(130)& Chr(13))
	Call bodyRich.Setcontentfromtext(Stream,"text/HTML;charset=GB2312;MIME-Version=1.0 ", ENC_EXTENSION)
		
	Call mailDoc.Send(False)	
	
	Exit Sub
errorline:
	Msgbox ss.CurrentDatabase.FilePath+"中代理"+ss.CurrentAgent.Name+"发生错误："+Error+"行：" & Erl
	Exit Sub
End Sub