Sres:
Al tratar de enviar un correo con SQL con el siguiente codigo me arroja un error, le realice un seguimiento por cada exec y solo se cae cuando trata de ejecutar el send...
--************* Creación del Objeto CDO.Message EXEC @hr = sp_OACreate 'CDO.Message', @iMsg OUT --Ok
--***************Configuración del Objeto (Mensaje)**********************
-- Configuración remota del Servidor SMTP .
EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusing").Value','2' --Ok
-- Configuración del Nombre Servidor o Dirección IP.
EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value', @MailServer --ok
EXEC @hr = sp_OAMethod @iMsg, 'Configuration.Fields.Update', null -- Guarda y configuración del Objeto --ok
-- Seteo del los Parametros del e-mail
EXEC @hr = sp_OASetProperty @iMsg, 'To', @Cur_sEmail
EXEC @hr = sp_OASetProperty @iMsg, 'From', @From
EXEC @hr = sp_OASetProperty @iMsg, 'Subject', @Cur_sAsunto-- si se usa HTML e-mail, use 'HTMLBody' donde dice 'TextBody'.
EXEC @hr = sp_OASetProperty @iMsg, 'TextBody',@Cur_sCuerpo
EXEC @hr = sp_OAMethod @iMsg, 'Send', NULL
select @iMsg, @hr
return
-- Control de Errores.
select @Cur_sEmail, @From, @Cur_sAsunto, @Cur_sCuerpo
select @hr
return
IF @hr <>0 -- Existe Error
@hr = -1271241