Problemas ao enviar e-mail

[wlds 0]

Alguem poderia me ajudar neste codigo

Nao consigo enviar email com copia o servidor obrigatoriamente tem que ser esse

quando nao da erro nao chega o email

dedsde ja agradeco

 

 

<%
'Declarando variveis
Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto, Conhece, indic

'Pegando os dados digitados nos campos e colocando em variaveis
sNameFrom 	= 	Request.Form("nome")
sEmailFrom 	= 	Request.Form("email")
sEmailTo 	= 	Request.Form("email")
sNameTo 	= 				"interlize"
sText 		= 	Request.Form("mensagem")
Conhece 	=	Request.Form("conheceu")
indic	 	= 	Request.Form("indicacao")
'sAssunto = Request.Form("assunto")


 Set Mailer = CreateObject("EasyMail.SMTP.5")
  Mailer.licensekey = "-------------------------"
  Mailer.mailserver  = "mail.interlize.com.br;"
  Mailer.Fromaddr = "info@interlize.com.br"   
  Mailer.From = "interlize"
  Mailer.AddRecipient  Request.Form("area"), sEmailTo , 1
  Mailer.replyto = Request.Form("email") 
  Mailer.CharSet = 1
  Mailer.subject  ="fale conosco"
  Mailer.BodyText = "Obrigado " & request("nome") & "  por entrar em contato com a Interlize"   & vbcrlf & vbcrlf &  "Para a sua conveniencia, voce esta recebendo uma copia da mensagem que foi enviada atraves do site Interlize. "   & vbcrlf & vbcrlf &   "Em breve estaremos entrando em contato. "	& vbcrlf & vbcrlf &	"Gostaria de avaliar a qualidade de nossos servicos? Entoo clique no link abaixo:"   & vbcrlf & vbcrlf &   "http://w3.interlize.com.br/pesquisa.php"   & vbcrlf & vbcrlf &   "Dados do Formulario:"  & vbcrlf & vbcrlf & "Remetente: " & request("nome") & vbcrlf & "Telefone: " & request("telefone") & vbcrlf & "Email: " & request("email") & vbcrlf & "Por onde conheceu a interlize: " & request("indicacao") & vbcrlf &  vbcrlf & "Mensagem: " &  vbcrlf & request("mensagem")
  

  
  
  if Mailer.send then
	  
	 Response.Redirect "-----------------------------"
  else
   Response.Write ("Ocorreu um erro.<BR>")
   Response.Write "O Erro é " & Mailer.Response 
	 Response.Redirect "----------------------------------"
  end if
%>

[hargon 64]

Título alterado por desrespeitar a 09ª Regra do Fórum.

ME ajudem por favor, n http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Problemas ao enviar e-mail

[Ted k' 126]

use o Mailer.BCC para enviar oculto, mais quando não envia, qual é o erro que gera?