开发学院 WEB开发 ASP 用EasyMailObject组件处理Exchange邮件源代码(5) 阅读

用EasyMailObject组件处理Exchange邮件源代码(5)

　2002-04-09 11:07:33　来源：WEB开发网　　　

核心提示：在asp中用EasyMailObject组件处理Exchange邮件源代码---发送邮件(p_sendmail.asp)<%@ Language=VBScript %><%'*'这个文件用来发送邮件'作者：awayeah'邮箱：awayeah@163.net'*

在asp中用EasyMailObject组件处理Exchange邮件源代码---发送邮件(p_sendmail.asp)

<%@ Language=VBScript %>
<%
'*************************************

'这个文件用来发送邮件
'作者：awayeah
'邮箱：awayeah@163.net

'*************************************

if session("straccount")="" or session("strpassWord")="" then
Response.End
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<STYLE>

</STYLE>
<BODY>
<%　 Set SMTP = CreateObject("EasyMail.SMTP.5")
　 SMTP.LicenseKey = "awa/S19I500R1AX30C0R3100"
　 SMTP.MailServer = "192.9.200.89"
　 SMTP.Subject = Request.Form("subject")
　 SMTP.BodyText = Request.Form("bodytext")
　 SMTP.From = Request.Form("from")
　 SMTP.FromAddr = Request.Form("fromaddr")
　 SMTP.AddRecipient Request.Form("from"), Request.Form("receive1") , 1
　
　 '添加附件
　 if Request.Form("att")="" then
　 Response.Write ""
　 else
　 x = SMTP.AddAttachment(Request.Form("att"), 0)
　 If Not x = 0 Then
　　 Response.Write "插入附件错误: " + cstr(x) + "请与管理员联系。"
　 End If
　 end if
　 x = SMTP.Send

　 If x = 0 Then
'　　　Response.Write (" ")
'　　 Response.Write (" 邮件已成功发出!"
'　　　session("sended")="Y"
　 Else
　if x=7 or x=5 then
　　　Response.Write " 发邮件发生错误(" + cstr(x)+ ").发件人地址错误"%>
　　　 <input type="button" onclick="history.go(-1)"　value="返回">
　　　<%Response.End
　else
　　　Response.Write " 发邮件发生错误: "　 + cstr(x)+ ""%>
　　　 <input type="button" onclick="history.go(-1)"　value="返回" id=button1 name=button1>
　　　<%Response.End
　end if
　End If

　 Set SMTP = Nothing
　
%>

 <a href="javascript:window.close();">
返回</a>

</BODY>
</HTML>