Então vai o código aí de alguns componentes pra enviar e-mail:
'Utilizando o JMAIL
Set JMail = Server.CreateObject("JMail.SMTPMail") 'à Passo 1
JMail.ServerAddress = "smtp.nomedoservidor.com.br"
JMail.Sender = remetente@servidor.com.br 'à Passo 2
JMail.AddRecipient ("remetente@servidor.com.br") 'à Passo 3
JMail.Subject = "Assunto do E-Mail" 'à Passo 4
JMail.silent = True
JMail.Body = "Corpo o E-Mail." 'à Passo 5
If JMail.Execute() Then
Response.Write ("E-Mail enviado com sucesso.")
Else
Response.Write ("Houve um erro ao enviar a sua mensagem.")
Response.Write "A mensagem de erro é:" & JMail.ErrorMessage
End If
Set Jmail = Nothing 'à Passo 6
'Utilizando o CDONTS
Set objmail = Server.CreateObject("CDONTS.NewMail") 'à Passo 1
objmail.from = "email_remetente@servidor.com.br" 'à Passo 2
objmail.to = "email_destinatario@servidor.com.br" 'à Passo 3
objmail.subject = "Assunto do E-Mail" 'à Passo 4
objmail.body = "Corpo o E-Mail." 'à Passo 5
objmail.send
Response.Write ("E-mail enviado com sucesso.")
Set objmail = Nothing 'à Passo 6
'Utilizando o ASPMAIL
Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 'à Passo 1
Mailer.FromName = "Nome do Remetente"
Mailer.FromAddress= "email_remetente@servidor.com.br" 'à Passo 2
Mailer.RemoteHost = "smtp.servidor.com.br"
Mailer.AddRecipient " Destinatario", "destinatario@servidor.com.br" 'à Passo 3
Mailer.Subject = "Assunto do E-Mail" 'à Passo 4
Mailer.BodyText = "Corpo o E-Mail." 'à Passo 5
If Mailer.SendMail Then
Response.Write ("Mensagem enviada com sucesso")
Else
Response.Write "Erro: " & Mailer.Response
End If
Set Mailer = Nothing 'à Passo 6
Se alguém tiver o do SMARTMAIL posta aí por favor pq to precisando
