批量修改所有服务器的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;