社区
ASP
帖子详情
Jmail外发邮件的问题
787912
2004-04-05 01:14:58
我是想把一篇文章发送给我的好友,不知道改怎么做,还请高手们指点一二。
...全文
81
2
打赏
收藏
Jmail外发邮件的问题
我是想把一篇文章发送给我的好友,不知道改怎么做,还请高手们指点一二。
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
叮咚叮咚叮叮咚
2004-04-05
打赏
举报
回复
<%
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集,默认为"US-ASCII"
' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码,默认为True
' 发送者信息(可用变量方式赋值)
JMail.From = "s1ihome@tom.com" ' 发送者地址
JMail.FromName = "华润" ' 发送者姓名
JMail.Subject = "华润在线定单" ' 邮件主题
' 身份验证
JMail.MailServerUserName = "s1ihome" ' 身份验证的用户名
JMail.MailServerPassword = "******************" ' 身份验证的密码
' 设置优先级,范围从1到5,越大的优先级越高,3为普通
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' 加入一个收件人【变量email:收件人地址】可以同一语句重复加入多个
JMail.AddRecipient("s1ihome@tom.com")
' 加入附件【变量filename:附件文件的绝对地址,确保用户IUSR_????有访问的权限】
' 【参数设置是(True)否(False)为Inline方式】
'contentId = JMail.AddAttachment (filename, True)
' 邮件主体(HTML(注意信件内链接附件的方式))
JMail.HTMLBody = "<html><head><META content=zh-cn http-equiv=Content-Language><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><style type=text/css>A:link { FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION: underline}BODY {FONT-SIZE: 9pt; COLOR:#000000} --></style></head><body bgcolor=""#FFFFFF"" text="" leftmargin="" topmargin="" link="" #FFFFFF"" #666666"" 0"" 30"" #FF9900""><CENTER><TABLE cellPadding=0 width=555 border=0 bordercolor=red cellspacing=1 BGColor=#000000><TBODY><TR BGColor=#DDDDDD><TD colspan=2 height=30 align=""center""><b><font color=red><span style=""font-size:18px;letter-spacing:2px"">华尔润在线订单</span></font></b><TR BGColor=#ffffff><TD width=161 height=""27"" align=""right"">订购单位(全称): </TD><TD width=394 height=""11""> "<d&"</TD></TR><TR BGColor=#ffffff><TD width=161 height=""27"" align=""right"">详细地址: </TD><TD width=394 height=""18""> "&address&"</TD></TR><TR BGColor=#ffffff><TD width=161 height=""27"" align=""right"">邮政编码: </TD><TD width=394 height=""27""> "&post&"</TD></TR><TR BGColor=#ffffff><TD width=161 height=""27"" align=""right"">联 系 人: </TD><TD width=394 height=""27""> "&linkman&"</TD></TR><TR BGColor=#ffffff><TD width=161 height=""27"" align=""right"">联系电话: </TD><TD width=394 height=""27""> "&phone&"</TD></TR><TR BGColor=#ffffff><TD width=161 height=""27"" align=""right"">联系传真: </TD><TD width=394 height=""27""> "&fax&"</TD></TR><TR BGColor=#ffffff><TD width=161 height=""27"" align=""right"">电子邮件: </TD><TD width=394 height=""27""> "&mail&"</TD></TR><TR BGColor=#ffffff><TD vAlign=top width=542 colSpan=2 align=""center""><br><center><TABLE cellSpacing=1 cellPadding=0 width=""520"" bgColor=#000000 border=0 align=""center""><TR BGColor=#dddddd height=25><TD align=middle>品名</TD><TD align=middle>规格型号</TD><TD align=middle>订购数量</TD><TD align=middle>单位</TD></TR><TR bgColor=#f5f5f5 height=25><TD align=middle> "&pro1&"</TD><TD align=middle> "&types1&"</TD><TD align=middle> "&num1&"</TD><TD align=middle> "&unit1&"</TD></TR><TR bgColor=#f5f5f5 height=25><TD align=middle> "&pro2&"</TD><TD align=middle> "&types2&"</TD><TD align=middle> "&num2&"</TD><TD align=middle> "&unit2&"</TD></TR><TR bgColor=#f5f5f5 height=25><TD align=middle> "&pro3&"</TD><TD align=middle> "&types3&"</TD><TD align=middle> "&num3&"</TD><TD align=middle> "&unit3&"</TD></TR><TR bgColor=#f5f5f5 height=25><TD align=middle> "&pro4&"</TD><TD align=middle> "&types4&"</TD><TD align=middle> "&num4&"</TD><TD align=middle> "&unit4&"</TD></TR><TR bgColor=#f5f5f5 height=25><TD align=middle> "&pro5&"</TD><TD align=middle> "&types5&"</TD><TD align=middle> "&num5&"</TD><TD align=middle> "&unit5&"</TD></TR><TR bgColor=#f5f5f5 height=25><TD align=middle> "&pro6&"</TD><TD align=middle> "&types6&"</TD><TD align=middle> "&num6&"</TD><TD align=middle> "&unit6&"</TD></TR></TABLE><br></center></TD></TR><TR BGColor=#ffffff><TD width=161 height=""25"" align=""right"">质量要求: </TD><TD width=394 height=""17""> "&quality&"</TD></TR><TR BGColor=#ffffff><TD width=161 height=""83"" align=""right"">订购单位留言: </TD><TD width=394 height=""83""> "&others&"</TD></TR></TBODY></TABLE></CENTER></body></html>"
' 邮件主体(文本部分)
JMail.Body = "我们的邮件采用了HTML格式,请点击邮件下方""HTML内容""来查看详细内容。"
' 发送【调用格式:objJMail.Send([username:password@]SMTPServerAddress[:Port])】
'jmail.smtpserver="smtp.tom.com"
sendok=JMail.Send("smtp.tom.com")
if sendok then
endstr= "已经成功发送了邮件!"
else
endstr= "发送邮件失败,可能是您填写了错误的邮件地址。<br/>" & _
"如果您确信没有写错邮件地址,则可能是发信程序出了<br/>" & _
"故障,请与管理员联系!"
end if
' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
%>
把对应的换成你自己的就成了
sdliubo
2004-04-05
打赏
举报
回复
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集,默认为"US-ASCII"
' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码,默认为True
' 发送者信息(可用变量方式赋值)
JMail.From = "lh@farun.com" ' 发送者地址
JMail.FromName = "华润" ' 发送者姓名
JMail.Subject = "华润在线定单" ' 邮件主题
' 身份验证
JMail.MailServerUserName = "lh@***.com" ' 身份验证的用户名
JMail.MailServerPassword = "xxxxx" ' 身份验证的密码
' 设置优先级,范围从1到5,越大的优先级越高,3为普通
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' 加入一个收件人【变量email:收件人地址】可以同一语句重复加入多个
JMail.AddRecipient("lh@farun.com")
' 加入附件【变量filename:附件文件的绝对地址,确保用户IUSR_????有访问的权限】
' 【参数设置是(True)否(False)为Inline方式】
'contentId = JMail.AddAttachment (filename, True)
' 邮件主体(HTML(注意信件内链接附件的方式))
JMail.HTMLBody = "<html><head><META content=zh-cn http-equiv=Content-Language><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><style type=text/css>A:link { FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION: underline}BODY {FONT-SIZE: 9pt; COLOR:#000000} --></style></head><body bgcolor=""#FFFFFF"" text="" leftmargin="" topmargin="" link="" #FFFFFF"" #666666"" 0"" 30"" #FF9900""><CENTER><TABLE cellPadding=0 width=555 border=0 bordercolor=red cellspacing=1 BGColor=#000000><TBODY><TR BGColor=#DDDDDD><TD colspan=2 height=30 align=""center""><b><font color=red><span style=""font-size:18px;letter-spacing:2px"">华尔润在线订单</span></font></b><TR BGColor=#ffffff><TD width=161 height=""27"" align=""right"">订购单位(全称): </TD><TD width=394 height=""11""> "<d&"</TD></TR><TR BGColor=#ffffff><TD width=161 height=""27"" align=""right"">详细地址: </TD><TD width=394 height=""18""> "&address&"</TD></TR><TR BGColor=#ffffff><TD width=161 height=""27"" align=""right"">邮政编码: </TD><TD width=394 height=""27""> "&post&"</TD></TR><TR BGColor=#ffffff><TD width=161 height=""27"" align=""right"">联 系 人: </TD><TD width=394 height=""27""> "&linkman&"</TD></TR><TR BGColor=#ffffff><TD width=161 height=""27"" align=""right"">联系电话: </TD><TD width=394 height=""27""> "&phone&"</TD></TR><TR BGColor=#ffffff><TD width=161 height=""27"" align=""right"">联系传真: </TD><TD width=394 height=""27""> "&fax&"</TD></TR><TR BGColor=#ffffff><TD width=161 height=""27"" align=""right"">电子邮件: </TD><TD width=394 height=""27""> "&mail&"</TD></TR><TR BGColor=#ffffff><TD vAlign=top width=542 colSpan=2 align=""center""><br><center><TABLE cellSpacing=1 cellPadding=0 width=""520"" bgColor=#000000 border=0 align=""center""><TR BGColor=#dddddd height=25><TD align=middle>品名</TD><TD align=middle>规格型号</TD><TD align=middle>订购数量</TD><TD align=middle>单位</TD></TR><TR bgColor=#f5f5f5 height=25><TD align=middle> "&pro1&"</TD><TD align=middle> "&types1&"</TD><TD align=middle> "&num1&"</TD><TD align=middle> "&unit1&"</TD></TR><TR bgColor=#f5f5f5 height=25><TD align=middle> "&pro2&"</TD><TD align=middle> "&types2&"</TD><TD align=middle> "&num2&"</TD><TD align=middle> "&unit2&"</TD></TR><TR bgColor=#f5f5f5 height=25><TD align=middle> "&pro3&"</TD><TD align=middle> "&types3&"</TD><TD align=middle> "&num3&"</TD><TD align=middle> "&unit3&"</TD></TR><TR bgColor=#f5f5f5 height=25><TD align=middle> "&pro4&"</TD><TD align=middle> "&types4&"</TD><TD align=middle> "&num4&"</TD><TD align=middle> "&unit4&"</TD></TR><TR bgColor=#f5f5f5 height=25><TD align=middle> "&pro5&"</TD><TD align=middle> "&types5&"</TD><TD align=middle> "&num5&"</TD><TD align=middle> "&unit5&"</TD></TR><TR bgColor=#f5f5f5 height=25><TD align=middle> "&pro6&"</TD><TD align=middle> "&types6&"</TD><TD align=middle> "&num6&"</TD><TD align=middle> "&unit6&"</TD></TR></TABLE><br></center></TD></TR><TR BGColor=#ffffff><TD width=161 height=""25"" align=""right"">质量要求: </TD><TD width=394 height=""17""> "&quality&"</TD></TR><TR BGColor=#ffffff><TD width=161 height=""83"" align=""right"">订购单位留言: </TD><TD width=394 height=""83""> "&others&"</TD></TR></TBODY></TABLE></CENTER></body></html>"
' 邮件主体(文本部分)
JMail.Body = "我们的邮件采用了HTML格式,请点击邮件下方""HTML内容""来查看详细内容。"
' 发送【调用格式:objJMail.Send([username:password@]SMTPServerAddress[:Port])】
sendok=JMail.Send("www.***.com")
if sendok then
endstr= "已经成功发送了邮件!"
else
endstr= "发送邮件失败,可能是您填写了错误的邮件地址。<br/>" & _
"如果您确信没有写错邮件地址,则可能是发信程序出了<br/>" & _
"故障,请与管理员联系!"
end if
' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
vb
jmail
发送邮件
此
外
,为了保证邮件发送的成功率,确保你的SMTP服务器支持
外
发邮件
,并且正确配置了认证信息。 通过以上步骤,你就可以在VB程序中利用
JMail
组件实现邮件发送的功能,这对于自动化任务、通知系统或者用户交互都是...
Jmail
4.4 免费版,内附ASP发送邮件实例
即使是很多其他组件也都能完成的
发邮件
功能,
JMail
的完成也可以称得上最出色的,除了常见的抄送暗送等多收件人功能
外
,它还支持添加嵌入式图片附件,并且可以从URL读取文件作为附件。
JMail
的免费版本拥有全部...
ASP.Net使用
jmail
和System.Net.Mail发送邮件
除了
Jmail
外
,还可以使用 .NET Framework 自带的 `System.Net.Mail` 命名空间来发送邮件,这种方法无需额
外
安装组件。 ##### 示例代码 以下是使用 `System.Net.Mail` 的示例代码: ```csharp public void ...
Jmail
4.4 免费版
Dimac 公司的邮件收发组件,这是一个非常成熟和强大的邮件组 件。它不但可以完成
发邮件
的工作,还可以POP收信,...
JMail
的免费版本拥有全部完成的
发邮件
功能,只在收邮件和加 密邮件等我们不常用到的方面进行了限制。
Jmail
4.5正式版
SMTP负责邮件的路由和传递,确保邮件能够正确地从发件人发送到收件人的邮件服务器。在
Jmail
4.5中,SMTP支持确保了用户可以便捷地通过编程接口发送邮件,包括正文、附件、以及格式化的HTML内容。
Jmail
4.5 的功能...
ASP
28,409
社区成员
356,971
社区内容
发帖
与我相关
我的任务
ASP
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
复制链接
扫一扫
分享
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章