如何实现给用户自动发送Email?
1
2
3
4
5 发邮件
6
7
8 ""and strsubject<>"" and strquery<>"" and strsender<>"") then
16 dim objmail
17 set objmail= eateobject(" wmail")
18 om=strsender
19 =strname
20 bject=strsubject
21 dy=strquery
22 if strfile<>"" then
23 ...全部
1
2
3
4
5 发邮件
6
7
8 ""and strsubject<>"" and strquery<>"" and strsender<>"") then
16 dim objmail
17 set objmail= eateobject(" wmail")
18 om=strsender
19 =strname
20 bject=strsubject
21 dy=strquery
22 if strfile<>"" then
23 tachfile strfile
24 end if
25 nd
26 response。
write "successful, thank you!"
27 set objmail=nothing
28 else
29 %>
30 发邮件
31 "
32 method=post>
33
34 收件人
36 主题
38 邮件
40 发件人
42 附件
44
45
46
47
48
49
50
该程序可以发送
第10-14行将从表单获得的数据赋给变量。
第30-47行是发邮件填写的表单
第15行语句判断表单是否填写。如果没填写,则执行30-47行语句。
第17行创建一个对象newmail,它允许用send方法发送电子邮件。
接受如下参数: nd fromaddress , toaddress , subject , body , importance
含义为fromaddress表示发件人地址,toaddress表示收件人地址,subject表示主题,body表示邮件内容,importance表示重要性(0为不重要,1为正常,2为重要)。
第18-21行将发件人,收件人,主题,邮件内容的值赋给newmail对象的各个属性。
第22判断是否有附件,若有,则赋给newmail的attachfile属性。
第25行发送邮件。
第27行销毁objmail对象。设置为nothing 。
newmail还有bodyformat和mailformat属性。
Bodyformat用来指明邮件正文是纯文本(值为1)还是包含HTML(值为0)。Mailformat指明是文本消息(值1)还是MIME格式消息(值0),可在HTML格式邮件中使用图象。
。
收起