最新下载
热门教程
- 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
相关文章
- jm在线网页版-jm漫画官网入口 09-29
- 永乐视频官网最新入口-永乐视频网页版快捷登录 09-29
- freeok-追剧也很卷官网地址-freeok在线追剧官方入口 09-29
- MC在线玩网页版网址是什么-mc我的世界在线玩网页版免费免登陆入口 09-29
- 禁漫天堂JM最新地址发布页:永久有效入口与防迷路指南 09-29
- iwara网页版入口-Iwara网页版最新访问地址 09-29