Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

NewUser

Que erro é este!

Por , em ASP Clássico

Recommended Posts

NewUser    0

NewUser
Postado

Estou usando o servidor do terra empresas e quando tento enviar email por cdonts da este erro .

O que pode ser?

 

Server object error 'ASP 0177 : 800401f3'

 

Server.CreateObject Failed

 

/newslleter/enviar.asp, line 40

 

800401f3

Compartilhar este post

Link para o post
Compartilhar em outros sites

id.cs    0

id.cs
Postado

Estou usando o servidor do terra empresas e quando tento enviar email por cdonts da este erro .O que pode ser?

Qual erro? :huh:

Compartilhar este post

Link para o post
Compartilhar em outros sites

Custellinha    0

Custellinha
Postado

Eh erro na criação do objeto!Manda a linha 40 aí cara...sem ela eh impossivel te ajudar!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

NewUser    0

NewUser
Postado

<%

Option Explicit

'Definindo as variáveis de conexão

Dim localbd, bd, objMail, rsEmail, grupoForm, htmlForm

Dim assunto, HTML

 

assunto=request.form("assunto")

'A variável grupoform terá o valor que você selecionou na página anterior

'No caso, o código do grupo de e-mails

grupoForm=request.form("grupo")

 

'A variável htmlForm, terá o código HTML do e-mail a ser enviado

htmlForm=request.form("html")

 

'Indicando Driver, local e fazendo a conexao com o banco de dados

'Definindo o Recordset que selecionará somente os e-mails do grupo selecionado

localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("../data/emails.mdb")

set bd=Server.CreateObject("ADODB.Connection")

set rsEmail=Server.CreateObject("ADODB.Recordset")

 

'Abrindo conexao

bd.Open localbd

'Selecionando todos os grupos

rsEmail.Open "SELECT * from emails where grupo="&grupoForm&"", bd

 

'Muito bem, já fizemos as conexões e já selecionamos os e-mails desejados

'Agora bastar utilizar o CDONTS para enviar

 

'Para não enviar o E-mail para um grupo que já tenha cido enviado

'iremos criar um If para que isso não aconteça

'Se o status for igual a 1 ele não enviará e voltará

If rsEmail("status")=1 then

Response.Write "<script>location = 'principal.asp';alert('Este e-mail já foi enviado para este grupo')</script>"

else

 

'Senão, ele executará a ação so CDONTS

'Faremos um while para que ele envie para cada um dos e-mails selecionados

while NOT rsEmail.EOF

 

Set objMail = Server.CreateObject("CDONTS.NewMail") ;) 'linha 40

HTML = " <!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"

HTML = HTML & " <html>"

HTML = HTML & " <head>"

HTML = HTML & " <title>Enviando CDONTS Email Using HTML"

HTML = HTML & " </head>"

HTML = HTML & "<body bgcolor=""FFFFFF"">"

HTML = HTML & "<p><font size =""3"" face=""Arial""><strong>"

HTML = HTML & "Nome Qualquer</strong><br>"

HTML = HTML & "Preenchido por um Cliente</strong></p>"

HTML = HTML & "<p align = ""center"">Texto Texto Texto</p>"

HTML = HTML & "<p align = ""center"">Texto Texto Texto</p>"

HTML = HTML & "</body>"

HTML = HTML & "</html>"

objMail.From = "rodrigo@inbrameq-servcom.com.br"

objMail.To = rsEmail.fields("emails")

objMail.Subject = assunto

objMail.Body = htmlForm

objMail.MailFormat = 0

objMail.BodyFormat = 0

objMail.Send

Set objMail = Nothing

 

bd.EXECUTE " UPDATE emails SET status=0 "

rsEmail.movenext

wend

 

'Mostrando confirmação e voltando

Response.Write "<script>location = 'principal.asp';alert('Seu E-mail foi enviado com sucesso.')</script>"

 

end if

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gutoo    1

Gutoo
Postado

<%

Option Explicit

'Definindo as variáveis de conexão

Dim localbd, bd, objMail, rsEmail, grupoForm, htmlForm

Dim assunto, HTML

 

assunto=request.form("assunto")

'A variável grupoform terá o valor que você selecionou na página anterior

'No caso, o código do grupo de e-mails

grupoForm=request.form("grupo")

 

