AspEmail é um componente ActiveX, da Persists, que permite o envio de e-mails através de páginas web.
O componente suporta anexos de arquivo múltiplos, recipientes múltiplos, CCs, BCCs, e Responder.
<%
' Cria uma instância do controle de Email
Set aspEmail = Server.CreateObject("Persits.MailSender")
' Endereço do Servidor de SMTP
aspEmail.Host = "mail.dominio.com.br"
' Nome do Remetente
aspEmail.FromName = "Nome do Remetente"
' E-mail do Remetente
aspEmail.From = "[email protected]"
' E-mail do Destinatário
aspEmail.AddAddress "[email protected]"
' Assunto do E-mail
aspEmail.Subject = "Assunto"
' E-mail para autenticação
aspEmail.Username = "[email protected]"
' Senha do E-mail para autenticação
aspEmail.Password = "senha"
' Arquivo a ser anexado
aspEmail.AddAttachment "e:homedominio.com.brdocumento.doc"
' E-mail em HTML
aspEmail.IsHTML = True
' Conteúdo do E-mail
aspEmail.Body = "Envio de e-mail autenticado e com anexo através do AspEmail."
' Envia o Email
aspEmail.Send
' Tira o objeto da memória
Set aspEmail = Nothing
%>
