– Disponibilizamos um exemplo de Formulário para enviar automaticamente a mensagem para seu e-mail:

Utilizamos o componente AspEMail.

<%
'Declaramos as váriaveis a serem utilizadas no script
Dim AspEmail, nomeRemetente, emailRemetente, nomeDestinatario, emailDestinatario, emailRetorno, assunto, mensagem, servidor
'Configuramos os dados a serem utilizados no cabeçalho da mensagem
nomeDestinatario="NomeDestinatario"
emailDestinatario="email@dominio"
nomeRemetente="NomeRemetente"
emailRemetente="webmaster@SeuDominio" 'O endereço de e-mail deve ser preenchido com uma conta existente em seu próprio domínio.
emailRetorno="webmaster@SeuDominio"
responderPara="webmaster@SeuDominio"
assunto="Teste AspEmail"
mensagem="Esta é uma mensagem de teste enviada através do componente AspEmail."
servidor="localhost"
'Agora configuramos o componente utilizando os dados informados nas variáveis
'Instancia o objeto na memória
SET AspEmail = Server.CreateObject("Persits.MailSender")
'Contfigura o servidor SMTP a ser utilizado
AspEmail.Host = servidor
'Configura o Nome do remetente da mensagem
AspEmail.FromName = nomeRemetente
'Configura o e-mail do remetente da mensagem que OBRIGATORIAMENTE deve ser um e-mail do seu próprio domínio
AspEmail.From = emailRemetente
'Configura o E-mail de retorno para você ser avisado em caso de problemas no envio da mensagem
AspEmail.MailFrom = emailRemetente  'Desabilitar essa linha caso o servidor esteja configurado para rodar em 64 bits
'Configura o e-mail que receberá as respostas desta mensagem
AspEmail.AddReplyTo responderPara
'Configura os destinatários da mensagem
AspEmail.AddAddress emailDestinatario, nomeDestinatario
'Configura para enviar e-mail Com Cópia
'AspEmail.AddCC "nome0@dominio.com.br", "Nome"
'AspEmail.AddCC "nome1@dominio.com.br", "Nome"
'AspEmail.AddCC "nome2@dominio.com.br", "Nome"
'Configura o Assunto da mensagem enviada
AspEmail.Subject = assunto
'Configura o formato da mensagem para HTML
AspEmail.IsHTML = True
'Configura o conteúdo da Mensagem
AspEmail.Body = mensagem
'Definir porta no caso de envio autenticado
'AspEmail.Port = 587
'#Ativa o tratamento de erros
On Error Resume Next
'Envia a mensagem
AspEmail.Send
'Caso ocorra problemas no envio, descreve os detalhes do mesmo.
If Err <> 0 Then
	erro = " Erro ao enviar a mensagem."
	erro = erro & "Erro.Description: " & Err.Description & 
	erro = erro & "Erro.Number: "      & Err.Number & 
	erro = erro & "Erro.Source: "      & Err.Source & 
	response.write erro
Else
    response.write "Mensagem enviada com sucesso para " & emailDestinatario
End If
'## Remove a referência do componente da memória ##
SET AspEmail = Nothing
%>
  • Este artigo foi útil para você?
  • Sim   Não