FALE AGORA COM O COMERCIAL

Fale agora com o Comercial

REDES SOCIAIS

ATENDIMENTO

Como criar um formulário para enviar de E-mail

Passo 1: 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.

Passo 2: 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.

Passo 3: 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"
%>





×