一个关于Jmail发送web邮件的问题！100分！进来就有！谢谢

kongse 2003-11-26 10:45:34
我现在已经可以用Jmail来发送邮件了，如下是主要的代码片断：
。。。。。。
dim JMail
set JMail=createobject("JMail.Message")
Jmail.Silent = true
JMail.Charset = "gb2312"
JMail.ContentType = "text/html"
JMail.Logging = true

smtpserver="smtp.163.com"
smtpuser="trymail"
smtppwd="trymail"

Jmail.MailServerUserName = smtpuser
Jmail.MailServerPassWord = smtppwd

mailbody="<html><body>到达日期<FONT color=red>准时到达</FONT></br>"
mailbody=mailbody&"离开日期</br>"
mailbody=mailbody&"预定时间</br></body></html>"

JMail.Body=mailbody

JMail.From = mailfrom
JMail.FromName = rs("name")'发送者姓名
JMail.Subject = "应聘—"+rs1("invitittle")'发信标题
JMail.Priority = 3
JMail.AddRecipient(mailto)

response.Write(mailfrom)
response.Write("||")
response.Write(mailto)

isgo = Jmail.Send(smtpserver)
if isgo then
RESPONSE.WRITE("提交成功！")
mailmsg="成功发送个人申请！"
' RESPONSE.WRITE(JMail.log)
else
RESPONSE.WRITE(JMail.log)
mailmsg="发送失败！"
end if

JMail.Close()
Set JMail = Nothing
。。。。。。
。。。。。。
这个代码已经可以发送简单的web邮件，但是我现在想发送一个比较复杂的html叶面，内容大概如下：

<HTML>
<HEAD>
<title>明星简历</title>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<STYLE>TABLE {
FONT-FAMILY: '宋体'; FONT-SIZE: 12px; LINE-HEIGHT: 150%
}
TD {
FONT-FAMILY: '宋体'; FONT-SIZE: 12px; LINE-HEIGHT: 150%
}
P {
FONT-FAMILY: '宋体'; FONT-SIZE: 12px; LINE-HEIGHT: 150%
}
.ResTitleFot {
FONT-FAMILY: '宋体'; FONT-SIZE: 14px
}
.ResTitleTbBd {
BORDER-BOTTOM: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-RIGHT:

#cccccc 1px solid; BORDER-TOP: #cccccc 1px solid
}
.ResTitleTbBd1 {
BORDER-BOTTOM: #ffffff 1px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-RIGHT:

#ffffff 1px solid; BORDER-TOP: #ffffff 1px solid
}
.ResTbLfPd {
PADDING-LEFT: 10px
}
.SubTitleTbBd {
BORDER-TOP: #cccccc 1px solid; PADDING-LEFT: 10px
}
</STYLE>

<META content="MSHTML 5.00.3502.5390" name=GENERATOR></HEAD>
<BODY>
<table width="600" border="0" align="center" cellpadding="2" cellspacing="1"

bgcolor="F47421">
<tr>
<td background="email/DGMail13/images/mmto.gif"><img src="../images/mine/jiantou.gif"

width="11" height="11">
<strong><font color="#FFFFFF">myxzc的个人简介</font></strong></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0"

bgcolor="F47421">
<tr>
<td width="462" bgcolor="#FFFFFF"> <table width=428 border=0 align="center"

cellpadding=0 cellspacing=0>
<tbody>
<tr height=20>
<td width="77">姓　　名： </td>
<td width="155">myxzc</td>
<td width="69">性　　别： </td>
<td width="127">男</td>
</tr>
<TR>
<TD background=../images/mine/point_h.gif class=p1 colSpan=4
height=1><IMG height=1 src="../images/mine/point_h.gif"
width=4></TD>
</TR>
<tr height=20>
<td>出生日期：</td>
<td>1980年05月01日</td>
<td>会员性质：</td>
<td></td>
。。。
应该如何处理呢？谢谢
...全文
57 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
xzq686 2003-11-26
  • 打赏
  • 举报
 回复
上面的sBody就是你加html的地方。是一个简单的留言页面发送到指定邮箱！你参考一下
xzq686 2003-11-26
  • 打赏
  • 举报
 回复
