怎么在VB中使用jmail?

答案:2 悬赏:0 手机版

解决时间 2021-03-20 09:38

提问者网友：無理詩人
2021-03-19 09:10

怎么在VB中使用jmail 啊? 我已经加载好了引用成功了 ` 具体这么使用啊`? 他的语法 ? 还有怎么用`? 请说详细点谢谢`~~

最佳答案

五星知识达人网友：上分大魔王
2021-03-19 10:17

<% '参数说明 '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的下载，请自己在网上搜索。

全部回答

1楼网友：醉吻情书
2021-03-19 11:55

有两个，看你需要吧 ' fromname 发件人姓名 ' smtp smtp服务器 ' username 邮箱用户名 ' password 邮箱密码 '返回值：jmailsend="n" 发送失败 jmailsend="y" 发送成功 private function jmailsend(subject as string,body as string,ishtml as string,htmlbody as string,mailto as string,from as string,fromname as string,smtp as string,username as string,password as string) as string 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="gb2312" 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

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！