Configurando e usando o CDOSys para envio de E-Mail com ASP

Muita gente ainda tem dificuldades para enviar emails em ASP e ainda usam componentes pagos ou complicados e que precisam ser instalados para funcionar.

Não precisa de nada disso e nem precisa se quer estressar o pessoal de segurança com instalações de dlls e componentes.

O CDOSys é super fácil de usar, muito simples e não precisa ser instalado. A única coisa que será preciso fazer em alguns casos é conversar com o administrador da rede para liberar ou monitorar uma porta.

Bom vamos começar criando as variáveis que vamos usar e o tempo do servidor.

'Determina o tempo máximo de espera do servidor

Server.ScriptTimeout = 5600

Dim objMail

Dim sTexto, ass, email

ass = "Teste de Envio de E-Mail Simples com o CDOSys"

email="Aqui@Seu.Email"

sTexto="Olá Mundo..."

'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") = "smtp.dominio.com.br"

'User

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "meuuser"

'Senha

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "minhapass"

'porta do SMTP 

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

'Use SSL for the connection (False or True)

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'porta do CDO 

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

'timeout 

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

objCDOSYSCon.Fields.update 

'atualiza a configuração do CDOSYS para o envio do e-mail 

Set objCDOSYSMail.Configuration = objCDOSYSCon

'e-mail do remetente 

objCDOSYSMail.From = email

'e-mail do destinatário

objCDOSYSMail.To="Aqui@Outro.Email"

'e-mail de cópia

objCDOSYSMail.Cc = "Aqui@Outro.Email"

'e-mail de cópia oculta

objCDOSYSMail.Cco = "Aqui@Outro.Email"

'assunto da mensagem 

objCDOSYSMail.Subject = ass

'************************************

'* Conteúdo da mensagem.

'************************************

'* Pode ser configurado de duas formas:

'* 1. Uma mensagem de texto apenas

'* objCDOSYSMail.TextBody = sTexto

'* 2. Uma mensagem no formato HTML

'* objCDOSYSMail.TextBody = sTexto

'************************************

Neste exemplo vamos usar o envio simples

objCDOSYSMail.TextBody = sTexto

objCDOSYSMail.Send 

'destrói os objetos 

Set objCDOSYSMail = Nothing 

Set objCDOSYSCon = Nothing