100分求助!!!怎样用SQL发MAIL时在邮件内容中加入查询结果表格？？？？？

PCBoy008 2004-12-30 11:12:59
例如，有 select * from sales
然后我希望在MAIL中内容：

您好，以下是本月销售统计：
【这里显示表格，而不是空格分隔的内容】


用xp_sendmail是否可行？？
...全文
160 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
passionke 2005-02-22
  • 打赏
  • 举报
 回复
up
constantine 2004-12-30
  • 打赏
  • 举报
 回复
up
vinsonshen 2004-12-30
  • 打赏
  • 举报
 回复
你要把查询结果以表格形式作为邮件内容？

这样SQL不能实现吧~~~
vinsonshen 2004-12-30
  • 打赏
  • 举报
 回复
关注~~~
iswear428 2004-12-30
  • 打赏
  • 举报
 回复
UP
yjzhg 2004-12-30
  • 打赏
  • 举报
 回复
UP
zjcxc 元老 2004-12-30
  • 打赏
  • 举报
 回复
要显示为表格的话,xp_sendmail不能直接实现
zlp321002 2004-12-30
  • 打赏
  • 举报
 回复
有办法让xp_sendmail发送HTML格式信件吗？

转贴，未测试，楼主搞定了，希望能写详细点贴上来：

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE PROC SendHtmlMailTest(@vMailTo VARCHAR(255), @vMailFrom VARCHAR(255))
AS
BEGIN

SET CONCAT_NULL_YIELDS_NULL OFF

DECLARE
@Hresult INT,
@iMsg INT,
@iConf INT,
@ErrorSource VARCHAR (255),
@ErrorDesc VARCHAR (255),
@ServerIPAddr VARCHAR(15)

SET @ServerIPAddr = localhost --如本机是2000且启动了smtp服务

BEGIN

EXEC @Hresult = sp_OACreate 'CDO.Message', @iMsg OUT
IF @Hresult <> 0
BEGIN
EXEC sp_OAGetErrorInfo @iMsg, @ErrorSource OUT, @ErrorDesc OUT

RAISERROR (@ErrorDesc, 16, 1, 1, 1, 2)

PRINT 'Error Occurred Calling Object: ' + @ErrorSource + ' ' + @ErrorDesc
RETURN
END

DECLARE @strBodyHTML VARCHAR(8000)

SET @strBodyHTML = @strBodyHTML + '<HTML><HEAD><basefont face=tahoma style="font-size: 9px;">'
SET @strBodyHTML = @strBodyHTML + '<STYLE>'
SET @strBodyHTML = @strBodyHTML + 'td.small {'
SET @strBodyHTML = @strBodyHTML + 'font-family:Verdana, Trebuchet, Arial;'
SET @strBodyHTML = @strBodyHTML + 'font-size:10px;'
SET @strBodyHTML = @strBodyHTML + 'color:#000000;'
SET @strBodyHTML = @strBodyHTML + 'text-align:left;'
SET @strBodyHTML = @strBodyHTML + 'line-height:12px;'
SET @strBodyHTML = @strBodyHTML + 'margin-top:0px;'
SET @strBodyHTML = @strBodyHTML + 'margin-bottom:0px;'
SET @strBodyHTML = @strBodyHTML + 'text-decoration: none;'
SET @strBodyHTML = @strBodyHTML + '}'
SET @strBodyHTML = @strBodyHTML + 'p.detail {font-family: monospace;'
SET @strBodyHTML = @strBodyHTML + 'font-size: 11px.; margin-left: 8;'
SET @strBodyHTML = @strBodyHTML + 'margin-top: 1;'
SET @strBodyHTML = @strBodyHTML + '}'
SET @strBodyHTML = @strBodyHTML + '</style></HEAD>'
SET @strBodyHTML = @strBodyHTML + '<BODY><font color=green><h3>HI! This is HMTL/SMTP mail.</h3></font><img src="http://www.csdn.net/images/ad/ad-java.gif" border=no><BR>'
SET @strBodyHTML = @strBodyHTML + ' <Font Face=Arial Size=5><B>This uses CDOSys and not outlook profiles!</B><BR>'
SET @strBodyHTML = @strBodyHTML + '<B>Set </B> <FONT COLOR=RED>Font Color</FONT></Font><BR><BR>'
SET @strBodyHTML = @strBodyHTML + '<HR /></BODY>'
SET @strBodyHTML = @strBodyHTML + '</HTML>'

