如何实现给用户自动发送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格式邮件中使用图象。
。
收起
