Problemas com CDO

[Felipe_SP 0]

Fala galera, beleza? Sou iniciante em programação asp e estou com a seguinte dúvida, criei uma página que lista tarefas e envia um e-mail assim que é adicionada uma nova tarefa, estou fazendo isso utilizando cdo, faço include na página e chamo a função. A função está funcionando perfeitamente, pois já uso em outra página, o problema é nessa página de tarefas, quando vou enviar a página no localhost, ele envia o e-mail perfeitamente, mas quando eu subo a página no ftp, mudo o endereço para reenvio e não funfa, alguém pode me dar um help?!

Function Inclui_Tarefa	Dim rsTarefas2	Set rsTarefas2 = Server.CreateObject("ADODB.RECORDSET")	Dim tarefa,prioridade	tarefa     = Request.Form("txttarefa")	prioridade = Request.Form("prioridade")	Call Conecta    	objconn.execute "INSERT INTO Tarefas(tarefa,prioridade,data_abertura,status) values ('" & tarefa & "','" & prioridade &"',now,"& "1" &")"	rsTarefas2.Open "SELECT MAX(id_tarefa) AS ID FROM Tarefas", objConn 	Var_id = rsTarefas2("ID")	 'Call Envia_email_pagina("Nova Tarefa","felipe@nmengenharia.com.br","http://desenvolvimento.gruponm.com.br/job_tarefa.asp?id="& Var_id, "S")  Call Envia_email_pagina("Nova Tarefa","felipe@nmengenharia.com.br","http://localhost/Portal%20NM-2.0/httpdocs/job_tarefa.asp?id="& Var_id,"S")		Call DesconectaEnd Function

[jrcardozo 4]

movido Artigos, Dicas, Tutoriais e Materias (ASP) para ASP___________________________________________________Quanto ao seu problema....qual mensagem de erro?O servidor dá suporte ao componente?Se o problema está no envio de email posta a função Envia_email_pagina

[Felipe_SP 0]

Aparece que a página não pode ser exibida,vou postar a função aqui!

 

<%	'exemplo 	'Call Envia_email_pagina( "Assunto da mensagem", "edson.filho@gruponm.com.br", "http://www.nmengenharia.com.br","S")'------------------------'rotina enviar pagina modeloSub Envia_email_pagina(Titulo, Para, Pagina, Copia)	Set CDO_Config = Server.CreateObject ("CDO.Configuration") 	CDO_Config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1	CDO_Config.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpserver")= "smtp.gruponm.com.br" 	CDO_Config.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 	CDO_Config.Fields ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 	CDO_Config.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 	CDO_Config.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "envio@gruponm.com.br"	CDO_Config.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"	CDO_Config.Fields.update 	Set CDO_Mensagem = Server.CreateObject("CDO.Message") 	Set CDO_Mensagem.Configuration = CDO_Config 	CDO_Mensagem.From = "Portal NM <portal@gruponm.com.br>"	CDO_Mensagem.To = Para 		if Copia <> "N" then		CDO_Mensagem.cc = "portal@gruponm.com.br"	End if	CDO_Mensagem.Subject = Titulo	CDO_Mensagem.CreateMHTMLBody Pagina 	'CDO_Mensagem.fields.update	CDO_Mensagem.Send 	Set CDO_Mensagem = Nothing 	Set CDO_Config = Nothing End Sub'------------------------------' Rotina geral de envioSub Envia_email(Titulo, Para, Mensagem, Copia)	Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1	objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpserver")= "smtp.gruponm.com.br" 	objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 	objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 	objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "envio@gruponm.com.br"	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"	objCDOSYSCon.Fields.update 	Set objCDOSYSMail = Server.CreateObject("CDO.Message") 	Set objCDOSYSMail.Configuration = objCDOSYSCon 	objCDOSYSMail.From = "Portal NM <portal@gruponm.com.br>"	objCDOSYSMail.To = Para 		if Copia <> "N" then		objCDOSYSMail.cc = "portal@gruponm.com.br"	End if	objCDOSYSMail.Subject = Titulo	objCDOSYSMail.HTMLBody = WordWrap(Mensagem, 1000, chr(13), false) 	objCDOSYSMail.fields.update	objCDOSYSMail.Send 	Set objCDOSYSMail = Nothing 	Set objCDOSYSCon = Nothing End Sub' limpa caracteres quebra linhaFunction WordWrap(ByVal strWords, ByVal intWrapLength, ByVal strWrapText, ByVal blnReplaceVbCrLf)	Dim arrWords, arrTrailingCharacters, x	Dim intRunningLength	'*** Strip out carriage returns	If blnReplaceVbCrLf Then		strWords = Replace(strWords, vbCrLf, " ")	End If	'*** Split the words into an array using a space. The	'*** second array just makes it easier to add the Wrap Text	arrWords = Split(strWords, " ")	arrTrailingCharacters = Split(strWords, " ")	'*** Set the trailing characters for each word to a space	For x = LBound(arrTrailingCharacters) To UBound(arrTrailingCharacters)		arrTrailingCharacters(x) = " "	Next	'*** Now start looping through the words and adding the wrap text	 intRunningLength = 0	For x = LBound(arrWords) To UBound(arrWords)		'*** Calculate the running length of the words		intRunningLength = intRunningLength + Len(arrWords(x) & " ")		'*** If we're at the exact word wrap length, add the wrapping text		'*** at the end of the current word and reset the running length		If intRunningLength = intWrapLength Then			arrTrailingCharacters(x) = strWrapText			intRunningLength = 0		End If		'*** If we've pass the wrapping length, put the wrapping text		'*** at the end of the previous word. Set the running length		'*** to the length of the current word.		If intRunningLength >= intWrapLength And x > 0 Then			arrTrailingCharacters(x - 1) = strWrapText			intRunningLength = Len(arrWords(x) & " ")		End If	Next	'*** Build the words and the wrapping text back together and return them	 For x = LBound(arrWords) To UBound(arrWords)		WordWrap = WordWrap & arrWords(x) & arrTrailingCharacters(x)	NextEnd Function%>