Inicio > Hospedagem > Envio de E-mail ASP > ASP

Envio de e-mail através de formulário ASP.

Para realizar o envio de e-mails pelo ASP no ambiente de hospedagem, deve ser utilizado uma conta de e-mail do próprio domínio para o envio.

Para realizar o envio de e-mails com uma conta do domínio, o código de envio deve realizar autenticação no servidor. Por motivos de segurança as contas de e-mail do provedor não realizam o envio de e-mail sem autenticar no servidor.

Segue código ASP para envio de emails utilizando o componente CDOYS. Este código realiza a autenticação no servidor de e-mails para o envio.

    
    <%@Language="VBScript"%>
<% 
'CRIA A INSTANCIA COM O OBJETO CDOSYS 
Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
 
'CRIA A INSTANCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 
 
'SERVIDOR DE SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.dominio.com.br" 
 
'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 
 
'PORTA DO CDO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
 
'Utilização de SSl, habilitar caso o servidor de SMTP exija utilização do mesmo
'objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
 
'ATIVAR RECURSO DE SMTP AUTENTICADO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
 
'USUÁRIO PARA SMTP AUTENTICADO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "email_envio@dominio.com.br" 
 
'SENHA DO USUÁRIO PARA SMTP AUTENTICADO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha" 
 
'TEMPO DE TIMEOUT (EM SEGUNDOS) 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
 
'ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL 
objCDOSYSCon.Fields.update 
Set objCDOSYSMail.Configuration = objCDOSYSCon 
 
'NOME DO REMETENTE, E-MAIL DO REMETENTE 
objCDOSYSMail.From = "Remetente " 
 
'NOME DO DESINATARIO, E-MAIL DO DESINATÁRIO 
objCDOSYSMail.To = "Destinatario "
'objCDOSYSMail.cc = "Copia " 
'objCDOSYSMail.bcc = "Copia Oculta " 
 
 
'ASSUNTO DA MENSAGEM 
objCDOSYSMail.Subject = "Envio pelo site" 
 
'CONTEÚDO DA MENSAGEM 
objCDOSYSMail.TextBody = "Teste do envio de email pelo site" 
 
'ENVIA A MENSAGEM 
objCDOSYSMail.Send 
 
'DESTROI OS OBJETOS 
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 
 
response.write "Email enviado com sucesso" 
 
'Response.Redirect "Enviado.asp" 
%>