建站
咨詢
售后
建站咨詢
新聞中心
在實際開發(fā)中，我們經(jīng)常需要將郵件保存到數(shù)據(jù)庫中以便后續(xù)處理，對于使用VB語言開發(fā)的郵件應(yīng)用程序，Jml是一個常用的郵件庫，本文將介紹。
成都創(chuàng)新互聯(lián)公司服務(wù)項目包括大洼網(wǎng)站建設(shè)、大洼網(wǎng)站制作、大洼網(wǎng)頁制作以及大洼網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，大洼網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到大洼省份的部分城市，未來相信會繼續(xù)擴大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！
一、Jml簡介
Jml是一款功能強大、穩(wěn)定易用的郵件組件，可以完成發(fā)送、接收郵件、支持TP/POP3/IMAP4協(xié)議等。它不僅支持VB語言，還支持ASP、C#等多種編程語言。使用Jml可以輕松實現(xiàn)郵件的發(fā)送和接收，并且還支持HTML郵件、附件、收件人群發(fā)等多種功能。
二、數(shù)據(jù)庫設(shè)計
在將郵件存儲到數(shù)據(jù)庫中之前，首先需要設(shè)計郵件數(shù)據(jù)庫的結(jié)構(gòu)。根據(jù)實際需求，我們可以設(shè)計如下郵件表結(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)建時間 |
| UpdateTime | datetime | 修改時間 |
三、Jml郵件解析
在將郵件存儲到數(shù)據(jù)庫中之前，我們需要將Jml郵件解析成郵件表中的各個字段。下面是一個將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
‘釋放對象
Set MlObj = Nothing
“`
四、測試運行
完成郵件解析之后，我們就可以將VB Jml郵件存儲到數(shù)據(jù)庫中了，下面是一個測試運行的示例代碼：
“`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
‘釋放對象
Set MlObj = Nothing
“`
五、
通過以上介紹，我們可以知道，從而方便我們在后續(xù)的開發(fā)中對郵件進行處理和管理。Jml作為一個功能強大的郵件庫，可以幫助我們輕松實現(xiàn)郵件的發(fā)送和接收，是郵件應(yīng)用程序開發(fā)的不二選擇。
成都網(wǎng)站建設(shè)公司-創(chuàng)新互聯(lián)為您提供網(wǎng)站建設(shè)、網(wǎng)站制作、網(wǎng)頁設(shè)計及定制高端網(wǎng)站建設(shè)服務(wù)！
求解：vb中添加jmail.dll組件時的問題
之一步、安裝 Jmail。
第二步、把安裝沒信目錄下的 jmail.dll 復(fù)制到 C:\Windows\system32 目錄下。
第三步、明拆注冊枯槐輪 DLL，方法：開始菜單→運行→輸入 regsvr32.exe jmail.dll →回車。
第四步、重新添加組件。
你的機器沒裝jmail，或者沒注冊。
你去下一個族茄jmail.dll，然后隨便放一個地方，執(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)該沒錯的。
查看關(guān)鍵字是否滿足條乎碰件。確定數(shù)羨頃胡據(jù)類型是否一致。
同樣的數(shù)據(jù)，如果直接在SQL數(shù)據(jù)庫里面，是否可以保存成功。兄攔
應(yīng)團悔裂該將賦值語句中前猜TEXT1,TEXT2改為TEXT1.TEXT,TEXT2.TEXT
是將TEXT1和塌閉TEXT2中具體內(nèi)容賦于相應(yīng)字段。
!用戶名=text1.text
!密碼=text2.text
試試
vb jmail 存到數(shù)據(jù)庫的介紹就聊到這里吧，感謝你花時間閱讀本站內(nèi)容，更多關(guān)于vb jmail 存到數(shù)據(jù)庫,如何將VB Jmail郵件存儲到數(shù)據(jù)庫中,求解：vb中添加jmail.dll組件時的問題,VB關(guān)于文本框的數(shù)據(jù)怎么保存到SQL數(shù)據(jù)庫 本人在線等的信息別忘了在本站進行查找喔。
香港服務(wù)器選創(chuàng)新互聯(lián)，香港虛擬主機被稱為香港虛擬空間/香港網(wǎng)站空間，或者簡稱香港主機/香港空間。香港虛擬主機特點是免備案空間開通就用， 創(chuàng)新互聯(lián)香港主機精選cn2+bgp線路訪問快、穩(wěn)定！
網(wǎng)站名稱：如何將VBJmail郵件存儲到數(shù)據(jù)庫中(vbjmail存到數(shù)據(jù)庫)
文章位置：http://m.5511xx.com/article/dhpgjcp.html
