标题标题  显示论坛会员列表名单  搜索论坛搜索  HelpHelp
  注册注册  登入登入
ASP教学区
 DoReMe : ASP教学区
主题 话题: 一个用jmail发信的过程,及使用方法 回复发表新主题
作者
贴子内容 << Prev Topic下一个主题 >>
gigigo
Groupie
Groupie


加入: 2004/5月/31
Online Status: Offline
回复: 42
Posted: 2004/5月/31 10:30上午 | IP记录 引用 gigigo

发信时,直接调用这个过程就行了。
<%
dim str,HtmlBody
HtmlBody="<html><body bgcolor='red' topmargin='40'><p align='center'>I Love 2Yup!</p></html>"
str=JmailSend( "2yup","ILoveYou",true,HtmlBody,"2yup@2yup.com","suercool@si na.com","suercool","smtp.sina.com.cn","suercool","Password")

if str="Y" then
response.write("发送成功")
else
response.write("发送失败!请重试!")
end if
'=================================================
'函数名:JmailSend
'作 用:用Jmail发送邮件
'参 数:Subject 邮件标题
' Body 邮件内容
' Body 邮件内容
' isHtml 是否发送Html格式邮件 (true 是)
' HtmlBody Html格式邮件内容
'    MailTo 收件人Email
' From 发件人Email
' FromName 发件人姓名
' Smtp smtp服务器
' Username 邮箱使用者名
' Password 邮箱口令
'返回值:JmailSend="N" 发送失败 JmailSend="Y" 发送成功
'~~~~~~~~~~suercool~~~~~

'=================================================

function JmailSend(Subject,Body,isHtml,HtmlBody,MailTo,From,FromName, Smtp,Username,Password)
dim JmailMsg
set JmailMsg=server.createobject("jmail.message")
JmailMsg.mailserverusername=Username
JmailMsg.mailserverpassword=Password

JmailMsg.addrecipient MailTo
JmailMsg.from=From
JmailMsg.fromname=FromName

JmailMsg.charset="big5"
JmailMsg.logging=true
JmailMsg.silent=true

JmailMsg.subject=Subject
JmailMsg.body=Body
if isHtml=true then JmailMsg.htmlbody=HtmlBody

if not JmailMsg.send(Smtp) then
JmailSend="N"
else
JmailSend="Y"
end if
JmailMsg.close
set JmailMsg=nothing
end function
%>

Edited by admin 在 2004/6月/02 3:26下午
Back to Top 查看 gigigo's 资料 搜索其它贴子 gigigo 访问 gigigo's
 
juizu
knowledge
knowledge


加入: 2005/11月/23
Online Status: Offline
回复: 1
Posted: 2005/11月/23 12:57上午 | IP记录 引用 juizu

这是信件群发吗
Back to Top 查看 juizu's 资料 搜索其它贴子 juizu 访问 juizu's
 

如果你想回复的话你必须首先 login
如果你还没有注册的话你必须首先 注册

  回复发表新主题
显示可打印的页面 显示可打印的页面

论坛跳转
不能 张贴新论题在这个讨论版
不能 回应论题在这个讨论版
不能 删除你的发言在这个讨论版
不能 编辑你的发言在这个讨论版
不能 新增投票标题在这个讨论版
不能 在这个讨论版投票

Edit by doreme Forums version 2004
Welcome ©2001-2004 doreme Guide

This page was generated in 0.1553 seconds.

 
保养品
保养品, Skin Care
www.elady.tw
美材批发
美材, Cosmetic
www.elady.tw/beauty_org
保养品批发
名牌保养品、保养品批发
gb.perfume.com.tw/skincare
饰品批发
饰品、饰品批发
gb.perfume.com.tw/ornament