Objeto Persist.MailSender?

[rcdesign 1]

Problema 1Em um formulário de cadastro que alimentará o BD. Gostaria de enviar a informação sobre o cadastramento para o meu próprio e-mail. Estou pensando em utilizar o objeto Persist.MailSender mas não sei como altera-lo nem como fazer funcionar.A função que tenho é a seguinte:Function EnviaEmail(nome, email) Dim mail set mail = server.CreateObject(Persits.MailSender) Dim corpo1, corpo2, corpo3 corpo1 = "Olá" corpo2 = ", <br><br> O Galeria do Músico acabou de ser atualizado com novo Cadastro." corpo3 = ".<br><br> Verifique o banco de dados." mail.host = "smtp.galeriadomusico.net" mail.from = "galeriadomusico@galeriadomusico.net" mail.fromName = "Galeria do Músico" mail.IsHTML = false mail.addAddress email, nome 'método para receber o email e o nome do destinatário mail.subject = "Cadastro de Músicos Efetuado" mail.body = corpo1 & nome & corpo2 mail.send enviaemail = true end functionSe alguém puder me ajudar......

[silas_i 0]

Cara pq você não usa o Cdonts !?

[rcdesign 1]

Como faço para que o Cdonts envie o formulário para o e-mail em HTML?

[rcdesign 1]

Como faço para que o Cdonts envie o formulário para o e-mail em HTML?

Desculpe . errei a pergunta.....Como faço para utilizar o Cdonts?

[silas_i 0]

acho que isso pode te ajudar !<% if (cStr(Request("Submit")) <> "") ThenDim objCDOSet objCDO = Server.CreateObject("CDONTS.NewMail")objCDO.From = "seu_email@seu_servidor.com.br"objCDO.To = (Recordset1.Fields.Item("Email").Value)objCDO.CC = ""objCDO.Subject = "Assunto do email"objCDO.Boby = "Texto do email"objCDO.Send()Set objCDO = NothingEnd if%>

[rcdesign 1]

só para esclarecer:Este código vai na página do formulário certo? :D estas duas linhas a seguir:objCDO.From = "seu_email@seu_servidor.com.br" 'Email de origem..objCDO.To = (Recordset1.Fields.Item("Email").Value) 'Esta linha vai mandar o e-mail para qual destino? O informado no formulário?

[rcdesign 1]

Então.... se alguém puder continuar me ajudando eu agradeço.... :)