'A variável htmlForm, terá o código HTML do e-mail a ser enviado

htmlForm=request.form("html")

 

'Indicando Driver, local e fazendo a conexao com o banco de dados

'Definindo o Recordset que selecionará somente os e-mails do grupo selecionado

localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("../data/emails.mdb")

set bd=Server.CreateObject("ADODB.Connection")

set rsEmail=Server.CreateObject("ADODB.Recordset")

 

'Abrindo conexao

bd.Open localbd

'Selecionando todos os grupos

rsEmail.Open "SELECT * from emails where grupo="&grupoForm&"", bd

 

'Muito bem, já fizemos as conexões e já selecionamos os e-mails desejados

'Agora bastar utilizar o CDONTS para enviar

 

'Para não enviar o E-mail para um grupo que já tenha cido enviado

'iremos criar um If para que isso não aconteça

'Se o status for igual a 1 ele não enviará e voltará

If rsEmail("status")=1 then

Response.Write "<script>location = 'principal.asp';alert('Este e-mail já foi enviado para este grupo')</script>"

else

 

'Senão, ele executará a ação so CDONTS

'Faremos um while para que ele envie para cada um dos e-mails selecionados

while NOT rsEmail.EOF

 

Set objMail = Server.CreateObject("CDONTS.NewMail") ;) 'linha 40

HTML = " <!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"

HTML = HTML & " <html>"

HTML = HTML & " <head>"

HTML = HTML & " <title>Enviando CDONTS Email Using HTML"

HTML = HTML & " </head>"

HTML = HTML & "<body bgcolor=""FFFFFF"">"

HTML = HTML & "<p><font size =""3"" face=""Arial""><strong>"

HTML = HTML & "Nome Qualquer</strong><br>"

HTML = HTML & "Preenchido por um Cliente</strong></p>"

HTML = HTML & "<p align = ""center"">Texto Texto Texto</p>"

HTML = HTML & "<p align = ""center"">Texto Texto Texto</p>"

HTML = HTML & "</body>"

HTML = HTML & "</html>"

objMail.From = "rodrigo@inbrameq-servcom.com.br"

objMail.To = rsEmail.fields("emails")

objMail.Subject = assunto

objMail.Body = htmlForm

objMail.MailFormat = 0

objMail.BodyFormat = 0

objMail.Send

Set objMail = Nothing

 

bd.EXECUTE " UPDATE emails SET status=0 "

rsEmail.movenext

wend

 

'Mostrando confirmação e voltando

Response.Write "<script>location = 'principal.asp';alert('Seu E-mail foi enviado com sucesso.')</script>"

 

end if

%>

Fala New,

Velho pelo erro que está passando o problema está sendo na hora de criar o Objeto CDONTS.NewMail

Provavelmente seu servidor não tenha esse componente instalado.

Agora os servidores estão utilizando o CDOSYS ao invés de usar o CDONTS.

 

Solicite os seu servidor que ele te informe se ele tem o CDONTS, caso ele não tenha pergunte qual o componente liberado para esse envio.

 

Caso ele tenha o CDOSYS instalado eu postei um Tópico explicando como enviar mensagens pelo CDOSYS

Só substituir algumas linhas.

http://forum.imasters.com.br/index.php?showtopic=216353

 

Espero ter ajudado.

 

Abraçoo,

Guto

Compartilhar este post

Link para o post
Compartilhar em outros sites

id.cs    0

id.cs
Postado

hum... editou o post, o Gutoo ja disse tudo, caso seu servidor não tenha suporte use outro componente qualquer, JMAIL, ASPMAIL, ASPEMAIL...Flw...

Compartilhar este post

Link para o post
Compartilhar em outros sites

NewUser    0

NewUser
Postado

Foi a primeira coisa q fiz. Liguar para o terra, porem a atendente me falou q tem suporte sim!Mais vou tentar com outro componente!VLW Galera!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

NewUser    0

NewUser
Postado

Usei o script do link citado a cima porem agora ta dando este erro!

 

error '8004020e'

 

/newslleter/enviar.asp, line 37 ' linha 37 é o send

 

Ta feio a coisa viu!!

VLW

Compartilhar este post

Link para o post
Compartilhar em outros sites

NewUser    0

NewUser
Postado

Eu tenho um loop para enivar eails para todo meu BD! esse é meu codigo!

