Formulário com ASPEMAIL

Segue código de exemplo com a função ASPEMAIL da persists

<% ‘ Cria uma instância do controle de Email
Set aspEmail = Server.CreateObject(“Persits.MailSender”)
‘ Endereço do Servidor de SMTP
aspEmail.Host = “localhost”
‘ Nome do Remetente
aspEmail.FromName = “NOME”
‘ E-mail do Remetente
aspEmail.From = “nome@nome.com”
‘ E-mail do Destinatário
aspEmail.AddAddress “nome@oseudominio.com.br”
‘ Assunto do E-mail
aspEmail.Subject = “teste”
‘ E-mail em HTML
aspEmail.IsHTML = True
‘ Conteúdo do E-mail
aspEmail.Body = “Envio de e-mail simples através do AspEmail.”
‘ Envia o Email
aspEmail.Send
‘ Tira o objeto da memória
Set aspEmail = Nothing %>

op-ad-dual-no escreveu 185 artigos