JMAIL組件沒有安裝?;蜃?。。
成都創(chuàng)新互聯(lián)是專業(yè)的佳縣網站建設公司,佳縣接單;提供成都網站設計、成都網站建設,網頁設計,網站設計,建網站,PHP網站建設等專業(yè)做網站服務;采用PHP框架,可快速的進行佳縣網站開發(fā)網頁制作和功能擴展;專業(yè)做搜索引擎喜愛的網站,專業(yè)的做網站團隊,希望更多企業(yè)前來合作!
最好下載4.4pro破解版安裝。
或者regsvr32 注冊下 dll文件
% '參數說明 'Subject : 郵件標題 'MailAddress : 發(fā)件服務器的地址,如smtp.163.com 'Email : 收件人郵件地址 'Sender : 發(fā)件人姓名 'Content : 郵件內容 'Fromer : 發(fā)件人的郵件地址 Sub SendAction(subject, mailaddress, email, sender, content, fromer) Set jmail = Server.CreateObject("JMAIL.SMTPMail") '創(chuàng)建一個JMAIL對象 jmail.silent = true 'JMAIL不會拋出例外錯誤,返回的值為FALSE跟TRUE jmail.logging = true '啟用使用日志 jmail.Charset = "GB2312" '郵件文字的代碼為簡體中文 jmail.ContentType = "text/html" '郵件的格式為HTML的 jmail.ServerAddress = mailaddress '發(fā)送郵件的服務器 jmail.AddRecipient Email '郵件的收件人 jmail.SenderName = sender '郵件發(fā)送者的姓名 jmail.Sender = fromer '郵件發(fā)送者的郵件地址 jmail.Priority = 1 '郵件的緊急程序,1 為最快,5 為最慢, 3 為默認值 jmail.Subject = subject '郵件的標題 jmail.Body = content '郵件的內容 '由于沒有用到密抄跟抄送,這里屏蔽掉這兩句,如果您有需要的話,可以在這里恢復 'jmail.AddRecipientBCC Email '密件收件人的地址 'jmail.AddRecipientCC Email '郵件抄送者的地址 jmail.Execute() '執(zhí)行郵件發(fā)送 jmail.Close '關閉郵件對象 End Sub '調用此Sub的例子 Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer strSubject = "這是一封用JMAIL發(fā)送的測試郵件" strContent = "JMail組件發(fā)送測試成功!" strEmail = "runbing@eyou.com" strFromer = "runbing@eyou.com" strMailAddress = "mail.ubbcn.com" Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer) % 給你一個發(fā)郵件的例子。 html head /head body hello % set msg = Server.CreateOBject("JMail.Message") msg.From = "×××@163.com" msg.FromName = "Decheng" msg.MailServerUserName="×××"(填電子郵件的用戶名) msg.MailServerPassWord="×××"(填電子郵件的密碼) msg.AddRecipient "×××"(填你想發(fā)送的電子郵箱) 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.WEB開發(fā),在ASP.Net中引用System.Web.Mail類
2.使用JMail組件
第一種方法
MailMessage mm = new MailMessage();
mm.From = myReader["FromEmail"].ToString();
mm.To = myReader["ToEmail"].ToString();
mm.Subject = myReader["Subject"].ToString(); ;
mm.Body = strBody;
mm.BodyFormat = MailFormat.Html;
mm.Fields.Add("", "1"); //basic authentication
mm.Fields.Add("", myReader["UserName"].ToString()); //set your username here
mm.Fields.Add("", myReader["UserPassword"].ToString()); //set your password here
SmtpMail.SmtpServer = myReader["Smtp"].ToString();
SmtpMail.Send(mm);
第二種方法自己去下載Jmail組件,看資料
抄個自己的回答:
建議你去看阿江翻譯的JMAIL開發(fā)文檔:
把這幾個對象看一下:
POP3。MESSAGES,MESSAGE,ATTS,ATT
過程:
1。先用POP3對象連接郵件服務(當然你郵箱要開POP設置)并接受到MESSAGES
2。取到MESSAGES后,輪循到MESSAGE對象后。
3。對MESSAGE解析,得到郵件標題,內容,收發(fā)人,
4。如果有附件還要對ATTS對象輪循并解析(可以把附件存在本地或寫鏈接)
MESSAGES是信件集
MESSAGE是單封信件
ATTS是附件集
ATT是單個附件
————————————————————————
發(fā)信分割線
————————————————————————
拿個別人的回答改了一下,俺VB幾乎沒用過,只會VB。NET
先注冊DLL
然后VB代碼如下:
Private Sub Command1_Click()
SendMail "標題", "正文"
End Sub
Sub SendMail(Optional ByVal sSubject As String, _
Optional ByVal sBody As String)
Dim jmail
Set jmail = CreateObject("jmail.Message")
jmail.Charset = "gb2312"
jmail.Silent = False
jmail.Priority = 1 '郵件狀態(tài),1-5 1為最高
jmail.MailServerUserName = "XXX" 'Email帳號
jmail.MailServerPassWord = "XXX" 'Email密碼
jmail.FromName = "XXX" '發(fā)信人姓名
jmail.From = "XXX@XXX.XXXX" '發(fā)郵件地址地址
jmail.Subject = sSubject '主題
jmail.AddRecipient "XXX@XXX.XXXX" '收信人地址
jmail.body = sBody '信件正文
jmail.Send ("smtp.163.com") 'SMTP服務器,如smtp.sohu.com
Set jmail = Nothing
End Sub
全了。FromName 和FROM 建議都用郵件地址,不然有的郵箱不收的
VB里的語法不同于ASP網頁代碼,你這寫法錯了。VB中不是用server來創(chuàng)建對象的。參考:
Set
j=
CreateObject("jmail.Message")
前提是Jmail組件的DLL文件已經安裝到系統(tǒng)中了。