<%Option ExplicitDim localbd, bd, objMail, rsEmail, grupoForm, htmlFormDim assunto, objCDOSYSMail, objCDOSYSConassunto=request.form("assunto")grupoForm=request.form("grupo")htmlForm=request.form("html")localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" &("d:\Webs\inbram\data\emails.mdb")set bd=Server.CreateObject("ADODB.Connection")set rsEmail=Server.CreateObject("ADODB.Recordset")bd.Open localbdrsEmail.Open "SELECT * from emails where grupo="&grupoForm&"", bdIf rsEmail("status")=1 then	Response.Write "<script>location = 'principal.asp';alert('Este e-mail já foi enviado para este grupo')</script>"else				while NOT rsEmail.EOF				Set objCDOSYSMail = Server.CreateObject("CDO.Message")		Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.terra.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.update		Set objCDOSYSMail.Configuration = objCDOSYSCon		objCDOSYSMail.From = "email@dominio.com.br"		objCDOSYSMail.To = rsEmail.fields("emails")		objCDOSYSMail.Subject = assunto		objCDOSYSMail.HtmlBody = htmlForm		objCDOSYSMail.Send		Set objCDOSYSMail = Nothing        Set objCDOSYSCon = Nothing				bd.EXECUTE " UPDATE emails SET status=0 "	rsEmail.movenext	wend		         Response.Write "<script>location = 'principal.asp';alert('Mensagem enviada com sucesso.')</script>"		  end if%>

VLW!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gutoo    1

Gutoo
Postado

Putz cara... ta f*** hein.Faz um teste antes de tudo, tente enviar o meu script apenas... sem utilizar o Loop que você tem.Se funcionar o envio de 1 e-mail único, o problema pode ser nesse Loop para envio a varias contatos.Abraçoo, Gutoo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gutoo    1

Gutoo
Postado

Cara faz o seguinte,

Eu peguei aqui no iMasters um script para que você possa ver quais componentes você tem instalado.

Usa ele ae e veja quais componentes de e-mail você tem instalado.

 




Function VerificaObjeto(pComponente)



Dim objComponente



 On Error Resume Next



 VerificaObjeto = False



 Err.Clear



 Set objComponente = Server.CreateObject(pComponente)



 If Err = 0 Then VerificaObjeto = True



 Set objComponente = Nothing



 Err.Clear



End Function


 



Public Function VerificaComponentes()



Dim intCont, strTxt



Dim intIndex, strProv


 



intCont = 0



 strTxt = "<table border='1' bordercolor='black' cellspacing='0' cellpadding='0' align='center' width='400'>"



 For intIndex = LBound(arrListaComponentes) To UBound(arrListaComponentes)



  strProv = intIndex



  strTxt = strTxt & "<tr><td width='200'><font face='tahoma' size='1'>" & arrListaComponentes(intIndex)(0) & "</font></td>"



  If VerificaObjeto(arrListaComponentes(intIndex)(1)) Then



    strTxt = strTxt & "<td align=center><font color='red' face='tahoma' size='1'>Instalado</font></td>"



    intCont = intCont + 1



  Else



    strTxt = strTxt & "<td align='center'><font face='tahoma' size='1'>Não Instalado</font></td>"



  End If



  strTxt = strTxt & "</tr>"



 Next



 strTxt = strTxt & "</table><p align='center'><font face='tahoma' size='2'><b>" & intCont & "</b> componentes instalados de "



 strTxt = strTxt & "<b>" & UBound(arrListaComponentes) + 1 & "</b> no provedor.</font> </p>"



 VerificaComponentes = strTxt 



End Function


 



Response.Write VerificaComponentes



