mdb 数据库 多行数据查询和汇总到一个变量然后发送邮件.

lichao940

现在有一些订单和备注在数据库 排列如图.
我现在要发送邮件，将相同订单的所有备注都放到邮件的正文中.

一次发送一个订单号的所有备注.
以下是子程序代码:

sounumber 是主程序带过来的变量.
数据库地址也是变量 database_com
邮件地址也是变量.

红色这部分代码是数据库代码，
我打开数据库，查询这个订单号，但是不知道什么复制所有订单的comments  数据到同一个变量，
然后用这个变量做正文
不知道邮件正文能用变量不。。。。
不会插代码。。。看附件。。。
New Text Document (3).7z (822 Bytes, 下载次数: 1)

2018-9-1 17:19 上传

点击文件名下载附件

lichao940

Function sendemailtomx(sonumber)


Dim objOL As Object
   
    Dim itmNewMail As Object


    Application.DisplayAlerts = False
    Application.Visible = False
   
Set conn_com = CreateObject("adodb.connection")
    conn_com.Open "provider=microsoft.jet.oledb.4.0;data source=" & database_com

    strinfo = "select * from comments where sonumber like '" & sonumber & "'"
    Set recordstrinfo = conn_com.Execute(strinfo)

    If recordstrinfo.EOF And recordstrinfo.bof Then

Else

Strr = recordstrinfo("Comments")
                            copydocument(indexnumber) = recordstrinfo("Comments")
                            indexnumber = indexnumber + 1
Do While Not (recordstrinfo.EOF)

Line Input #1, Strr

Loop
End If
   
   Set objOL = CreateObject("Outlook.Application")

    Set itmNewMail = objOL.CreateItem(olMailItem)

    With itmNewMail

        .Subject = "订单:" & sonumber & " 内容异常,请检查!!!"

       ' .Body = Application.UserName & "°l?íà]?t?y??"  '±???

        .To = toaddress  'ê??t??
        .HtmlBody = Strr
        .Display  '?￠?óò?′°
        .send
        

       ' .Attachments.Add (ActiveWorkbook.FullName)

        

    End With

    'itmNewMail.send

    'objOL = Nothing

   
    Set itmNewMail = Nothing


    Application.DisplayAlerts = True
    Application.Visible = True

conn_com.Close

End Function

lichao940

Set conn_com = CreateObject("adodb.connection")
    conn_com.Open "provider=microsoft.jet.oledb.4.0;data source=" & database_com

    strinfo = "select * from comments where sonumber like '" & sonumber & "'"
    Set recordstrinfo = conn_com.Execute(strinfo)

    If recordstrinfo.EOF And recordstrinfo.bof Then



    Else

'        i = 2
        Do While Not (recordstrinfo.EOF)
          error1message = recordstrinfo("comments")
'           i = i + 1

            recordstrinfo.movenext
        Loop

    End If


搞定了。。。。。。。。