请问如何直接从SQL里面导出数据,然后直接发送邮件呢？

pandapanda

我的构思是：从SQL把数据导出到RS上面。然后直接发邮件出去，把RS的内容直接在邮件正文显示。

这里有同学知道怎么做吗？

单独的从SQL 导数据到EXCEL，我会。从EXCEL发附件我也会。

但是我就是不知道怎么把内容直接在邮件正文显示，我不想用附件形式。

请大虾帮我。下面是构思.

1.---从sql 导出数据到rs集合中

 Sub test_mail()
 Dim i  As Integer, j  As Integer, sht  As Worksheet
 
  Dim cn     As New ADODB.Connection
 
  Dim rs     As New ADODB.Recordset
 
  Dim strCn     As String, strSQL  As String
    
  strCn = "Provider=sqloledb;Server=westgua;Database=test;Uid=test;Pwd=test^^" 
    
  strSQL = "select * from test.dbo.bb"
 
  cn.Open strCn          
  rs.Open strSQL, cn         

???这里就是需要大虾帮我的了.如何让RS的内容给BODY

Call SendMail(Adress, Subject, Body, Attachment)

End Sub

2.---发邮件
Sub SendMail

Dim objOL As Object
Dim itmNewMail As Object
Dim olMailItem

Set objOL = CreateObject("Outlook.Application")
Set itmNewMail = objOL.CreateItem(olMailItem)

With itmNewMail
.Subject = Subject
.Body = ?? '这里希望是rs的内容
.To = 1111@163.com

End With
On Error GoTo continue
SendEmail:
itmNewMail.display
DoEvents
DoEvents
DoEvents
SendKeys "%s", Wait:=True
DoEvents
itmNewMail.display
GoTo SendEmail
continue:
On Error GoTo 0
Set objOL = Nothing
Set itmNewMail = Nothing

  rs.Close           
 
End Sub

[此贴子已经被作者于2006-8-29 16:06:43编辑过]

gly1126

body=rs.getstring(,,,vbnewline)

pandapanda

谢谢，可以了。但是出来的是没有边框的。这个该怎么添加呢？

pandapanda

有个问题，就是SQL里面的列的名字，能不能也一起发出来呢？

pandapanda

或者请问gly1126

能不能这样，把RS的集合放到EXCEL表格里面，把表格的内容直接放到邮件正文呢？

gly1126

1、加列名

for each c in rs.fields

body=body & c.name & vbtab

next c

body=body & vbnewline

body=body & rs.getstring(,,,vbnewline)

2、rs放入表格里面

for i=1 to rs.fields.count-1

cells(1,i).value=rs.fields(i-1).name

next i

cells(2,1).copyfromrecordset rs

加边框代码

3、用查询

with activesheet.querytables.add("odbc;dsn=westgua;uid=test;pwd=test^^",range("a1"))

.commandtext="select * from test.dbo.bb"
.refresh

end with

加连框代码

邮件正文加边框暂没有办法，得请教版主

[此贴子已经被作者于2006-8-29 17:06:25编辑过]

pandapanda

1、加列名

for each c in rs.fields

我这里写的strSQL = "select * from test.dbo.bb"
 
  cn.Open strCn          
  rs.Open strSQL, cn         

只是把内容放到RS中，列名还是在SQL的TABLE上的，并不是在RS集合里的。所以用你的这个办法还是无法把列名发到邮件里。

pandapanda

2、rs放入表格里面,这个我可以实现.

但是我希望把表格直接发到邮件的正文去,怎么做呢？

如果能直接将表格发到邮件正文中，那就不存在边框问题了。因为我在表格里面把边框颜色都设置好了。

请问这个有办法解决吗？

[此贴子已经被作者于2006-8-29 17:54:52编辑过]

gly1126

workbook 有sendmail方法,试试行不行?

[此贴子已经被作者于2006-8-29 20:56:50编辑过]

pandapanda

QUOTE:

以下是引用gly1126在2006-8-29 20:56:30的发言：

workbook 有sendmail方法,试试行不行?

好像workbook.sendmail方法，是添加附件的形式。

而我需要实现的是：把sheet里面的表格直接贴到邮件正文发送出去。而不是附件形式。

请高手帮忙看过来。谢谢。