%> _linenums:0'><%Dim arrListaComponentes(48)arrListaComponentes(0)  = Array( "AB Mailer","ABMailer.Mailman" )arrListaComponentes(1)  = Array( "ABC Upload","ABCUpload4.XForm" )arrListaComponentes(2)  = Array( "ActiveFile","ActiveFile.Post" )arrListaComponentes(3)  = Array( "ActiveX Data Object","ADODB.Connection" )arrListaComponentes(4)  = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" )arrListaComponentes(5)  = Array( "ASP DNS", "AspDNS.Lookup" )arrListaComponentes(6)  = Array( "ASP HTTP","AspHTTP.Conn" )arrListaComponentes(7)  = Array( "ASP Image","AspImage.Image" )arrListaComponentes(8)  = Array( "ASP Mail","SMTPsvg.Mailer" )arrListaComponentes(9)  = Array( "ASP NNTP News", "AspNNTP.Conn" )arrListaComponentes(10) = Array( "ASP POP 3", "POP3svg.Mailer" )arrListaComponentes(11) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" )arrListaComponentes(12) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" )arrListaComponentes(13) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" )arrListaComponentes(14) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" )arrListaComponentes(15) = Array( "ASP Tear","SOFTWING.ASPtear" )arrListaComponentes(16) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" )arrListaComponentes(17) = Array( "ASP WhoIs","WhoIs2.WhoIs" )arrListaComponentes(18) = Array( "ASPSoft NT Object","ASPSoft.NT" )arrListaComponentes(19) = Array( "ASPSoft Upload","ASPSoft.Upload" )arrListaComponentes(20) = Array( "CDO NTS","CDONTS.NewMail" )arrListaComponentes(21) = Array( "Chestysoft Image","csImageFile.Manage" )arrListaComponentes(22) = Array( "Chestysoft Upload","csASPUpload.Process" )arrListaComponentes(23) = Array( "Dimac JMail","JMail.Message" )arrListaComponentes(24) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" )arrListaComponentes(25) = Array( "Dundas Mailer","Dundas.Mailer" )arrListaComponentes(26) = Array( "Dundas Upload","Dundas.Upload.2" )arrListaComponentes(27) = Array( "Dundas PieChartServer", "Dundas.ChartServer.2")arrListaComponentes(28) = Array( "Dundas 2D Chart", "Dundas.ChartServer2D.1")arrListaComponentes(29) = Array( "Dundas 3D Chart", "Dundas.ChartServer")arrListaComponentes(30) = Array( "Dynu Encrypt","Dynu.Encrypt" )arrListaComponentes(31) = Array( "Dynu HTTP","Dynu.HTTP" )arrListaComponentes(32) = Array( "Dynu Mail","Dynu.Email" )arrListaComponentes(33) = Array( "Dynu Upload","Dynu.Upload" )arrListaComponentes(34) = Array( "Dynu WhoIs","Dynu.Whois" )arrListaComponentes(35) = Array( "Easy Mail","EasyMail.SMTP.5" )arrListaComponentes(36) = Array( "File System Object","Scripting.FileSystemObject" )arrListaComponentes(37) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" )arrListaComponentes(38) = Array( "Last Mod","LastMod.FileObj" )arrListaComponentes(39) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" )arrListaComponentes(40) = Array( "Persits ASP JPEG","Persits.Jpeg" )arrListaComponentes(41) = Array( "Persits ASPEmail","Persits.MailSender" )arrListaComponentes(42) = Array( "Persits ASPEncrypt","Persits.CryptoManager" )arrListaComponentes(43) = Array( "Persits File Upload","Persits.Upload.1" )arrListaComponentes(44) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" )arrListaComponentes(45) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" )arrListaComponentes(46) = Array( "Image Size", "ImgSize.Check" )arrListaComponentes(47) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" )arrListaComponentes(48) = Array( "CDOSYS", "CDO.Message" )' Rotina que verifica o componente do array é um objeto.Function VerificaObjeto(pComponente)Dim objComponente On Error Resume Next VerificaObjeto = False Err.Clear Set objComponente = Server.CreateObject(pComponente) If Err = 0 Then VerificaObjeto = True Set objComponente = Nothing Err.ClearEnd FunctionPublic Function VerificaComponentes()Dim intCont, strTxtDim intIndex, strProvintCont = 0 strTxt = "<table border='1' bordercolor='black' cellspacing='0' cellpadding='0' align='center' width='400'>" For intIndex = LBound(arrListaComponentes) To UBound(arrListaComponentes)  strProv = intIndex  strTxt = strTxt & "<tr><td width='200'><font face='tahoma' size='1'>" & arrListaComponentes(intIndex)(0) & "</font></td>"  If VerificaObjeto(arrListaComponentes(intIndex)(1)) Then    strTxt = strTxt & "<td align=center><font color='red' face='tahoma' size='1'>Instalado</font></td>"    intCont = intCont + 1  Else    strTxt = strTxt & "<td align='center'><font face='tahoma' size='1'>Não Instalado</font></td>"  End If  strTxt = strTxt & "</tr>" Next strTxt = strTxt & "</table><p align='center'><font face='tahoma' size='2'><b>" & intCont & "</b> componentes instalados de " strTxt = strTxt & "<b>" & UBound(arrListaComponentes) + 1 & "</b> no provedor.</font> </p>" VerificaComponentes = strTxt End FunctionResponse.Write VerificaComponentes%>



