请教，如何用delphi编写可以发送网页样的邮件？

Question

就是发送的邮件正文当中包含链接？

Answer 1

可以，以HTML的格式发送就可以了。

Answer 2

把发送的字符串组成HTML，然后发送出去。

Answer 3

begin
  IdSMTP1.Disconnect;
  IdSMTP1.Host := 'smtp.163.com';
  IdSMTP1.Username := 'xxxx';
  IdSMTP1.Password := 'xxxxxx';
  IdSMTP1.AuthenticationType := atLogin;
  FIdMessage.From.Address := '[email protected]';
  FIdMessage.Recipients.EMailAddresses  := '[email protected]';
  FIdMessage.Body.Add('<a href="http://www.baidu.com/" target="_blank">百度</a>');
  FIdMessage.CharSet := 'GB2312';
  FIdMessage.ContentType:='text/html';  
  IdSMTP1.Connect;
  IdSMTP1.Authenticate;
  IdSMTP1.Send(FIdMessage);
end;

Answer 4

來個sql+html的：
USE [MES]
GO
/****** Object:  StoredProcedure [dbo].[SP_MESTOHR_EMAIL]    Script Date: 07/08/2010 09:52:56 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
/*
作者：雨落天涯(天南地北天涯浪子浪跡天涯，秋去冬來秋水伊人望穿秋水)
时间：2009-10-09
地点：广东東莞
公司：昆盈電腦製品有限公司
功能：產生昆盈公司每天的加班單Keyin記錄
格式：HMTL
*/
-- =============================================
ALTER PROCEDURE [dbo].[SP_MESTOHR_EMAIL]
AS
BEGIN
 SET NOCOUNT ON;
 declare @mcount varchar(4000)
 select @mcount=COUNT(*) from [MES].[dbo].[CQ_JB] WHERE JBRQ=CONVERT(varchar(20),DATEADD(DD,-1,GETDATE()),111)
 declare @msg nvarchar(MAX),@strBM nvarchar(4000),@strBS nvarchar(4000),@strOP nvarchar(20)
 if @mcount>0 
 BEGIN
  set @strBM='<table cellpadding="0" cellspacing="0"><tr><td style="border:solid 1px #99AAFF;width:30px;text-align:center;">加班部門</td>'
  select @strBM=@strBM+'<td style="border:solid 1px #99AAFF;border-left:0px;width:20px;text-align:center;">'+JBBM+'</td>' from (select JBBM,(case JBBM when JBBM then (select COUNT(*) from CQ_JB where JBBM=_b.JBBM and JBRQ=CONVERT(varchar(20),DATEADD(DD,-1,GETDATE()),111)) end)as Co from(select distinct jbbm from CQ_JB)_b)_c order by JBBM desc
  set @strBS='<tr><td style="border:solid 1px #99AAFF;border-top:0px;width:30px;text-align:center;">輸入筆數</td>'
  select @strBS=@strBS+'<td style="border-right:solid 1px #99AAFF;border-bottom:solid 1px #99AAFF;width:50px;">'+convert(varchar(10),Co)+'</td>' from (select JBBM,(case JBBM when JBBM then (select COUNT(*) from CQ_JB where JBBM=_b.JBBM and JBRQ=CONVERT(varchar(20),DATEADD(DD,-1,GETDATE()),111)) end)as Co from(select distinct jbbm from CQ_JB)_b)_c order by JBBM desc
  select @msg='<font color="blue" face="MS Sans Serif">Hi,all:<br/><font color="red">'+CONVERT(varchar(20),DATEADD(DD,-1,GETDATE()),111)+'</font>共有'+convert(nvarchar(10),@mcount)+'筆加班記錄Keyin到MES系統中,明細如下:</font>'
  select @msg=@msg+'<br><br>'+@strBM+'</tr>'+@strBS+'</tr>'+'</table> <br><font color="red">******!注意:此信件為MES系統每天早上10:40分自動產生，請不要直接回覆!******</font><br/>資訊部：Success_ju'
  EXEC msdb.dbo.sp_send_dbmail
  @profile_name='DataBaseMail',
  @recipients='[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected]',
  @copy_recipients='[email protected];[email protected];[email protected];[email protected];[email protected];',
  @blind_copy_recipients='[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];[email protected];',
  @subject='昆盈MES"電子加班單"Keyin入記錄通知::',
  @body=@msg,    
  @body_format='HTML';
 END
 
END

Answer 5

SQL还可以发邮件,这个要学一下

Answer 6

是的，可以调用outlook来发送邮件，
我经常用触发器来调用。