源码:使用LotusScript发送mime格式邮件
2011-05-29 08:25
489 查看
源码:使用LotusScript发送mime格式邮件
群友们经常问此类问题,收集下,供参考
01
Sub
Initialize()
02
'定义变量
03
Dim
s
As
New
NotesSession
04
Dim
db
As
NotesDatabase
05
Dim
body
As
NotesMIMEEntity,bodyChild
As
NotesMIMEEntity
06
Dim
header
As
NotesMIMEHeader
07
Dim
stream
As
NotesStream
08
Dim
host
As
String
09
Dim
message
As
NotesDocument
10
Set
db=s.CurrentDatabase
11
s.ConvertMIME=
False
12
'DonotconvertMIMEtorichtextSetstream=s.CreateStream
13
Set
message=db.CreateDocument
14
message.Form=
"Memo"
15
16
Set
body=message.CreateMIMEEntity
17
message.Subject=
"通过MIME格式发送邮件"
18
message.SendTo="squallzhong@gmail.com<SCRIPTtype=text/javascript>
19
/*<![CDATA[*/
20
(function(){try{vars,a,i,j,r,c,l=document.getElementById(
"__cf_email__"
);a=l.className;if(a){s=
'';r=parseInt(a.substr(0,2),16);for(j=2;a.length-j;j+=2){c=parseInt(a.substr(j,2),16)^r;s+=String.fromCharCode(c);}s=document.createTextNode(s);l.parentNode.replaceChild(s,l);}}catch(e){}})();
21
/*]]>*/
22
</SCRIPT>"
23
24
Set
stream=s.CreateStream()
25
'设置HTML标题
26
Call
stream.WriteText(
"<html><head><title>通过MIME格式发送邮件</title>"
)
27
'BEGIN:设置CSS
28
Call
stream.WriteText(|
29
<styletype=
"text/css"
>
30
<!--
31
.text,td,tr,p,br,body{
32
COLOR:#666666;
33
FONT-FAMILY:Arial,Helvetica,sans-serif;
34
FONT-SIZE:12px;
35
}
36
a{
37
font-family:Arial,Helvetica,sans-serif;
38
color:#663399;
39
FONT-WEIGHT:bold;
40
text-decoration:none;
41
}
42
-->
43
</style>
44
|)
45
'--------------------------------------------
46
Call
stream.WriteText({</head>})
47
'BEGIN:设置主体信息
48
Call
stream.WriteText({<bodytext=
"#666666"
bgcolor=
"#FFFFFF"
leftmargin=
"0"
topmargin=
"0"
marginheight=
"0"
marginwidth=
"0"
>})
49
Call
stream.WriteText({<tablewidth=
"100%"
border=
"1"
cellspacing=
"0"
cellpadding=
"0"
bgcolor=
"#FFFFFF"
><tr><td>测试MIME邮件-主体表格</td></tr></table>)
50
Call
Stream.WriteText({测试MIME邮件-主体文字})
51
Call
stream.WriteText({</body></html>})
52
53
'将stream中的主体信息内容放置在一个子mime单元中
54
Set
bodyChild=body.CreateChildEntity()
55
Call
bodyChild.SetContentFromText(stream,
"text/html;charset=utf-8"
,ENC_NONE)
56
Call
stream.Close
57
Call
stream.Truncate
58
'--------------------------------------------
59
60
'附件单元
61
Set
bodyChild=body.CreateChildEntity()
62
Set
header=bodyChild.createHeader(
"Content-Type"
)
63
Call
header.setHeaderVal(
"multipart/mixed"
)
64
65
Set
header=bodyChild.createHeader(
"Content-Disposition"
)
66
Call
header.setHeaderVal(
"attachment;filename=文档.doc"
)
67
68
Set
header=bodyChild.createHeader(
"Content-ID"
)
69
Call
header.setHeaderVal(
"文档.doc"
)
70
71
Set
stream=s.CreateStream()
72
If
Not
stream.Open(
"c:\temp\文档.doc"
,_
73
"binary"
)
Then
74
"打开文伯失败"
75
End
If
76
If
stream.Bytes=0
Then
77
"文件中不包含内容"
78
End
If
79
Call
bodyChild.SetContentFromBytes(stream,
"application/msword"
,ENC_IDENTITY_BINARY)
80
%
REM
81
application/msword文档匹配的content-type
82
如:image/gifapplication/mswordapplication/pdfapplication/zip
83
%END
REM
84
85
'发送
86
Call
message.Send(
False
)
87
s.ConvertMIME=
True
88
End
Sub
相关文章推荐
- 源码:使用LotusScript发送mime格式邮件
- 如何使用LotusScript代理来发送HTML格式的邮件
- 如何使用 LotusScript 代理来发送 HTML 格式的邮件
- 如何使用LotusScript代理来发送HTML格式的邮件
- 在perl中使用 MIME::Lite来发送有附件的邮件
- 使用SOCKET发送邮件【源码+程序+使用说明】
- 介绍使用php发送邮件类(html格式及附件)
- 使用Python发送HTML格式的邮件
- python3使用SMTP发送HTML格式邮件
- 使用qq邮箱发送html格式的邮件
- 使用linux的mail命令发送html格式的邮件
- 使用javamail发送html格式邮件
- 使用java底层实现邮件的发送(含测试,源码)
- 【干货】使用Java发送各种格式的邮件
- 【干货】使用Java发送各种格式的邮件
- Python使用SMTP发送邮件[HTML格式、送带附件]
- JavaMail使用5 -- 发送邮件2 -- 发送HTML格式邮件
- SMTP邮件格式、SMTP 协议,SMTP的MIME写法,SMTP发送HTML邮件
- 使用spring实现邮件的发送(含测试,源码,注释)
- .Net中使用SendGrid Web Api发送邮件(附源码)