Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bom dia pessoal, estou com um problema para enviar e-mails. A empresa está em mudança do site (que ja esta pronto), mas nos testes do site novo (que ja esta no ar) para envio de e-mail está retornando o erro 424 - Objeto necessário, sendo que no antigo funciona normalmente.
Antes que digam, o servidor usa CDONTS. O mesmo está configurado e funcionando e não querem usar CDOSYS (creio que nao vem ao caso aqui)
Eis o código:
<%If Request("btnEnviar") = "Enviar" Then
On Error Resume Next
Dim Nome, Telefone, Email, Mensagem, Destinatario
Nome = Trim(Request.Form("nome"))
Telefone = Trim(Request.Form("tel"))
Email = Trim(Request.Form("email"))
Mensagem = Trim(Request.Form("msg"))
Destinatario = Trim(Request.Form("destinatario"))
Set RsEmail = Server.CreateObject("CDONTS.NewMail")
RsEmail.From = Email
RsEmail.To = Destinatario
RsEmail.Subject = "Novo Contato Site"
RsEmail.Body = "<strong>Nome:</strong>" & Nome & "<br><strong>Telefone:</strong>" & Telefone & "<br><strong>E-mail:</strong>" & Email & "<br><strong>Mensagem:</strong>" & Mensagem
RsEmail.BodyFormat = 0
RsEmail.MailFormat = 0
RsMail.Send
Set RsEmail = Nothing
If Err.Number = 0 Then
Response.Write("<div id='mensagemok'>Obrigado! Sua mensagem foi enviada com sucesso!</div>")
Else
Response.Write("<div id='mensagem'>Erro: " & Err.Description & " - " & Err.Number & "</div>")
End If
Else%>
<div id="frm">
<form action="faleconosco.asp" method="post" name="frmContato" id="frmContato" onSubmit="return performCheck('frmContato',rules,'inline');">
<label for="nome">Nome:</label><br />
<input name="nome" type="text" id="nome" size="60" title="Somente letras [A-z], não é permitido caracteres especiais." /><div id="lbl_nome"></div><br />
<label for="tel">Telefone:</label><br />
<input name="tel" type="text" id="tel" size="60" onKeyPress="return Mascara(event,this,'## ####-####');" maxlength="12" title="Somente numeros [0-9]. <strong>Não insira pontuações.</strong>" /><div id="lbl_tel"></div><br />
<label for="email">E-mail:</label><br />
<input name="email" type="text" id="email" size="60" title="Insira um e-mail válido." /><div id="lbl_email"></div><br />
<label for="msg">Mensagem:</label><br />
<textarea name="msg" id="msg"/></textarea><div id="lbl_msg"></div><br /><br />
<select id="destinatario" name="destinatario">
<option value="teste@digimed.ind.br"></option>
</select>
<a href="<%=Request.ServerVariables("HTTP_REFERER")%>"><input type="button" value="Voltar" /></a>
<input type="reset" value="Limpar" />
<input name="btnEnviar" id="btnEnviar" type="submit" value="Enviar" />
</form>
Se por gentileza pudessem verificar se há algum erro no código ou algo que tenha que ser alterado eu agradeço, pois se caso não for terei que ver no servidor novamente.
Obs: o email existe.
Grato.
Carregando comentários...