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

来源：互联网发布：sql视频教程编辑：程序博客网时间：2024/06/05 06:38

【背景】

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

【实现代码】

Sub Initialize()On Error Goto errorlineSet ss = New NotesSessionDim doc As NotesDocumentDim amonth As StringDim xm As StringDim yx As StringDim GZTMonth As StringDim body As StringDim result As StringDim contentStr As StringDim bodyItem As NotesRichTextItemDim GZTtype As StringcontentStr = "Content-type: text/xml;CHARSET=GB2312"result = ""Set db = ss.CurrentdatabaseSet doc = ss.DocumentcontextDim maildoc As NotesDocumentSet maildoc = New NotesDocument(db)ss.Convertmime=FalseDim bodyRich As NotesMIMEEntityDim header As NotesMIMEHeaderDim stream As NotesStreamSet bodyRich=maildoc.CreateMIMEEntitySet stream=ss.Createstream()mailDoc.Form = "Memo"mailDoc.SendTo = "123@123.com"mailDoc.Subject = xm+",您好！这是您"+CStr(GZTMonth)+"的"+GZTtypemailDoc.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 Suberrorline:Msgbox ss.CurrentDatabase.FilePath+"中代理"+ss.CurrentAgent.Name+"发生错误："+Error+"行：" & ErlExit SubEnd Sub

1 0