建站
咨詢
售后
建站咨詢
新聞中心
在實(shí)際開發(fā)中，我們經(jīng)常需要將郵件保存到數(shù)據(jù)庫中以便后續(xù)處理，對(duì)于使用VB語言開發(fā)的郵件應(yīng)用程序，Jml是一個(gè)常用的郵件庫，本文將介紹。
成都創(chuàng)新互聯(lián)公司服務(wù)項(xiàng)目包括大洼網(wǎng)站建設(shè)、大洼網(wǎng)站制作、大洼網(wǎng)頁制作以及大洼網(wǎng)絡(luò)營(yíng)銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢(shì)、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，大洼網(wǎng)站推廣取得了明顯的社會(huì)效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到大洼省份的部分城市，未來相信會(huì)繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！
一、Jml簡(jiǎn)介
Jml是一款功能強(qiáng)大、穩(wěn)定易用的郵件組件，可以完成發(fā)送、接收郵件、支持TP/POP3/IMAP4協(xié)議等。它不僅支持VB語言，還支持ASP、C#等多種編程語言。使用Jml可以輕松實(shí)現(xiàn)郵件的發(fā)送和接收，并且還支持HTML郵件、附件、收件人群發(fā)等多種功能。
二、數(shù)據(jù)庫設(shè)計(jì)
在將郵件存儲(chǔ)到數(shù)據(jù)庫中之前，首先需要設(shè)計(jì)郵件數(shù)據(jù)庫的結(jié)構(gòu)。根據(jù)實(shí)際需求，我們可以設(shè)計(jì)如下郵件表結(jié)構(gòu)：
郵件表（Ml）
| 字段名稱 | 類型 | 備注 |
| ———— | ————- | —————– |
| Id | int | 郵件ID，主鍵自增 |
| FromAddress | varchar(100) | 發(fā)件人 |
| ToAddress | varchar(100) | 收件人 |
| CcAddress | varchar(100) | 抄送人 |
| BccAddress | varchar(100) | 密送人 |
| Subject | varchar(500) | 郵件主題 |
| Body | text | 郵件正文 |
| Attachment | varchar(500) | 附件 |
| CreateTime | datetime | 創(chuàng)建時(shí)間 |
| UpdateTime | datetime | 修改時(shí)間 |
三、Jml郵件解析
在將郵件存儲(chǔ)到數(shù)據(jù)庫中之前，我們需要將Jml郵件解析成郵件表中的各個(gè)字段。下面是一個(gè)將Jml郵件解析成郵件表的示例代碼：
“`vb
Dim MlObj As New Jml.Message
Dim MlBody As String
Dim MlSubject As String
Dim MlFrom As String
Dim MlTo As String
Dim MlCC As String
Dim MlBCC As String
Dim MlAttachment As String
Dim strConn As String
Dim conn As ADODB.Connection
Dim strSQL As String
‘讀取郵件主題、發(fā)件人、收件人、抄送人、密送人信息
MlSubject = MlObj.Subject
MlFrom = MlObj.From.Address
MlTo = MlObj.To.AddressList
MlCC = MlObj.Cc.AddressList
MlBCC = MlObj.Bcc.AddressList
‘處理郵件正文
MlObj.HTMLBodyPart.Charset = “utf-8”
MlBody = MlObj.HTMLBody
‘處理附件
If MlObj.AttachmentCount > 0 Then
Dim i As Integer
For i = 1 To MlObj.AttachmentCount
Dim objFile As Jml.Attachment
Set objFile = MlObj.Attachment(i)
MlAttachment = MlAttachment + objFile.Name + “,”
Next
End If
‘打開數(shù)據(jù)庫連接
Set conn = New ADODB.Connection
strConn = “Provider=SQLOLEDB;Data Source=.;Initial Catalog=xxx;User ID=sa;Password=123456”
conn.Open strConn
‘插入郵件到數(shù)據(jù)庫中
strSQL = “INSERT INTO Ml(FromAddress, ToAddress, CcAddress, BccAddress, Subject, Body, Attachment, CreateTime, UpdateTime) “
strSQL = strSQL & “VALUES(‘” & MlFrom & “‘, ‘” & MlTo & “‘, ‘” & MlCC & “‘, ‘” & MlBCC & “‘, ‘” & MlSubject & “‘, ‘”
strSQL = strSQL & MlBody & “‘, ‘” & MlAttachment & “‘, ‘” & Format(Now(), “yyyy-mm-dd hh:mm:ss”) & “‘, ‘” & Format(Now(), “yyyy-mm-dd hh:mm:ss”) & “‘)”
conn.Execute strSQL
Set conn = Nothing
‘釋放對(duì)象
Set MlObj = Nothing
“`
四、測(cè)試運(yùn)行
完成郵件解析之后，我們就可以將VB Jml郵件存儲(chǔ)到數(shù)據(jù)庫中了，下面是一個(gè)測(cè)試運(yùn)行的示例代碼：
“`vb
Dim MlObj As New Jml.Message
Dim strConn As String
Dim conn As ADODB.Connection
Dim rs As ADODB.RecordSet
Dim strSQL As String
‘打開數(shù)據(jù)庫連接
Set conn = New ADODB.Connection
strConn = “Provider=SQLOLEDB;Data Source=.;Initial Catalog=xxx;User ID=sa;Password=123456”
conn.Open strConn
‘查詢郵件
strSQL = “SELECT * FROM Ml WHERE Id=1”
Set rs = conn.Execute(strSQL)
‘讀取郵件內(nèi)容
If Not rs.EOF Then
MlObj.From = rs(“FromAddress”)
MlObj.Subject = rs(“Subject”)
MlObj.To = rs(“ToAddress”)
MlObj.Cc = rs(“CcAddress”)
MlObj.Bcc = rs(“BccAddress”)
MlObj.HTMLBody = rs(“Body”)
‘發(fā)送郵件
MlObj.Send(“tp.163.com”, “xxx@163.com”, “123456”, “”)
End If
‘關(guān)閉數(shù)據(jù)庫連接
rs.Close
Set rs = Nothing
Set conn = Nothing
‘釋放對(duì)象
Set MlObj = Nothing
“`
五、
通過以上介紹，我們可以知道，從而方便我們?cè)诤罄m(xù)的開發(fā)中對(duì)郵件進(jìn)行處理和管理。Jml作為一個(gè)功能強(qiáng)大的郵件庫，可以幫助我們輕松實(shí)現(xiàn)郵件的發(fā)送和接收，是郵件應(yīng)用程序開發(fā)的不二選擇。
成都網(wǎng)站建設(shè)公司-創(chuàng)新互聯(lián)為您提供網(wǎng)站建設(shè)、網(wǎng)站制作、網(wǎng)頁設(shè)計(jì)及定制高端網(wǎng)站建設(shè)服務(wù)！
求解：vb中添加jmail.dll組件時(shí)的問題
之一步、安裝 Jmail。
第二步、把安裝沒信目錄下的 jmail.dll 復(fù)制到 C:\Windows\system32 目錄下。
第三步、明拆注冊(cè)枯槐輪 DLL，方法：開始菜單→運(yùn)行→輸入 regsvr32.exe jmail.dll →回車。
第四步、重新添加組件。
你的機(jī)器沒裝jmail，或者沒注冊(cè)。
你去下一個(gè)族茄jmail.dll，然后隨便放一個(gè)地方，執(zhí)行毀穗橋 regsvr32 全路徑\纖猛jmail.dll就可以了
VB關(guān)于文本框的數(shù)據(jù)怎么保存到SQL數(shù)據(jù)庫 本人在線等
SQL數(shù)據(jù)庫的記錄集已襲遲經(jīng)用adodc1.recordset正確打開了嗎？記錄集的類型配置正確滑瞎嗎，只讀型快照數(shù)據(jù)集不支持信禪空寫數(shù)據(jù)。
按你描述應(yīng)該沒錯(cuò)的。
查看關(guān)鍵字是否滿足條乎碰件。確定數(shù)羨頃胡據(jù)類型是否一致。
同樣的數(shù)據(jù)，如果直接在SQL數(shù)據(jù)庫里面，是否可以保存成功。兄?jǐn)r
應(yīng)團(tuán)悔裂該將賦值語句中前猜TEXT1,TEXT2改為TEXT1.TEXT,TEXT2.TEXT
是將TEXT1和塌閉TEXT2中具體內(nèi)容賦于相應(yīng)字段。
!用戶名=text1.text
!密碼=text2.text
試試
vb jmail 存到數(shù)據(jù)庫的介紹就聊到這里吧，感謝你花時(shí)間閱讀本站內(nèi)容，更多關(guān)于vb jmail 存到數(shù)據(jù)庫,如何將VB Jmail郵件存儲(chǔ)到數(shù)據(jù)庫中,求解：vb中添加jmail.dll組件時(shí)的問題,VB關(guān)于文本框的數(shù)據(jù)怎么保存到SQL數(shù)據(jù)庫 本人在線等的信息別忘了在本站進(jìn)行查找喔。
香港服務(wù)器選創(chuàng)新互聯(lián)，香港虛擬主機(jī)被稱為香港虛擬空間/香港網(wǎng)站空間，或者簡(jiǎn)稱香港主機(jī)/香港空間。香港虛擬主機(jī)特點(diǎn)是免備案空間開通就用， 創(chuàng)新互聯(lián)香港主機(jī)精選cn2+bgp線路訪問快、穩(wěn)定！
文章題目：如何將VBJmail郵件存儲(chǔ)到數(shù)據(jù)庫中(vbjmail存到數(shù)據(jù)庫)
轉(zhuǎn)載源于：http://www.5511xx.com/article/dhpgjcp.html
