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