转自：marry(林雨婷)
<%
dim sBody
sBody="姓名："&Request("name")&chr(10)
sBody=sBody&"性别："&Request("sex")&chr(10)
sBody=sBody&"年龄："&Request("age")&chr(10)
sBody=sBody&"地址："&Request("place")&chr(10)
sBody=sBody&"联系方式："&Request("access")&chr(10)
sBody=sBody&"感兴趣的课程："&Request("like")&chr(10)
sBody=sBody&"意见："&Request("texti")&chr(10)
sBody=sBody&"EMAIL："&Request("Email")&chr(10)
Dim JMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Sender=Request("email")
JMail.Subject="来自您网站“网上报名”的消息"
JMail.Body=sBody
JMail.AddRecipient "****@hotmail.com"
JMail.Priority=1
JMail.Execute
Set JMail=nothing
Response.Write("您的个人资料已经提交<BR>……")
%>

wuhanman2001 2003-11-26
  • 打赏
  • 举报
 回复
htmlbody="<HTML><HEAD><title>明星简历</title>"
htmlbody=htmlbody&"<META content=""text/html; charset=gb2312"" http-equiv=Content-Type>"
htmlbody=htmlbody&..... '把你的html语句用字符串htmlbody来表示，注意原来的html源代码中有双引号的，原来是一个引号，用变成两个引号，align="center" 要变为　align=""center""

然后指定如下语句：
Jmail.htmlbody=htmlbody
kongse 2003-11-26
  • 打赏
  • 举报
 回复
或者说，像订阅了csdn邮件（web叶面形式），那种邮件如何做的？
kongse 2003-11-26
  • 打赏
  • 举报
 回复
简单的说，就是一个大的web叶面的邮件，应该如何写JMail.Body=？？？就是这部分应该如何写？谢谢。太多了直接用""是不行的
RichWcz 2003-11-26
  • 打赏
  • 举报
 回复
我不太明白你的意思，但是我这里有一个程序，你可以参考一下的：

index.asp表单填写页面

<table width="411" border="0" cellpadding="2" cellspacing="0">
<form name="form1" method="post" action="index_act.asp">
<tr>
<td width="133" align="right"> 联系人：</td>
<td width="315"> <input name="sentname" type="text" maxlength="28" size="28"> </td>
</tr>
<tr>
<td align="right"> 企业名称：</td>
<td> <input name="company" type="text" maxlength="28" size="28">
</td>
</tr>
<tr align="center">
<td colspan="2" valign="top"> <input name="submit" type="submit"></td>
</tr>
</form>
</table>

表单处理页面index_act.asp(包含mail.asp页面，你可以去下载jmail组件）
<!--#include file="mail.asp"-->
<%
sentname=request.Form("sentname")
company=request.Form("company")

body="联系人: "&sentname&"<br>"
body=body&"企业名称: "&company&"<br>"

per="主题"
%>
<%call sendmails("yourname@163.net",per,body)%>


我想这样就可以了！！


将一个网页嵌入到邮件里，也就是将网页当个正文显示在邮件里，网上这方面的很少。其它的就不多说了。网上好多的。
我现在要写的是怎样将一个网页嵌入到邮件里，也就是将网页当个正文显示在邮件里这是我搞了好久才搞定的，网上这方面的很少。其它的就不多说了。网上好多的。 Jmail.Message Jmail=new jmail.Mes
用VB如何写可以发送mail？
先下载个JMAIL安装包，然后就可以用VB调用了。 大体代码： Option Explicit Dim jmail1 Sub SendMail(Optional ByVal sSubject As String, Optional ByVal sBody As String, Optional ByVal sFil...
谈用Delphi设计Email程序
传统的Email发送是基于smtp协议.也就是说,只要你的程序遵守RFC821规范的应答方式即可.实际应用中还有例如Web中转,... 我们首先将常用的网络操作单元集合为一个单元.注意:我们下面讲述Web发送的时候还会用到这个单元.u
Windows 2003服务器安全配置终极技巧
网上流传的很多关于windows server 2003系统的安全配置，但是仔细分析下发现很多都不全面，并且很多仍然配置的不够合理，并且有很大的安全隐患，今天我决定仔细做下极端BT的2003服务器的安全配置，让更多的网管朋友...
快速学习PHP基础认识
PHP的调试方法我这里就不说了，外面很多文章都有介绍，也有很多不同的组合。我这里暂时是以 Apache web server 和 MY SQL 作为WEB服务器和数据库，在php-4.3.3下的环境做的程序。当然要简单的构建和访问查看数据库 ...
ASP

28,407

社区成员

356,948

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章