Jmail4.2组件怎么用?怎么在VB中使用jmail
本文目录
- Jmail4.2组件怎么用
- 怎么在VB中使用jmail
- vb问题:jmail的使用!!
- jmail是邮箱吗是什么邮箱啊 怎么没听说过!!!~~
- jmail邮件组件在Win7上用不了吗,该如何解决
- 什么是jmail,怎么用
- jmail发送不成功邮件
Jmail4.2组件怎么用
前一段时间有发过一个简单的JMAIL邮件发邮件的代码,今天就把这个代码做一个具体的注解,并增加了另外两个格式的代码,并举几个简单的例子: 首先是jmail.smtpmail的核心代码: 《% Set jmail = Server.CreateObject("JMAIL.SMTPMail") ’创建一个JMAIL对象 jmail.silent = true ’JMAIL不会抛出例外错误,返回的值为FALSE跟TRUE jmail.logging = true ’启用使用日志 jmail.Charset = "GB2312" ’邮件文字的代码为简体中文 jmail.ContentType = "text/html" ’邮件的格式为HTML的 jmail.ServerAddress = "Server Address" ’发送邮件的服务器 jmail.AddRecipient Email ’邮件的收件人 jmail.SenderName = "SenderName" ’邮件发送者的姓名 jmail.Sender = "Email Address" ’邮件发送者的邮件地址 jmail.Priority = 1 ’邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值 jmail.Subject = "Mail Subject" ’邮件的标题 jmail.Body = "Mail Body" ’邮件的内容 jmail.AddRecipientBCC Email ’密件收件人的地址 jmail.AddRecipientCC Email ’邮件抄送者的地址 jmail.Execute() ’执行邮件发送 jmail.Close ’关闭邮件对象 %》 w3 Jmail4.3组件重新设计了其内部结构——使用Message对象代替原来的单一对象Jmail.smtpmail发送邮件,有些方法需要身份验证的(如163、yahoo等),可以用下面的方法解决: 《% Set jmail = Server.CreateObject("JMAIL.Message") ’建立发送邮件的对象 jmail.silent = true ’屏蔽例外错误,返回FALSE跟TRUE两值j mail.logging = true ’启用邮件日志 jmail.Charset = "GB2312" ’邮件的文字编码为国标 jmail.ContentType = "text/html" ’邮件的格式为HTML格式 jmail.AddRecipient Email ’邮件收件人的地址 jmail.From = "Email From for Sender" ’发件人的E-MAIL地址 jmail.MailServerUserName = "UserName of Email" ’登录邮件服务器所需的用户名 jmail.MailServerPassword = "Password of Email" ’登录邮件服务器所需的密码 jmail.Subject = "Mail Subject" ’邮件的标题 jmail.Body = "Mail Body" ’邮件的内容 jmail.Prority = 1 ’邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值 jmail.Send("Server Address") ’执行邮件发送(通过邮件服务器地址) jmail.Close() ’关闭对象 %》 再讲一下微软自带的CDONTS组件的发信的方法: 《% Set cdomail = Server.CreateObject("CDONTS.NewMail") ’建立邮件对象 cdomail.Subject = "Mail Subject" ’邮件标题 cdomail.From = "Sender’s Mail" ’发件人的地址 cdomail.To = "Email will from" ’收件人的地址 cdomail.Body = "Mail Body" ’邮件的内容 cdomail.Send ’执行发送 %》 这种方法发送邮件是最简单的,同时也带来一定的问题,就是很少有服务器会开这项服务! 我们写程序,一般情况下都是说要代码模块化,这样方便维护,同时也方便移植。因此,我在这里将这个发邮件的写成一个子程,在调用的时候可以直接调用(当然,如果你高兴写成函数的话也是可以的,这个主要是看个人兴趣): 《% ’参数说明 ’Subject : 邮件标题 ’MailAddress : 发件服务器的地址,如smtp.163.com ’Email : 收件人邮件地址 ’Sender : 发件人姓名 ’Content : 邮件内容 ’Fromer : 发件人的邮件地址 Sub SendAction(subject, mailaddress, email, sender, content, fromer) Set jmail = Server.CreateObject("JMAIL.SMTPMail") ’创建一个JMAIL对象 jmail.silent = true ’JMAIL不会抛出例外错误,返回的值为FALSE跟TRUE jmail.logging = true ’启用使用日志 jmail.Charset = "GB2312" ’邮件文字的代码为简体中文 jmail.ContentType = "text/html" ’邮件的格式为HTML的 jmail.ServerAddress = mailaddress ’发送邮件的服务器 jmail.AddRecipient Email ’邮件的收件人 jmail.SenderName = sender ’邮件发送者的姓名 jmail.Sender = fromer ’邮件发送者的邮件地址 jmail.Priority = 1 ’邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值 jmail.Subject = subject ’邮件的标题 jmail.Body = content ’邮件的内容 ’由于没有用到密抄跟抄送,这里屏蔽掉这两句,如果您有需要的话,可以在这里恢复 ’jmail.AddRecipientBCC Email ’密件收件人的地址 ’jmail.AddRecipientCC Email ’邮件抄送者的地址 jmail.Execute() ’执行邮件发送 jmail.Close ’关闭邮件对象 End Sub ’调用此Sub的例子 Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer strSubject = "这是一封用JMAIL发送的测试邮件" strContent = "JMail组件发送测试成功!" strEmail = "runbing@eyou.com" strFromer = "runbing@eyou.com" strMailAddress = "mail.ubbcn.com"
怎么在VB中使用jmail
《% ’参数说明 ’Subject : 邮件标题 ’MailAddress : 发件服务器的地址,如smtp.163.com ’Email : 收件人邮件地址 ’Sender : 发件人姓名 ’Content : 邮件内容 ’Fromer : 发件人的邮件地址 Sub SendAction(subject, mailaddress, email, sender, content, fromer) Set jmail = Server.CreateObject("JMAIL.SMTPMail") ’创建一个JMAIL对象 jmail.silent = true ’JMAIL不会抛出例外错误,返回的值为FALSE跟TRUE jmail.logging = true ’启用使用日志 jmail.Charset = "GB2312" ’邮件文字的代码为简体中文 jmail.ContentType = "text/html" ’邮件的格式为HTML的 jmail.ServerAddress = mailaddress ’发送邮件的服务器 jmail.AddRecipient Email ’邮件的收件人 jmail.SenderName = sender ’邮件发送者的姓名 jmail.Sender = fromer ’邮件发送者的邮件地址 jmail.Priority = 1 ’邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值 jmail.Subject = subject ’邮件的标题 jmail.Body = content ’邮件的内容 ’由于没有用到密抄跟抄送,这里屏蔽掉这两句,如果您有需要的话,可以在这里恢复 ’jmail.AddRecipientBCC Email ’密件收件人的地址 ’jmail.AddRecipientCC Email ’邮件抄送者的地址 jmail.Execute() ’执行邮件发送 jmail.Close ’关闭邮件对象 End Sub ’调用此Sub的例子 Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer strSubject = "这是一封用JMAIL发送的测试邮件" strContent = "JMail组件发送测试成功!" strEmail = "runbing@eyou.com" strFromer = "runbing@eyou.com" strMailAddress = "mail.ubbcn.com" Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer) %》 给你一个发邮件的例子。 《html》 《head》 《/head》 《body》 hello 《% set msg = Server.CreateOBject("JMail.Message") msg.From = "×××@163.com" msg.FromName = "Decheng" msg.MailServerUserName="×××"(填电子邮件的用户名) msg.MailServerPassWord="×××"(填电子邮件的密码) msg.AddRecipient "×××"(填你想发送的电子邮箱) msg.Subject = "How are you?" msg.Body = "This w3 JMail stuff rocks!" & vbCrLf msg.appendText "Here’s some text." msg.appendText "And here’ s some more" msg.Send( "smtp.163.com" )(如果用的不是163,请换成其它的SMTP服务器) response.write "ok" %》 《/body》 《/html》 如果你想知道如何收邮件,可以查看Jmail的官方文档,安装了Jmail4.5后,默认在C:\Program Files\Dimac\w3JMail中可以找到。关于Jmail4.5的下载,请自己在网上搜索。
vb问题:jmail的使用!!
用Jmail 源码实例 先把Jmail下载安装了 在Jmail的安装目录下找到Jmail.dll把路径复制出来,例如我的是安装在c:\Jmail.dll(把他复制到c盘也行) 然后在开始菜单运行命令 注册Jmail:Regsvr32 c:\Jmail.dll 注册后vb 的 工程 里引用 Jmail(自己应该找得到) 然后写下代码,记得把你的正确邮箱账号密码也替换了 发邮件代码: Option Explicit Sub SendMail(Optional ByVal sSubject As String, _ Optional ByVal sBody As String, _ Optional ByVal sFileName As String) Dim jmail Set jmail = CreateObject("jmail.Message") jmail.Charset = "gb2312" jmail.Silent = False jmail.Priority = 1 ’邮件状态,1-5 1为最高 jmail.MailServerUserName = "fitgore" ’Email帐号 jmail.MailServerPassWord = "123456" ’Email密码 jmail.FromName = "邮件" ’发信人姓名 jmail.From = "fitgore@163.com" ’发邮件地址地址 jmail.Subject = "qq来信了" ’主题 jmail.AddRecipient "fitgore@163.com" ’收信人地址 jmail.Body = sBody ’信件正文 jmail.Send ("smtp.qq.com") Set jmail = Nothing End Sub Private Sub Command1_Click() SendMail text1.text, text2.text, "" MsgBox "OK" End Subjmail不支持qq邮箱,你可以换成163的,163的测试可以,你重新复制试试
jmail是邮箱吗是什么邮箱啊 怎么没听说过!!!~~
你说的是Gmail,而不是jmail。这个你需要清楚。Gmail和其他的邮件系统一样,是google的邮箱。比如网易的是163邮箱,新浪的是sina邮箱。腾讯的是qq邮箱,你就把它理解为何qq邮箱一样用的邮箱就可以了。
jmail邮件组件在Win7上用不了吗,该如何解决
1.首先下载jmail控件,然后安装(其实不安装也行,只要你能找到jmail.dll文件,然后注册该dll文件。这里不支持上传附件,否则我就把我下载的传上来了)。附上手工注册它的批处理:echo offcopy jmail.dll C:/windows/system32regsvr32 jmail.dllecho 执行完毕!pause2.使用tlbimp c:/Program Files/Dimac/w3JMail4/jmail.dll /out:myJmail.dll /namespace:myJmail生成myJmail.dll后,copy到web的根目录的bin目录。在ASP.Net页面中,用using myjmail;方法引用,例程如下:protected void Page_Load(object sender, EventArgs e){myjmail.Message jmail = new myjmail.Message();DateTime t=DateTime.Now;string subject = "jmail test from web";string body= "《center》jmail test from web《br》test《/center》"; //tbContent.Text.Replace("/n","《br》");string fromemail="xxxx@e165.com ";string toEmail= "xxxx@e165.com ";//silent属性:如果设置为true,jmail不会抛出例外错误. jmail. send( () 会根据操作结果返回true或falsejmail.Silent = true;//jmail创建的日志,前提loging属性设置为true//jmail.Logging=true;//字符集,缺省为"us-ascii"jmail.Charset="gb2312";//信件的contentype. 缺省是"text/plain") : 字符串如果你以html格式发送邮件, 改为"text/html"即可。jmail.ContentType="text/html";//添加收件人jmail.AddRecipient(toEmail,"","");jmail.From = fromemail;//发件人邮件用户名jmail.MailServerUserName="xxxx" ;//发件人邮件密码jmail.MailServerPassWord="xxxx" ;//设置邮件标题jmail.Subject=subject;// 邮件添加附件,(多附件的话,可以再加一条jmail.addattachment( "c://test.jpg",true,null);)就可以搞定了。[注]:加了附件,讲把上面的 jmail.contenttype="text/html";删掉。否则会在邮件里出现乱码。//jmail.addattachment( "c://test.jpg",true,null);//邮件内容jmail.Body=body;//jmail发送的方法if(jmail.Send("smtp.e165.com",false))lbResult.Text = "已成功发送邮件。";elselbResult.Text = "发送邮件失败!!!";jmail.Close() ;}
什么是jmail,怎么用
jmail jmail是一种服务器端的邮件发送组件,和个人用的客户端邮件软件不一样的。jmail是在服务器上给程序用来发邮件用的,除了软件编程人员,其他人一般平常用不上。 jmail是一个第三方邮件操作组件,通常位于web服务器端,和站点程序紧密配合来接收及提交邮件到邮件服务器的控件,让网站拥有发送邮件既接收邮件的功能 与此相同的还有CDONTS.NewMail,Persits.MailSender,IISmail.Iismail等等,他们唯一区别就是jmail只需要注册一个dll组件即可被调用,而其他则需要在iis上设置发布smtp服务器 (1)Body(信件正文) : 字符串 如:JMail.Body = "这里可以是用户填写的表单内容,可以取自Form。" (2)Charset(字符集,缺省为"US-ASCII") : 字符串 如:JMail.Charset = "US-ASCII" (3)ContentTransferEncoding : 字符串 指定内容传送时的编码方式,缺省是"Quoted-Printable" 如:JMail.ContentTransferEncoding = "base64" (4)ContentType(信件的contentype. 缺省是"text/plain") : 字符串 如果你以HTML格式发送邮件, 改为"text/html"即可。 如:JMail.ContentType = "text/html" (5)Encoding : 字符串 设置附件编码方式(缺省是"base64)。 可以选择使用的是"base64", "uuencode" or "quoted-printable" 如:JMail.Encoding = "base64" (6)Log(Jmail创建的日志,前提loging属性设置为true,见下面) : 字符串 如:使用Response.Write( JMail.Log )语句列出日志信息。 (7)Logging(是否使用日志) : 布尔型 如:JMail.Logging = true (8)Recipients : 字符串 只读属性,返回所有收件人 如:Response.Write( "" + JMail.Recipients + "" ); (9)ReplyTo(指定别的回信地址) : 字符串 如:JMail.ReplyTo = "qiao198@hotmail.com" (10)Sender( 发件人的邮件地址) : 字符串 如:JMail.Sender = "qiao198@21cn.com" (11)SenderName(发件人的姓名) : 字符串 如:JMail.SenderName = "一克" (12)ServerAddress(邮件服务器的地址) : 字符串 你可以指定多个服务器,用分号点开。可以指定端口号。 如果serverAddress保持空白,JMail会尝试远程邮件服务器,然后直接发送到服务器上去。 如:JMail.ServerAddress = "mail.21cn.net.cn" (13)Subject(设定邮件的标题,可以取自Form。):字符串 如:JMail.Subject = "客户反馈表单" (14)添加文件附件到邮件 如:JMail.AddAttachment( "c:anyfile.zip" ) (15)AddCustomAttachment( FileName, Data ) 添加自定义附件. 如:JMail.AddCustomAttachment( "anyfile.txt", "Contents of file" ); (16)AddHeader( Header, Value ) 添加用户定义的信件标头。 如:JMail.AddHeader( "Originating-IP","192.158.1.10" ); (17)AddRecipient(收件人):字符串 如:JMail.AddRecipient( "qiao198@hotmail.com" ); (18)AddRecipientBCC( Email ),密件收件人: 如:JMail.AddRecipientBCC( "qiao198@hotmail.com" ); (19)AddRecipientCC( Email ) ,抄送收件人: 如:JMail.AddRecipientCC( "" ) (20)AddURLAttachment( URL, 文档名) 下载并添加一个来自url的附件. 第二个参数"文档名", 用来指定信件收到后的文件名。 如:JMail.AddURLAttachment( " 这是在服务器上安装的邮件组件 不是病毒
jmail发送不成功邮件
你可以将JMail的发送日志打出来看看,若没成功的话会有相应的错误原因。具体写法:在你代码JMail.close()前加上一句 Response.Write( JMail.Log )根据你的情况来看,应该是你使用的发送邮箱服务器(yahoo)的问题,你的smtp服务被关闭了,象早期注册的126,163的用户还是可以使用的,好像从2006年起注册的新用户也被关闭了smtp服务,建议你去注册一个foxmail的邮箱,用该邮箱发送,他们支持!good lucky
更多文章:
三星t560拆机(三星平板t560换液晶屏需多少钱求帮忙回答)
2023年5月29日 17:15
魅族note9怎么恢复出厂设置(魅族魅蓝Note 9怎么恢复出厂设置)
2024年7月12日 18:58
三星w21和华为matex2哪个好(1万元以上的手机买什么好别急,我来为您盘点下)
2024年10月6日 22:05
htc 802d(新买的HTC ONE 802D 突然不能用关机键关机了,锁屏和解锁功能没问题,怎么回事)
2024年5月27日 11:24
oppok7手机价格和参数(oppok7优点和缺点介绍-oppok7评测)
2024年2月4日 06:00
iphone5使用教程(iphone5 airdrop在哪怎么使用)
2024年5月16日 10:49
iphone4s降级到ios6(iPhone4s能从iOS7.1.1降到iOS6吗)
2023年5月26日 20:45
nova5i和nova5ipro手机壳通用吗(nova5和nova5pro手机壳通用吗)
2024年6月4日 07:28
索爱蓝牙耳机是哪里的品牌(索爱蓝牙耳机sr12和sr10的区别)
2023年7月11日 12:40
galaxy mega2怎么截屏(ga1axymega2 截屏)
2024年6月9日 06:53
苹果seplus图片(iPhone SE Plus 真来了,全面屏)
2024年8月24日 04:45
苹果x手机屏幕失灵点不了怎么办(iphonex屏幕失灵了怎么办)
2024年5月24日 09:59