Retirado de:



http://forum.imasters.com.br/index.php?showtopic=8582


 



Abraçoo,



Gutoo



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
NewUser
			  

	
		
	
			 0
	
		
	

		

		

			


	
		NewUser
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			
Cara muito bom este script hen? Maravilha! o Servidor do terra tava me enrolando vários componetes que eles juravam esta instalados e não estava.Porem o CDONSYS esta instalado e ta dando erro!ja estou ficando maluco, mais obrigado pela atenção! vou continuar tentando!VLW!!!


			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
NewUser
			  

	
		
	
			 0
	
		
	

		

		

			


	
		NewUser
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			

Continua dando erros mesmo depois de vários testes!oq tem de errado em meu codigo?


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%Response.Buffer = True%><%dim strnome, strempresa, stremaildim strfone_com, strfone_resdim strcidade, struf, assunto, strMensagemstrnome=Request.Form("nome")strempresa=Request.Form("empresa")stremail=Request.Form("email")strfone_com=Request.Form("fone_com")strfone_res=Request.Form("fone_res")strcidade=Request.Form("cidade")struf=Request.Form("uf")assunto=Request.Form("assunto")strMensagem = strMensagem & "<table width='400' border='0' cellpadding='8' cellspacing='1' bgcolor='#FFFFFF'>"strMensagem = strMensagem & "<tr>"strMensagem = strMensagem & "<td bgcolor='#FFFFFF'><table width='400' border='0' cellspacing='0' cellpadding='2'>"strMensagem = strMensagem & "<tr>"strMensagem = strMensagem & "<td height='35' bgcolor='EFEFEF'><b><font size='4' face='Verdana, Arial, Helvetica, sans-serif'> Mensagem enviada pelo site</font></b></td>"strMensagem = strMensagem & "</tr>"strMensagem = strMensagem & "<tr>"strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><b>Nome</b></font></td>"strMensagem = strMensagem & "</tr>"strMensagem = strMensagem & "<tr>"strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & strnome & "</font></td>"strMensagem = strMensagem & "</tr>"strMensagem = strMensagem & "<tr>"strMensagem = strMensagem & "<td height='20'><b><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>E-mail</font></b></td>"strMensagem = strMensagem & "</tr>"strMensagem = strMensagem & "<tr>"strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & stremail & "</font></td>"strMensagem = strMensagem & "</tr>"strMensagem = strMensagem & "<tr>"strMensagem = strMensagem & "<td height='20'><b><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>Telefone</font></b></td>"strMensagem = strMensagem & "</tr>"strMensagem = strMensagem & "<tr>"strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & strfone & "</font></td>"strMensagem = strMensagem & "</tr>"strMensagem = strMensagem & "<tr>"strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><b>Mensagem</b></font></td>"strMensagem = strMensagem & "</tr>"strMensagem = strMensagem & "<tr>"strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & strMensagem1 & "</font></td>"strMensagem = strMensagem & "</tr>"strMensagem = strMensagem & "</table></td>"strMensagem = strMensagem & "</tr>"strMensagem = strMensagem & "</table>"Set objCDOSYSMail = Server.CreateObject("CDO.Message")Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.terra.com.br"objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60objCDOSYSCon.Fields.updateSet objCDOSYSMail.Configuration = objCDOSYSConobjCDOSYSMail.From = "rodrigo@dominio.com.br"objCDOSYSMail.To = "dhorthys@hotmail.com.br"objCDOSYSMail.Subject = assuntoobjCDOSYSMail.HtmlBody = strMensagemobjCDOSYSMail.SendSet objCDOSYSMail = NothingSet objCDOSYSCon = NothingResponse.Write("<script language=""JavaScript"">")Response.Write("alert('Sua mensagem foi enviada com sucesso');")Response.Write("location.href = ""home.asp"" ")Response.Write("</script>")%>[




