四川电力职业技术学院5P品课程道 P晶银程ASP精品课程建设 P精品 在线发送Emai1简单示例 发送部分 < 8-1.asp 判断,如果收件人,发件人和主题都不为空,则继续发信 If Request("Receipt)<> and Request("Sender")<> and Request(Subject)<> Then Dim jmail 因为开头强制所有变量需声明,所以这里必须先声明Jmai1变量 Set Jmail Server CreateObject("Jmail. Message") Jmail. AddRecipient Request( Receipt) Jmail. From Request( sender) Umail Subject Request( Subject) Jmail. Body Request( body") Jmail. AddAttachment "C: Inetpub\wwwroot\ asptemp\ chapterll\music. mid F8I+ Jmail send("jjshang99: 1234560smtp 163 com") 执行发送 Jmail. close 关闭对象 Response.rite"成功发送 Else Response, Write"必须填写收件人、发件人和邮件主题 End工f B
在线发送Email 简单示例 • 发送部分 8-1.asp
四川电力职业技术学院5P品课程道 P晶银程ASP精品课程建设 P精品 自动发送Emai1示例 该示例从数据库中读取E-mai地址,并自动发信 strsql="Select From users 8-2. asp Set rs=db. Execute(strsql Dim Jmail Set Jmail Server CreateObject(" Jmail. Message") Do While Not rs eof Jmail. AddRecipient rs("email") Rs Movenext Loop Jmail. From ="jjshang990163 com" Jmai1.5 ubject="节日快乐” Jmai1.BodY="您好,祝节日快乐,万事如意! Umail. AddAttachment "C:\Inetpub\wwwroot\ asptemp\ chapterll\music. mid 附件 Jmail send("jjshang99: 123456Esmtp. 163. com") 执行发送 Umail. Close 关闭对象 B
自动发送Email 示例 • 该示例从数据库中读取E-mail地址，并自动发信。 8-2.asp