Email

[raphaelcarlos]

Tenho esse script

<% If Request("op") = "envia" Then %>
	<% If Request("assunto") = "Nossos Produtos" Then %>
  <%	mEmail = "rafael.carlos@metalis.com.br"%>
	<% End If %>
	<% If Request("assunto") = "Informações Técnicas" Then %>
  <%	mEmail = "rafael.carlos@metalis.com.br"%>
	<% End If %>
	<% If Request("assunto") = "Orçamento" Then %>
  <%	mEmail = "rafael.carlos@metalis.com.br"%>
	<% End If %>
	<% If Request("assunto") = "Representantes" Then %>
  <%	mEmail = "rafael.carlos@metalis.com.br"%>
	<% End If %>
	<% If Request("assunto") = "Outros" Then %>
  <%	mEmail = "rafael.carlos@metalis.com.br"%>
	<% End If %>

<%

	'Monta as variáveis para a mensagem
  vNome = Request("nome")
  vAssunto = Request("assunto")
  vEmail = mEmail
  vComentarios = Request("comentarios")

	'monta o corpo do email de envio para a empresa

  vDados = vDados & "Nome: " & vNome & vbcrlf
  vDados = vDados & "E-mail: " & vEmail & vbcrlf & vbcrlf  	
  vDados = vDados & "Digitou os seguintes comentários sobre " & vAssunto & vbcrlf & vbcrlf
  vDados = vDados & vComentarios

	'Recupera o email do remetente
  vEmail = Request("email")
  
	'Envia o email para o remetente

  Set mailmsg = Server.CreateObject("CDONTS.NewMail") 
  mailmsg.From = vEmail 
  mailmsg.to = mEmail
  mailmsg.Subject = vAssunto
  mailmsg.Body = vDados
  mailmsg.MailFormat = 0
  mailmsg.importance=2
  mailmsg.Send 
  set mailmsg = Nothing

	'monta o corpo do email de envio de resposta automatica para o remetente

  vResp = vResp & "Obrigado " & vNome & " por entrar em contato conosco." & vbcrlf
  vResp = vResp & "Estamos encaminhando seu e-mail para o setor competente," & vbcrlf
  vResp = vResp & "que analizará sua solicitação, e responderá o mais breve possível." & vbcrlf & vbcrlf
  vResp = vResp & "Atenciosamente," & vbcrlf
  vResp = vResp & "SAC - Metalis " & vbcrlf & vbcrlf & vbcrlf
  vResp = vResp & "********************************************************************"& vbcrlf
  vResp = vResp & " Essa é uma resposta automática, por favor não responda este e-mail" & vbcrlf
  vResp = vResp & "********************************************************************"

	'Envia o email para o remetente

  Set mailmsg = Server.CreateObject("CDONTS.NewMail") 
  mailmsg.From = mEmail
  mailmsg.to = vEmail
  mailmsg.Subject = "Solicitação recebida - SAC Metalis"
  mailmsg.MailFormat = 0
  mailmsg.importance=2
  mailmsg.Body = vResp
  mailmsg.Send 
  set mailmsg = Nothing

	'Redireciona para a pagina de dados enviados
  Response.write ("<script>alert('Email enviado com sucesso')</script>")
%>
<% End If %>

ele me confirma que o email foi enviado mas não chega.

[fantasma]

você verificou se o componete esta rodando

[Marcos-rj]

Não sei se é por isso, mas repara o seguinte:

nos ifs o nMail é :

mEmail = "rafael.carlos@metalis.com.br"

mais embaixo você coloca:

vEmail = mEmail

depois coloca que:

vEmail = Request("email")