VLW pela atenção de novo!!!



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
shumi
			  

	
		
	
			 0
	
		
	

		

		

			


	
		shumi
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			
qual a linha do erro?


			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					






					
				
					
					
					







	

	

		

			
Lene Martins
			  

	
		
	
			 0
	
		
	

		

		

			


	
		Lene Martins
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			

Também estou com problemas!!!!


 


Fiz todo o meu código e dá o erro 


 


error '8004020e' 


 


/cdosys_form.asp, line 84 


 


Olhei a linha 84 e o objeto é objCDOSYSMail.Send..


 


 


 


Não sei resolver... estou desesperada!!!! Alguém pode me ajudar


 


Vou colar aqui o código para ver se alguém me ajuda


 




<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
	'First lets Dim all the variables we need
	Dim objCDOSYSMail
	Dim MyBody
	Dim MyName
	Dim MyAdress
	Dim MyCity
	Dim MyZip
	Dim MyEmail
	Dim MyEmail2
	Dim MySkype
	Dim MyPhone
	Dim MyLing
	Dim MyDVD
	Dim MyComments

	'Now lets get some values for the variables from the form
	MyName = Request.Form("nome")
	MyAdress = Request.Form("adress")
	MyCity = Request.Form("city")
	MyZip = Request.Form("zip")
	MyEmail = Request.Form("email")
	MyEmail2 = Request.Form("email2")
	MySkype = Request.Form("skype")
	MyPhone = Request.Form("phone")
	MyLing = Request.Form("ling")
	MyDVD = Request.Form("dvd")
	MyComments = Request.Form("obs")

	'Now lets build the body of the email from the data in the form
	MyBody = MyBody & "Nome Completo: "& MyName & vbcrlf
	MyBody = MyBody & "Endereço: "& MyAdress & vbcrlf
	MyBody = MyBody & "Cidade/UF: "& MyCity & vbcrlf
	MyBody = MyBody & "Cep.: "& MyZip & vbcrlf
	MyBody = MyBody & "Email: "& MyEmail & vbcrlf
	MyBody = MyBody & "Repetir Email: "& MyEmail2 & vbcrlf
	MyBody = MyBody & "Skype: "& MySkype & vbcrlf
	MyBody = MyBody & "Telefone: "& MyPhone & vbcrlf
	MyBody = MyBody & "Opção de Legenda: "& MyLing & vbcrlf & vbcrlf
	MyBody = MyBody & "Número de DVDs: "& MyDVD & vbcrlf
	MyBody = MyBody & "Observações:" & vbcrlf
	MyBody = MyBody & MyComments

	'Now lets put the variables and other information we need into the mailing script
	'cria o objeto para o envio de e-mail 
Set objCDOSYSMail = Server.CreateObject("CDO.Message") 

'cria o objeto para configuração do SMTP 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 

'SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail-fwd" 

'porta do SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

'porta do CDO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

'timeout 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 

objCDOSYSCon.Fields.update 

'atualiza a configuração do CDOSYS para o envio do e-mail 
Set objCDOSYSMail.Configuration = objCDOSYSCon 

'e-mail do remetente 
objCDOSYSMail.From = MyEmail 

'e-mail do destinatário 
objCDOSYSMail.To = "dvd@videografia.com.br"

'assunto da mensagem 
objCDOSYSMail.Subject = "Formulário de Aquisição" 

'conteúdo da mensagem 
objCDOSYSMail.TextBody = MyBody 


objCDOSYSMail.fields.update 
'envia o e-mail 
objCDOSYSMail.Send 

'destrói os objetos 
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 

response.write ("Email enviado com sucesso!")
%>



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					






					
				
			
			



		

	


	
	

	

	







	

		
			
				Ir para a lista de tópicos
				ASP Clássico
			
		
	

	




	

	

	




						


	

		
	


					

					

	

		
        


	

		
    
			
				
					
					
  • 
				
					
					
  • 
				
					
					
  • 
				
			
		

	


		
            
			

	

		
		

			

				
			

		

	



		
	


					

				

			

			
		

		
		


	×
	

		

			

			

				
			


			
		

	



		

	































	
















		
			
		
		
		
		







	




	







	

		

			

				
Informação importante

				
Ao usar o fórum, você concorda com nossos Termos e condições.

			

			

				  Aceito