在ASP中用EasyMailObject组件处理Exchange邮件源代码---发送邮件(p_sen

<%@ Language=VBScript %>
<%
'*************************************
'这个文件用来发送邮件
'作者：awayeah
'邮箱：[email protected]
'*************************************
if session("straccount")="" or session("strpassword")="" then
Response.End
end if
%>
>





<%     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