Ir para conteúdo

POWERED BY:

Arquivado

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

Davide Ricardo

CDOSYS - erro na linha do SEND..pke?

Por , em ASP Clássico

Recommended Posts

Davide Ricardo    0

Davide Ricardo
Postado

Pessoal, poderiam ver o que é que está mal aki..esta a dar erro na linha 75 ou seja:

 

objCDOSYSMail.Send

 



Set objCDOSYSMail = Server.CreateObject("CDO.Message") 


 


'CRIA A INSTÂNCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP 


Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 


 


'SERVIDOR DE SMTP, USE smtp.SeuDominio.com OU smtp.hostsys.com.br 


objCDOSYSCon.Fields("http linenums:0'>Dim objCDOSYSMailDim objCDOSYSConcod_tuno=request.form("cod_tuno")nome=request.form("nome")email=request.form("email")comentario=request.form("comentario")rs.Open "SELECT nome,email from tunos where cod_tuno="&cod_tuno&"", meubd'CRIA A INSTÂNCIA COM O OBJETO CDOSYSSet objCDOSYSMail = Server.CreateObject("CDO.Message") 'CRIA A INSTÂNCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SERVIDOR DE SMTP, USE smtp.SeuDominio.com OU smtp.hostsys.com.br objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'PORTA DO CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'ATIVAR RECURSO DE SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1'USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "meuuser"'SENHA DO USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "minhasenha" 'TEMPO DE TIMEOUT (EM SEGUNDOS) objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 'ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon 'NOME DO REMETENTE, E-MAIL DO REMETENTE objCDOSYSMail.From = ""&nome&" <"&email&">" 'NOME DO DESINATÁRIO, E-MAIL DO DESINATÁRIO objCDOSYSMail.To = ""&rs("nome")&" <"&rs("email")&">" 'ASSUNTO DA MENSAGEM objCDOSYSMail.Subject = "O meu assunto"'CONTEÚDO DA MENSAGEM'objCDOSYSMail.TextBody = "TUNADÃO 1998 - Tuna do Instituto Superior Politecnico de Viseu"'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBodyobjCDOSYSMail.HtmlBody = "<HTML><BODY bgcolor=#FFF><font style=""font-family:Tahoma,Arial;font-size: 8px;"">"&comentario&"</font></BODY></HTML>" 'ENVIA A MENSAGEM objCDOSYSMail.Send 'DESTRÓI OS OBJETOS Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing Response.write "<script>history.back(1);alert('Mensagem Enviada com Sucesso..')</script>"



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
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