Lotus教程、Java教程、Java虚拟机、Java软件综合开发社区

Lotus、Domino、Java、C#、Web、数据库综合开发教程、资料社区

使用LotusScript发送mime格式邮件

« 衡量存贮是否存在瓶颈？
java.lang.NoClassDefFoundError: javax/el/ExpressionFactory »


Published by admin on 12月 30, 2010 
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邮件-主体文字<br>})  

 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   


来自Innovative in VGOLive
Posted under Lotus开发, Lotus管理, 教程, 系统集成, 编程, 转载
Comments (0)
上一篇文章:« 衡量存贮是否存在瓶颈？

下一篇文章:java.lang.NoClassDefFoundError: javax/el/ExpressionFactory »

【版权说明】：本网页上有部分内容来源于网上收集,但不能保证资料的完整性和准确性，仅提供参考和学习。如有侵权请立即通知我们,我们将立即删除,谢谢合作!

Add A Comment