社区
ASP
帖子详情
请问在ASP里使用Jmail,如何设置x-Mailer的属性?
flash0008
2004-08-10 02:15:20
如题.
...全文
167
5
打赏
收藏
请问在ASP里使用Jmail,如何设置x-Mailer的属性?
如题.
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
5icool
2004-08-10
打赏
举报
回复
<%@ Language=VBScript %>
<%
'邮件底部的广告
mailfoot= "填在这里"
'用来发送邮件的SMTP服务器
mailserver= "填在这里"
'如果服务器需要SMTP身份验证则:
'登录用户名
mailserverloginname= "填在这里"
'登录密码
mailserverloginpass= "填在这里"
'域名(如果你用“name@domain.com”这样的用户名登录时,请指明domain.com
mailuserdomain= "填在这里"
'+++++++++++++++++++++++++++++
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>FormMail</title>
<style type="text/css">
<!--
body {
font-size: 12px;
}
td {
font-size: 12px;
}
input {
font-size: 12px;
line-height: 130%;
border: 1px solid #000000;
}
.backc {
color: #FFFFFF;
background-image: url(ok.gif);
height: 20px;
width: 55px;
border: none;
}
textarea {
font-size: 12px;
border: 1px solid #000000;
}
-->
</style>
</head>
<body>
<table width="498" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="formmail_r1_c1.gif" width="500" height="75"></td>
</tr>
<tr>
<td height="300" background="formmail_r2_c1.gif">
<table width="390" border="0" align="center" cellpadding="0" cellspacing="0">
<%
'获取表单数据
fromname= Request.Form("fromname")
frommail= Request.Form("frommail")
toname= Request.Form("toname")
tomail= Request.Form("tomail")
mailtitle= Request.Form("mailtitle")
mailbody= Request.Form("mailbody")
'检查是否填写了表单
if tomail="" then
%>
<form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method=post>
<tr>
<td><p>发信人姓名:
<input type="text" name="fromname">
<br>
发信人信箱:
<input type="text" name="frommail">
<br>
收信人姓名:
<input type="text" name="toname">
<br>
收信人信箱:
<input type="text" name="tomail">
<br>信件主题:
<input name="mailtitle" type="text" size="51">
<br>
信件内容:<br>
<textarea name="mailbody" cols="49" rows="9"></textarea>
<br>
<input name="Submit" type="submit" class="backc" value="提交">
</p>
</td>
</tr>
</form>
<%
else
if frommail="" then
msg="您必须填写您的邮件地址,才可以发信给别人。"
else
'=============== 发 信 ================
dim JMail
set JMail=server.CreateObject("Jmail.message")
JMail.Silent=true
JMail.Charset = "gb2312"
JMail.FromName = fromname
JMail.from = frommail
JMail.AddRecipient tomail,toname
JMail.Subject = mailtitle
jmail.Body=mailbody & vbcrlf & vbcrlf & mailfoot
JMail.MailServerUserName = mailserverloginname
JMail.MailServerPassWord = mailserverloginpass
JMail.MailDomain = mailuserdomain
sendok=JMail.send(mailserver)
if sendok then
msg="已经成功发送了邮件!"
else
msg="发送邮件失败,可能是您填写了错误的邮件地址。<br>" & _
"如果您确信没有写错邮件地址,则可能是发信程序出了<br>" & _
"故障,请与管理员联系"
end if
end if
%>
<tr>
<td valign=middle>
<table width=80% align=center>
<tr><td><p><%=msg%><br><br><a href='javascript:history.back()'>[返回]</a></p></td></tr>
</table>
</td>
</tr>
<%
end if
%>
</table>
</td>
</tr>
<tr>
<td><img src="formmail_r3_c1.gif" width="500" height="36"></td>
</tr>
</table>
</body>
</html>
楼上看看先
flash0008
2004-08-10
打赏
举报
回复
jmail.setHeader("x-Mailer","值");
不同的值会有不同的效果,有些垃圾邮件就是因为这里而被阻止的.
我不知道在ASP里如何设置这个值,上面那一句应该是在C#或者java里写的,不知道在ASP里有没有相关的方法.
5icool
2004-08-10
打赏
举报
回复
我怎么不记得有这个属性?
flash0008
2004-08-10
打赏
举报
回复
丁页~~
flash0008
2004-08-10
打赏
举报
回复
丁页~~~
迷你IIS服务器 智能端口谢寅修正窗口版
迷你IIS服务器 提供 Microsoft IIS 5.0 兼容的 Active Server Pages 模块,不用修改代码直接将已经存在的
使用
ASP
开发的应用程序移植到 迷你IIS服务器 平台上来,也可以直接
使用
已经存在所有 COM 组件。...
jmail
邮件服务器,
ASP
Dimac W3
JMail
邮件收发组件函数(
JMail
使用
详解)
JMail
邮件收发组件函数(
ASP
代码):'
Jmail
发送邮件函数:SendMail(收件人地址,邮件标题,邮件正文),发送成功返回"Y",反之"N"FunctionSendMail(Email,MailTitle,MailBody)dim
JMail
,MailTxtMailTxt=""&MailBody&...
PHP调用
Jmail
组件发送邮件
以前一直基本上都是用
ASP
写程序,所以,知道万网虚拟主机是支持
Jmail
组件。就在网上搜了一下“PHP调用
Jmail
”,果然有结果!经测试,以下代码有效!view plainprint? $
jmail
=new COM("
JMail
.Message")or...
使用
Jmail
发送SSL邮件
msg.setHeader("X-
Mailer
",
mailer
); msg.setSentDate(new Date()); // send the thing off /* * The simple way to send a message is this: * Transport.send(msg); * * But we're going to ...
php 检测是否有
jmail
,
asp
空间判断
jmail
组件是否安装或支持的代码
首先,必须有错误继续进行的声明On Error Resume Next然后尝试简历
jmail
实例:Dim
JMail
Set
JMail
=Server.CreateObject("
JMail
.Message")对实例做出判断,如果组件没有安装成功,则没有创建实例:If
JMail
Is ...
ASP
28,390
社区成员
357,068
社区内容
发帖
与我相关
我的任务
ASP
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
复制链接
扫一扫
分享
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章