批量修改所有服务器的dbmail配置(推荐)

DECLARE @EmailAccount sysname;
DECLARE @SmtpServer sysname;
DECLARE @EmailAddress NVARCHAR(120);
DECLARE @EmailSuffix NVARCHAR(32);
DECLARE @NewEamilAddress NVARCHAR(120);
--DECLARE @ActualEmailSuffix NVARCHAR(32)='xxxx.com'; SQL Server 2005不支持此功能，会报Cannot assign a default value to a local variable.
DECLARE @ActualEmailSuffix NVARCHAR(32);
DECLARE @ActualSmtpServer sysname;
SET @ActualEmailSuffix='xxx.com';
SET @ActualSmtpServer='192.168.xxx.xxx';
DECLARE EmailAccount_Cursor CURSOR FAST_FORWARD
FOR
SELECT sa.[name]    
   ,ss.[servername] 
   ,sa.email_address
 FROM [msdb].[dbo].[sysmail_server] ss 
 INNER JOIN [msdb].[dbo].[sysmail_account] sa
 ON ss.[account_id]=sa.[account_id];
OPEN EmailAccount_Cursor;
FETCH NEXT FROM EmailAccount_Cursor INTO @EmailAccount, @SmtpServer,@EmailAddress;
WHILE @@FETCH_STATUS = 0
BEGIN
  IF LTRIM(RTRIM(@SmtpServer))!=@ActualSmtpServer
  BEGIN
    EXECUTE msdb.dbo.sysmail_update_account_sp
       @account_name = @EmailAccount
      ,@mailserver_name=@ActualSmtpServer;
    PRINT @SmtpServer;
    PRINT @EmailAccount;
  END;
  SET @EmailSuffix=SUBSTRING(@EmailAddress,CHARINDEX('@',@EmailAddress)+1, LEN(@EmailAddress) -CHARINDEX('@',@EmailAddress))
  IF @EmailSuffix!=@ActualEmailSuffix
  BEGIN
    SET @NewEamilAddress= REPLACE(@EmailAddress,@EmailSuffix,@ActualEmailSuffix);
    EXECUTE msdb.dbo.sysmail_update_account_sp
       @account_name = @EmailAccount
      ,@email_address=@NewEamilAddress
      ,@mailserver_name=@SmtpServer;
    PRINT @EmailAccount;
    PRINT @NewEamilAddress;
  END;
  FETCH NEXT FROM EmailAccount_Cursor INTO @EmailAccount, @SmtpServer,@EmailAddress;
END
CLOSE EmailAccount_Cursor;
DEALLOCATE EmailAccount_Cursor;