Para enviar e-mail autenticado em SMTP usando o componente ASPEMail, basta seguir a seguinte rotina:
<%
Dim Mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "localhost"
Mail.From = "tutorial@hospedagemsegura.com.br"
Mail.FromName = "Tutorial Hospedagem Segura"
Mail.AddAddress "suporte@hospedagemsegura.com.br", "Suporte Hospedagem Segura"
Mail.AddAddress "sac@hospedagemsegura.com.br", "SAC Hospedagem Segura"
Mail.Subject = "Tutorial de envio com ASPEmail"
Mail.Body = "Seja bem vindo ao Tutorial do Wiki"
Mail.Username = "tutorial@hospedagemsegura.com.br"
Mail.Password = "123456"
Mail.IsHtml = false
Mail.Send
%>
Entendendo um pouco a rotina, podemos analizar instrução por instrução:
- Mail.Host: Este campo indica o servidor SMTP através do qual a mensagem será enviada;
- Mail.From: Este campo indica o remetente da mensagem;
- Mail.FromName: Este campo indica o nome do remetente da mensagem;
- Mail.AddAddress: Com este comando, adicionamos destinatários à mensagem. O formato é o seguinte: Mail.AddAddress "", "";
- Mail.Subject: Este campo indica o assunto do e-mail;
- Mail.Body: Este campo indica o corpo/conteúdo do e-mail;
- Mail.Username: Nome do usuário para autenticar no servidor SMTP. Vale lembrar que o nome de usuário é o e-mail completo, por exemplo email@dominio.com.br;
- Mail.Password: Senha do usuário para autenticar no servidor SMTP;
- Mail.IsHtml: Este campo indica se o e-mail será enviado em formato HTML;
- Main.Send: Comando que envia o e-mail.