• Mostrando resultados da busca por {{ posts_busca["corrected"] }} {{termo_busca}}
  • {{post.title}}
  • Não foram encontrados resultados para {{ posts_busca["corrected"] }} {{termo_busca}}

Como criar em seu site um formulário de contato utilizando componente CDOSYS (Envio Autenticado)

Fabricio Bottesini - Especialista de Atendimento na KingHost

Confira neste artigo como configurar um formulário de contato utilizando componente CDOSYS para envio autenticado.

Para saber mais sobre a política de envios autenticados Clique Aqui

Um formulário de contato em seu site facilita a comunicação de seus clientes e pessoas que têm interesse em seu negócio. Sua implementação é bastante simples, mas você precisa ter alguns cuidados para que tudo ocorra bem na configuração do formulário.

Exemplo de formulário de contato utilizando componente CDOSYS

No exemplo desta página, trataremos a configuração de um formulário utilizando CDOSYS para envio autenticado.
O script abaixo possui apenas o código básico para funcionamento, caso desejar adequar ao template do seu site, precisará de conhecimento em HTML e CSS.
Para que o formmail funcione, você precisa alterar os seguintes itens em sua configuração:

Linha 5: objCDOSYSCon.Fields – Nesta linha deve ser informado um e-mail válido de seu domínio, que será utilizado para a autenticação;
Linha 6: objCDOSYSCon.Fields – Nesta linha, informe a senha da conta configurada na linha 5;
Linha 7: objCDOSYSCon.Fields – Protocolo de envio, utilize seu domínio. Exemplo: smtp.dominio.com.br
Linha 14: objCDOSYSMail.From – Nesta linha você deve inserir uma conta de email ativa do seu próprio domínio;
Linha 15: objCDOSYSMail.To – E-mail destinatário, que receberá a mensagem;
<%
Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]" 'Conta de e-mail utilizada para efetuar a autenticação. Deve ser uma conta válida de seu domínio.'
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "SENHA" 'Senha da conta.'
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.seudominio" 'Altere para smtp.[seu domínio]'
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields.update
Set objCDOSYSMail.Configuration = objCDOSYSCon 'atualiza a configuração do CDOSYS para o envio do e-mail'
objCDOSYSMail.From = "[email protected]" 'Remetente: deve ser uma conta válida de seu domínio.'
objCDOSYSMail.To = "[email protected]" 'Destinatário; pode ser enviado para qualquer e-mail.'
'objCDOSYSMail.Cc = "[email protected]" 'Envio "Com Cópia" (Opcional).
'objCDOSYSMail.Bcc = "[email protected]" 'Envio "Com Cópia Oculta" (Opcional).
objCDOSYSMail.Subject = "Assunto do email"
objCDOSYSMail.TextBody = "Corpo da mensagem. Teste de envio com componente CDOSYS" 'Para envio da mensagem em formato HTML, altere TextBody para HtmlBody.'
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
response.write "Email enviado com sucesso"
%>
Oi! Eu sou Fabricio Bottesini e quero te convidar para assinar nossa newsletter e ficar por dentro das novidades.
Enviar conteúdo por email
387 visualizações

Esse artigo foi útil pra você?