Utilizando o CDOSYS para Enviar Mensagens em p�ginas ASP

05 Sep 2010

Central de Suporte » FAQ » Utilizando o CDOSYS para Enviar Mensagens em p�ginas ASP

	Utilizando o CDOSYS para Enviar Mensagens em p�ginas ASP

Resposta O CDOSYS � a rela��o nova e melhorada da Microsoft para envio de e-mail, oferecendo toda a mesma funcionalidade que o CDONTS.

Segue abaixo um exemplo:

<%
'Cria o objeto para o envio de e-mail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'Cria o objeto para configura��o do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

'Porta do SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25

'Porta do CDO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Timeout
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

'Atualiza a configura��o do CDOSYS para o envio do e-mail
Set objCDOSYSMail.Configuration = objCDOSYSCon

'E-mail do remetente. Voc� pode indicar no formato:
' Nome ou somente o e-mail
objCDOSYSMail.From = "Seu nome"

'E-mail do destinat�rio. Voc� pode indicar no formato:
' Nome ou somente o e-mail
objCDOSYSMail.To = "Nome da pessoa"

'Assunto da mensagem
objCDOSYSMail.Subject = "Teste do CDOSYS"

'Conte�do da mensagem
objCDOSYSMail.TextBody = "Teste do componente CDOSYS"
'para envio da mensagem no formato html altere o TextBody para HtmlBody
'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS"

'objCDOSYSMail.fields.update
'Envia o e-mail
objCDOSYSMail.Send

'Destr�i os objetos
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

response.write "E-mail enviado para destinatario@dominio.com.br ..."
%>

Existe uma vasta refer�ncia sobre o CDOSYS na internet, veja algumas no endere�o:
http://search.msdn.microsoft.com/search/default.aspx?siteId=0&tab=0&query=cdosys

Detalhes do artigo

Código do Artigo:

Data de criação:

15 Nov 2006 02:05 AM