/*Some info needed*/
DECLARE @cdoSendUsingPort INT
DECLARE @cdoAnonymous INT
SET @cdoSendUsingPort = 25
SET @cdoAnonymous = 0
EXEC @Hresult = sp_OASetProperty @iMsg, 'configuration("http://schemas.microsoft.com/cdo/configuration/sendusing")', @cdoSendUsingPort
EXEC @Hresult = sp_OASetProperty @iMsg, 'configuration("http://schemas.microsoft.com/cdo/configuration/smtpserver")', @ServerIPAddr
EXEC @Hresult = sp_OASetProperty @iMsg, 'configuration("http://schemas.microsoft.com/cdo/configuration/smtpserverport")', 25
EXEC @Hresult = sp_OASetProperty @iMsg, 'configuration("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")', @cdoAnonymous


IF @Hresult <> 0
BEGIN
EXEC sp_OAGetErrorInfo @iMsg, @ErrorSource OUT, @ErrorDesc OUT
PRINT 'Error Occurred Calling Object: ' + @ErrorSource + ' ' + @ErrorDesc
RETURN
END

EXEC @Hresult = sp_OASetProperty @iMsg, 'To', @vMailTo
EXEC @Hresult = sp_OASetProperty @iMsg, 'From', 'MSSQL Notifications'
EXEC @Hresult = sp_OASetProperty @iMsg, 'Subject', 'HI! This is HMTL/SMTP mail.'
EXEC @Hresult = sp_OASetProperty @iMsg, 'Sender', @vMailFrom

set @strBodyHTML = replace(replace(@strBodyHTML, '''''', ''''), '''','''''')
EXEC @Hresult = sp_OASetProperty @iMsg, 'HTMLBody', @strBodyHTML
IF @Hresult <> 0
BEGIN
EXEC sp_OAGetErrorInfo @iMsg, @ErrorSource OUT, @ErrorDesc OUT
PRINT 'Error Occurred Calling Object: ' + @ErrorSource + ' ' + @ErrorDesc
RETURN
END

/*Now send the message*/
EXEC @Hresult = sp_OAMethod @iMsg, 'Send'
IF @Hresult <> 0
BEGIN
EXEC sp_OAGetErrorInfo @iMsg, @ErrorSource OUT, @ErrorDesc OUT
PRINT 'Error Occurred Calling Object: ' + @ErrorSource + ' ' + @ErrorDesc
RETURN
END

/*Cleanup*/
EXEC @Hresult = sp_OADestroy @iMsg
END
END

简单英译汉SQL脚本
在...之上，高于'); insert into t_dictionary values('above-mentioned','adj.上述的'); insert into t_dictionary values('abreast','adv.并肩，并列'); insert into t_dictionary values('abridge','v.省略，摘要...
java mail 503_java,_com.sun.mail.smtp.SMTPSendFailedException: 503 Error: need EHLO and AUTH first !...
com.sun.mail.smtp.SMTPSendFailedException: 503 Error: need EHLO and AUTH first !import java.io.File;import java.util.Date;import java.util.Properties;import javax.activation.DataHandler;import javax.a...
用VB如何写可以发送mail？
用VB怎样写可以发送mail？ 比较简单的方法，是使用JMAIL. 先下载个JMAIL安装包，然后就可以用VB调用了。 大体代码： Option Explicit Dim jmail1 Sub SendMail(Optional ByVal sSubject As String, Optional...
MS-SQL Server 基础类 - SQL语句
sqlserver中如何选取查询结果的中间某10条？ 无法解决equal to操作的排序规则冲突？ 关于特殊字符的插入 怎么在SQL Server的存储过程中实现对文本的操作？ 一个高难度SQL语句，我想了三天三夜，或许根本就没有解 "=...
java毕业设计——基于JSP+sqlserver的销售管理系统设计与实现（毕业论文+程序源码）——销售管理系统
互联网在大家的方方面面都提供了极大的帮助。所以很明显的趋势就是网站的出现。个人博客系统为树立个人在网络上的形象提供了一个良好的平台。本论文就毕业设计的内容，系统地阐述了整个CD销售管理系统的功能及实现。...
MS-SQL Server

34,588

社区成员

254,588

社区内容

发帖
与我相关
我的任务
社区描述
MS-SQL Server相关内容讨论专区
社区管理员
  • 基础类社区
  • 二月十六
  • 卖水果的net
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章