domino发送html邮件

桃扇骨 2022-08-07 10:47 190阅读 0赞

最近在网上找到的发送html代码的邮件，今天 发出来，大家 共享

1）方法一

[http://ozinisle.blogspot.com/2010/11/send-html-content-as-mail-using-lotus.html][http_ozinisle.blogspot.com_2010_11_send-html-content-as-mail-using-lotus.html]

2）方法二

[http://www.codestore.net/store.nsf/unid/BLOG-20091022-0419][http_www.codestore.net_store.nsf_unid_BLOG-20091022-0419]

web代理调用如下
    	Dim Session As New NotesSession
    	Dim Curdoc As NotesDocument
    	Dim Db As NotesDatabase
            Dim url As String
            Dim link As String
    
    	Set Curdoc=Session.Documentcontext
    
    	url=StrLeft(Db.Httpurl,"?OpenDatabase")+_
    	"/x_notice.xsp?action=openDocument&documentId="+Curdoc.Universalid
    	link="<a href="""+url+""" target=""_blank"">文档链接</a>"
    	Call cBasic.sendHTMLContentAsMail(Curdoc.yauditor(0),"" ,"",_
    	"通知,主题：["&Curdoc.yFormname(0)&"],当前状态："&Curdoc.Status(0),link)
    	Call curdoc.save(True,false)
    	
    
    Function sendHTMLContentAsMail(recipients As Variant,ccTo As Variant,bccTo As Variant, _
    		Subject As String,bodyHtmlContent As String)
    		'Declare Variables 
    		Dim s As New NotesSession
    		Dim db As NotesDatabase
    		Dim body As NotesMIMEEntity
    		Dim stream As NotesStream
    		Dim host As String
    		Dim message As  NotesDocument 
    		
    		On Error GoTo errHandler
    		
    		Set db = s.CurrentDatabase
    		Set message=db.CreateDocument
    		'Capture the server name and filepath for use in URLs
    		Dim ServerName As New NotesName( db.Server )
    		host = "http://" + ServerName.Common & ".com"
    		
    		s.ConvertMIME = False ' Do not convert MIME to rich text
    		Set stream = s.CreateStream
    		Set body = message.CreateMIMEEntity
    		message.Subject =Subject
    		message.SendTo =recipients
    		message.CopyTo =ccTo
    		message.BlindCopyTo =bccTo
    		message.RecNoOutOfOffice = "1"   
    		Call stream.WriteText (bodyHtmlContent)
    		' Ensure the MIME content will be recognized as HTML   (Must be after the stream is written)
    		Call body.SetContentFromText (stream, "text/html;charset=UTF-8", ENC_NONE) 
    		Call message.Send (False)  
    		
    		s.ConvertMIME = True ' Restore conversion
    		Exit Function
    errHandler:
    		MsgBox Error,,CStr(Erl)
    		Exit Function
    	End Function

[http_ozinisle.blogspot.com_2010_11_send-html-content-as-mail-using-lotus.html]: http://ozinisle.blogspot.com/2010/11/send-html-content-as-mail-using-lotus.html
[http_www.codestore.net_store.nsf_unid_BLOG-20091022-0419]: http://www.codestore.net/store.nsf/unid/BLOG-20091022-0419