SQL SERVER 2005 - GESTION DE LA LARGEUR DES COLONNES D'UNE REQUETE LIEE A UN EMAIL (SP_SEND_DBMAIL)

------------------------ Requête sans gestion de la largeur des colonnes --------------------------------
-- Variables locales
Declare @SQL varchar(max), 
                 @PROFIL nvarchar(128), 
                 @RCPT varchar(60), 
                 @TXT char(19);

-- Compte SMTP
Set @PROFIL= (SELECT TOP 1 Name FROM msdb.dbo.sysmail_profile);
-- Destinataire de l'envoi (à saisir pour la demo.)
Set @RCPT= '< Adresse à saisir >';
-- Corps du message
Set @TXT= 'Voir ci-dessous :' + char(13) + char(10);

-- Requête associée à l'envoi
USE  AdventureWorks ; 
Set @SQL= 'Select FirstName + '' '' + LastName [Nom complet], EmailAddress [Adr. courriel] From Person.Contact Where ContactID <11'

-- Poster l'envoi
EXEC msdb.dbo.sp_send_dbmail @profile_name=@PROFIL, @recipients=@RCPT, @subject ='Requête associée à l''envoi sans gestion des largeurs', @body= @TXT, @body_format ='TEXT', 
                                                                     @importance ='High', @sensitivity ='Normal', @query=@SQL, @execute_query_database = 'AdventureWorks', @attach_query_result_as_file =0, @query_result_header=1, @exclude_query_output=1;
GO
------------------------ Requête avec gestion de la largeur des colonnes --------------------------------
-- Variables locales
Declare @SQL varchar(max), 
                 @PROFIL nvarchar(128), 
                 @RCPT varchar(60), 
                 @TXT char(19),
                 @LEN1 int,
                 @LEN2 int;

-- Compte SMTP
Set @PROFIL= (SELECT TOP 1 Name FROM msdb.dbo.sysmail_profile);
-- Destinataire de l'envoi (à saisir pour la demo.)
Set @RCPT= '< Adresse à saisir >';
-- Corps du message
Set @TXT= 'Voir ci-dessous :' + char(13) + char(10);
-- Sélection de la base de données 
USE  AdventureWorks ;

-- Calculer les largeurs des colonnes 
Select @LEN1=Max(Len(FirstName + ' ' + LastName)), @LEN2=Max(Len(EmailAddress)) From Person.Contact Where ContactID <11
-- Tenir compte de la largeur des en-têtes
If (ISNULL(@LEN1, 0)<Len('Nom complet')) Set @LEN1=Len('Nom complet');
If (ISNULL(@LEN2, 0)<Len('Adr. courriel')) Set @LEN2=Len('Adr. courriel');

-- Requête associée à l'envoi
Set @SQL= 'Select Substring(FirstName + '' '' + LastName, 1, ' + Convert(varchar(3), @LEN1 + 1) + ') [Nom complet], Substring(EmailAddress, 1, ' + Convert(varchar(3), @LEN2 + 1) + ') [Adr. courriel] From Person.Contact Where ContactID <11'

-- Poster l'envoi
EXEC msdb.dbo.sp_send_dbmail @profile_name=@PROFIL, @recipients=@RCPT, @subject ='Requête associée à l''envoi avec gestion des largeurs', @body= @TXT, @body_format ='TEXT', 
                                                                     @importance ='High', @sensitivity ='Normal', @query=@SQL, @execute_query_database = 'AdventureWorks', @attach_query_result_as_file =0, @query_result_header=1, @exclude_query_output=1;
GO
-----------------------------------------------------------------------------------------------------------------------------------