使用VB6读取数据库资源并发送邮件（原创）

概述Private Sub Form_Load() Call conndb End Sub Private Function conndb() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strCn, sql As String Dim db_host As String Dim db_user As String

Private Sub Form_Load()

Call conndb

End Sub

Private Function conndb()

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim strCn, sql As String

Dim db_host As String

Dim db_user As String

Dim db_pass As String

Dim db_data As String

Dim banxing, quyu, kemu, tel, nianji As String

Dim thetime As Date

db_host = "122.114.181.75"

db_user = "daishi"

db_pass = "daishi2017!"

db_data = "daishi"

strCn = "DRIVER={MysqL ODBC 5.2 Driver};" & "SERVER=" & db_host & ";" & "DATABASE=" & db_data & ";" & "UID=" & db_user & ";PWD=" & db_pass & ";" & "OPTION=3" & "stmt=SET nameS gb2312"

cn.open strCn

cn.CursorLocation = adUseClIEnt

sql = "select * from ds_diyform7 where length(g_tel)>0"

rs.open sql, cn

MsgBox rs.FIElds(2) & rs.FIElds(6)

While rs.EOF = False And rs.RecordCount > 0

rs.MoveFirst

banxing = Trim(rs!g_banxing)

quyu = Trim(rs!g_quyu)

tel = Trim(rs!g_tel)

nianji = Replace(Trim(rs!g_nianji), "一", "1")

nianji = Replace(Trim(rs!g_nianji), "二", "2")

nianji = Replace(Trim(rs!g_nianji), "三", "3")

nianji = Replace(Trim(rs!g_nianji), "四", "4")

nianji = Replace(Trim(rs!g_nianji), "五", "5")

nianji = Replace(Trim(rs!g_nianji), "六", "6")

nianji = Replace(Trim(rs!g_nianji), "七", "7")

nianji = Replace(Trim(rs!g_nianji), "八", "8")

nianji = Replace(Trim(rs!g_nianji), "九", "9")

thetime = Now

If Len(quyu) = 0 Then quyu = "未填写"

If Len(tel) = 0 Then tel = "未填写"

If Len(banxing) = 0 Then banxing = "未选择"

If Len(nianji) = 0 Then nianji = "未选择"

Exit Function

Dim Email As Object

  nameS = "http://schemas.microsoft.com/cdo/configuration/"

  Set Email = CreateObject("cdo.message")

  Email.From = "[email protected]"

  Email.To = "[email protected]"

  Email.Subject = thetime & quyu & nianji

  Email.Textbody = "来新资源啦 " & " 发现时间:" & thetime & " 地区：" & quyu & " 联系电话:" & tel & " 科目:" & kemu & " 年级:" & nianji

  Email.Configuration.FIElds.Item(nameS & "smtpusessl") = "true"

  Email.Configuration.FIElds.Item(nameS & "sendusing") = 2

  Email.Configuration.FIElds.Item(nameS & "smtpserver") = "smtp.qq.com"

  Email.Configuration.FIElds.Item(nameS & "smtpserverport") = 465

  Email.Configuration.FIElds.Item(nameS & "smtpauthenticate") = 1

  Email.Configuration.FIElds.Item(nameS & "sendusername") = "2522237381"

  Email.Configuration.FIElds.Item(nameS & "sendpassword") = "cuohtxtcopljebeg"

  Email.Configuration.FIElds.Item(nameS & "cc") = "[email protected]"

  Email.Configuration.FIElds.Update

  Email.Send

rs.MoveNext

Wend

End Function

总结

以上是内存溢出为你收集整理的使用VB6读取数据库资源并发送邮件（原创）全部内容，希望文章能够帮你解决使用VB6读取数据库资源并发送邮件（原创）所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。