Elton M. Távora
-
Total de itens
1 -
Registro em
-
Última visita
Tudo que Elton M. Távora postou
-
Topico Exclusivo - Componentes De E-mail - 1 !
pergunta respondeu ao dark0 de Elton M. Távora em ASP
Galera... estou com um código do cdont e o envio do e-mail funciona quando rodo a página pela minha máquina. Quando eu fui rodar a página pelo servidor do site que dou suporte é apresentado um erro na lina 26 do meu código. Queria saber se alguém consegue matar esse erro. Segue o código: <% Option Explicit Dim var_nome, var_empresa, var_mail, var_to, EnviarMail, MsgBody var_nome = Request.QueryString("txtnome") var_empresa = Request.QueryString("txtempresa") var_mail = Request.QueryString("txtemail") Set EnviarMail = Server.CreateObject("CDONTS.NewMail") EnviarMail.To = "elton@UMSERVIDOR QUALQUER.com.br" EnviarMail.From = "marcilio@UMSERVIDORQUALQUER.com.br" EnviarMail.Subject = "Email enviado pelo site." MsgBody = "<html>" _ & "<head>" _ & "</head>" _ & "<body bgcolor=""#FFFFFF"">" _ & "<p><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Nome: <b>" & var_nome & "</b><br>Empresa: <b>" & var_empresa & "</b><br> Email: <b>" & var_mail & "</b><br> Comentário: E-mail enviado automaticamente.<b></b></font></p>" _ & "</body>" _ & "</html>" EnviarMail.Body = MsgBody EnviarMail.Importance = 1 EnviarMail.BodyFormat = 0 EnviarMail.MailFormat = 0 EnviarMail.Send Set EnviarMail = Nothing Response.redirect "Obrigado.html" %> Essa é a linha 26: EnviarMail.Send Eu liguei para o pessoal que dá suporte ao servidor e me disseram que eu tenho que configurar o SMTP no meu código. Se for realmente isso, alguém sabe como fazer? Obrigado.