Script Modelo para Envio de Emails pelo AspMail

<%@language=VBScript %> <%

On Error Resume Next Dim Mail, cont

Set Mail = Server.CreateObject(“Persits.MailSender”)

Mail.Host = “mail.telium.com.br” Mail.From = “suporte@telium.com.br” ‘ Troque pelo email do remetente Mail.FromName = “Remetente – Teste” ‘ Troque pelo nome do remetente

Mail.AddAddress “marcelo.carazato@telium.com.br”, “Destinatário” Mail.Subject = “Assunto – Teste Aspmail” ‘ Assunto do e-mail Mail.Body = “Teste de envio de e-mail pelo AspEmail (Persits)” ‘ Conteúdo do email

Mail.Send If Err.number <> 0 Then Response.Write “Error encountered: ” & Err.Description End If On Error Goto 0

%>

Realizado isso basta salvá-lo com a extensão .asp!

#by Luca Heller