P
Paulo
How to put these configuration ASP fields on the SP some lines below? I need
to send email via SP
------------------------------------------------------
Set iMsg = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' Set the CDOSYS configuration fields to use port 25 on the SMTP server.
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"smtp.uol.com.br"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 10
.Update
End With
-----------------------SP MS SQL SERVER
2000---------------------------------------------------------
EXEC @RESULTADO = SP_OACREATE 'CDO.Message', @OMAIL OUT
EXEC @RESULTADO1 = SP_OACREATE 'CDO.Configuration', @OMAIL1 OUT
IF (@RESULTADO = 0) And (@RESULTADO1 = 0) -- no error
BEGIN
EXEC @RESULTADO = SP_OASETPROPERTY @OMAIL, 'FROM' , @FROM_ADDRESS --
ENDEREÇO DE EMAIL FROM
EXEC @RESULTADO = SP_OASETPROPERTY @OMAIL, 'TO' , @TO_ADDRESS -- ENDEREÇO
DE EMAIL TO
-- VERIFICANDO SE O ENDEREÇO CC NÃO ESTÁ VAZIO
IF @CC_ADDRESS <> ''
BEGIN
EXEC @RESULTADO = SP_OASETPROPERTY @OMAIL, 'CC', @CC_ADDRESS -- ENDEREÇO
DE EMAIL CC
END
-- VERIFICANDO SE O ENDEREÇO BCC NÃO ESTÁ VAZIO
IF @BCC_ADDRESS <> ''
BEGIN
EXEC @RESULTADO = SP_OASETPROPERTY @OMAIL, 'BCC', @BCC_ADDRESS --
ENDEREÇO DE EMAIL BCC
END
EXEC @RESULTADO = SP_OASETPROPERTY @OMAIL, 'SUBJECT', @ASSUNTO_EMAIL --
ASSUNTO
EXEC @RESULTADO = SP_OASETPROPERTY @OMAIL, 'TextBody', @MENSAGEM_EMAIL --
CORPO DO EMAIL
-- TIPO DE EMAIL (TEXTO/HTML)
--EXEC @RESULTADO = SP_OASETPROPERTY @OMAIL, 'BODYFORMAT', @TIPO_EMAIL
--EXEC @RESULTADO = SP_OASETPROPERTY @OMAIL, 'MAILFORMAT', @TIPO_EMAIL
-- ENVIANDO O EMAIL
to send email via SP
------------------------------------------------------
Set iMsg = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' Set the CDOSYS configuration fields to use port 25 on the SMTP server.
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"smtp.uol.com.br"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 10
.Update
End With
-----------------------SP MS SQL SERVER
2000---------------------------------------------------------
EXEC @RESULTADO = SP_OACREATE 'CDO.Message', @OMAIL OUT
EXEC @RESULTADO1 = SP_OACREATE 'CDO.Configuration', @OMAIL1 OUT
IF (@RESULTADO = 0) And (@RESULTADO1 = 0) -- no error
BEGIN
EXEC @RESULTADO = SP_OASETPROPERTY @OMAIL, 'FROM' , @FROM_ADDRESS --
ENDEREÇO DE EMAIL FROM
EXEC @RESULTADO = SP_OASETPROPERTY @OMAIL, 'TO' , @TO_ADDRESS -- ENDEREÇO
DE EMAIL TO
-- VERIFICANDO SE O ENDEREÇO CC NÃO ESTÁ VAZIO
IF @CC_ADDRESS <> ''
BEGIN
EXEC @RESULTADO = SP_OASETPROPERTY @OMAIL, 'CC', @CC_ADDRESS -- ENDEREÇO
DE EMAIL CC
END
-- VERIFICANDO SE O ENDEREÇO BCC NÃO ESTÁ VAZIO
IF @BCC_ADDRESS <> ''
BEGIN
EXEC @RESULTADO = SP_OASETPROPERTY @OMAIL, 'BCC', @BCC_ADDRESS --
ENDEREÇO DE EMAIL BCC
END
EXEC @RESULTADO = SP_OASETPROPERTY @OMAIL, 'SUBJECT', @ASSUNTO_EMAIL --
ASSUNTO
EXEC @RESULTADO = SP_OASETPROPERTY @OMAIL, 'TextBody', @MENSAGEM_EMAIL --
CORPO DO EMAIL
-- TIPO DE EMAIL (TEXTO/HTML)
--EXEC @RESULTADO = SP_OASETPROPERTY @OMAIL, 'BODYFORMAT', @TIPO_EMAIL
--EXEC @RESULTADO = SP_OASETPROPERTY @OMAIL, 'MAILFORMAT', @TIPO_EMAIL
-- ENVIANDO O EMAIL