最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
在ASP中用EasyMailObject组件处理Exchange邮件源代码---发送邮件(p_sen
时间：2022-06-30 11:38:19 编辑：袖梨 来源：一聚教程网
<%@ 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
<%
'*************************************
'这个文件用来发送邮件
'作者：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
相关文章
- 2026年ChatGPT新手教程如何设置？5步学会基础操作 06-13
- 造化钟神秀 - 泰山自然与人文奇观赏析 06-13
- 伊莫拉撒介绍 伊莫拉撒强度解析与实战表现 06-13
- 2026年OpenAI收费吗？5项关键判断依据与操作建议 06-13
- 即梦AI低成本替代方案：5个免费平替工具横向对比 06-13
- 人工智能工程技术专业工作内容 - 2026年主流岗位与职责详解 06-13