Pessoal estou com este erro e o provedor é o terra....alguém sabe o porque, pode me ajudar... , abri novo tópico porque o outro que
esta aberto é muito antigo.... e não tem retorno...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.cas.terra.com.br" 'Informe o domínio do seu painel de controle.
cdoConfig.Fields.Item(sch & "smtpserverport") = 25
cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
cdoConfig.Fields.Item(sch & "sendusername") = "meu email@meu dominio.com.br" 'conta@seu_dominio
cdoConfig.Fields.Item(sch & "sendpassword") = "minha senha"
cdoConfig.fields.update
'"declarao todas as variáveis que precisamos
Dim MyMail
Dim Email_destino
Dim Nome_emitente
Dim Email_emitente
Dim Tel_emitente
Dim Assunto
Dim Mensagem
Dim Email_corpo
'obtenho alguns valores para as variáveis do formulário
Email_destino = Request.Form("combo_email")
Email_emitente = Request.Form("email_remetente")
Nome_emitente = Request.Form("nome")
Tel_emitente = Request.Form("telefone")
Assunto = Request.Form("assunto")
Mensagem = Request.Form("mensagem")
'construo o corpo do e-mail a partir dos dados sob a forma
Email_corpo = "Nome: "& Nome_emitente & vbcrlf
Email_corpo = Email_corpo & "Telefone: "& Tel_emitente & vbcrlf
Email_corpo = Email_corpo & "Email: "& Email_emitente & vbcrlf
Email_corpo = Email_corpo & "Mensagem:" & vbcrlf
Email_corpo = Email_corpo & Mensagem
'Criando a variavel e enviando o email
Set MyMail = CreateObject("CDO.Message")
Set MyMail.Configuration = cdoConfig
MyMail.From = Email_emitente
MyMail.To = Email_destino
MyMail.Subject = Assunto
MyMail.TextBody = Email_corpo
MyMail.Send ================================================================> linha 48
Set MyMail= nothing
Set cdoConfig = Nothing
Response.Write("Email enviado com sucesso!")
%>