Ir para conteúdo

POWERED BY:

Arquivado

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

Guido Possi

Código para Indicação de Página

Por , em ASP Clássico

Recommended Posts

Guido Possi    0

Guido Possi
Postado

Fala ae galéra... estou com um problema em um código de indicação de página usando o componente ASPEMAIL... ele estava pronto mas para ser usado com CDONTS ai eu alterei mas aparece mensagem de erro quando eu envio:

 

" Microsoft VBScript runtime error '800a01b6'

 

Object doesn't support this property or method: 'Mail.AddAddress'

 

/asp/indique/indique.asp, line 53 "

 

Alguém pode me dar uma luz pq não mexo muito com asp mas preciso desse código rodando essa semana.

Esse é o código:

 

<html><head>
</head><body>
<%
Function IsValidEmail(strEmail)
	Dim bIsValid
	bIsValid = True
	
	If Len(strEmail) < 5 Then
		bIsValid = False
	Else
		If Instr(1, strEmail, " ") <> 0 Then
			bIsValid = False
		Else
			If InStr(1, strEmail, "@", 1) < 2 Then
				bIsValid = False
			Else
				If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
					bIsValid = False
				End If
			End If
		End If
	End If
	IsValidEmail = bIsValid
End Function

if Not IsEmpty(Request.QueryString("acao")) Then
	rmt_nome = Trim(Request.QueryString("rmt_nome"))
	rmt_email = Trim(Request.QueryString("rmt_email"))
	dest_nome = Trim(Request.QueryString("dest_nome"))
	dest_email = Trim(Request.QueryString("dest_email"))
	pagina = Request.QueryString("pagina")
	If (IsEmpty(rmt_nome) OR rmt_nome = "" OR IsEmpty(rmt_email) OR rmt_email = "" OR IsEmpty(dest_nome) OR dest_nome = "" OR IsEmpty(dest_email) OR dest_email = "" OR IsEmpty(pagina)) OR pagina = "" Then
		%>
		<b style="color:#FF0000">Todos campos devem <br>ser preenchidos</b><br><br>
		Clique <a href="java script:history.back()">aqui</a> para Voltar
		<%
		Response.End
	End If
	If Not (IsValidEmail(rmt_email) OR IsValidEmail(dest_email)) Then
		%>
		<b style="color:#FF0000">Endereço de<br>e-mail inválido.</b><br><br>
		Clique <a href="java script:history.back()">aqui</a> para Voltar
		<%
		Response.End
	End If		
	str_mensagem = "Oi " & dest_nome & ",<br>Acessei este site, achei interessante e estou indicando a você:<br><a href=" & pagina & ">" & pagina & "</a>"
	'Usar ASPEMAIL ou CDONTS
	
	Set Mail = Server.CreateObject("Persits.MailSender")
	'Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
	Mail.From = rmt_nome & "<" & rmt_email & ">"
	'objCDOMail.From = rmt_nome & "<" & rmt_email & ">"
	Mail.AddAddress = dest_email
	'objCDOMail.To = dest_email
		Mail.Importance = 1
		'objCDOMail.Importance = 1
		Mail.BodyFormat = 0
		'objCDOMail.BodyFormat = 0
		Mail.MailFormat = 0
		'objCDOMail.MailFormat = 0
	Mail.Subject = "Site Indicado por " & rmt_nome
	'objCDOMail.Subject = "Site Indicado por " & rmt_nome
	Mail.Body = str_mensagem
	'objCDOMail.Body = str_mensagem
	Mail.Send
	'objCDOMail.Send
	%>
	Mensagem enviada com sucesso para <br><b><%=dest_nome%>(<%=dest_email%>)!</b><br><br>
	<a href="java script:window.close()">Clique aqui para fechar</a>
<%	
End IF

if IsEmpty(Request.QueryString("acao")) Then
	%>
	  <form action="<%=Request.ServerVariables("URL")%>" method="get">
	  <input type="hidden" name="pagina" value="<%=Request.QueryString("pagina")%>">
	  <input type="hidden" name="acao" value="envia">
	  <b>Preencha os campos para <br>indicar essa página a um amigo</b><br>
	  <fieldset>
	  <legend>Seus dados</legend>
	  Nome: <input type="text" size="20" name="rmt_nome"><br>
	  E-mail: <input type="text" size="20" name="rmt_email"><br>
	  </fieldset>
	  <br>
	  <fieldset>
	  <legend>Dados do seu amigo</legend>
	  Nome: <input type="text" size="20" name="dest_nome"><br>
	  E-mail: <input type="text" size="20" name="dest_email"><br>
	  </fieldset>
	  <input type="submit" value="Enviar">   <a href="java script:window.close()">Clique aqui para fechar</a>

	  </form>	  
<%
End If
%>
</body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Melhor você pesquisar sobre o componente. Pela mensagem não é dessa forma que informa o e-mail

Mail.AddAddress = dest_email

Compartilhar este post

Link para o post
Compartilhar em outros sites

Guido Possi    0

Guido Possi
Postado

Ja pesquisei mas não achei você sabe como ficaria o código?

 

Por favor alguém...

 

esse é o trecho do código...

 

'Usar ASPEMAIL ou CDONTS

 

Set Mail = Server.CreateObject("Persits.MailSender")

'Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

Mail.From = rmt_nome & "<" & rmt_email & ">"

'objCDOMail.From = rmt_nome & "<" & rmt_email & ">"

Mail.AddAddress = dest_email (AQUI É ONDE ESTÁ DANDO O ERRO!!!)

'objCDOMail.To = dest_email

Mail.Importance = 1

'objCDOMail.Importance = 1

Mail.BodyFormat = 0

'objCDOMail.BodyFormat = 0

Mail.MailFormat = 0

'objCDOMail.MailFormat = 0

Mail.Subject = "Site Indicado por " & rmt_nome

'objCDOMail.Subject = "Site Indicado por " & rmt_nome

Mail.Body = str_mensagem

'objCDOMail.Body = str_mensagem

Mail.Send

'objCDOMail.Send

%>

Eu comentei o código para o uso de CDONTS!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Mail.AddAddress dest_email, ""

Compartilhar este post

Link para o post
Compartilhar em outros sites

Guido Possi    0

Guido Possi
Postado

Valeu cara mas continua com erro e a mensagem mudou para:

 

Microsoft VBScript runtime error '800a01b6'

 

Object doesn't support this property or method: 'Mail.Importance'

 

/asp/indique/indique.asp, line 55

 

Alguém pode verificar o código e ver onde está o erro porfavor? Isso deve ser coisa simples galera VAMU LÁ!!!

 

será que o modo como está escrito que está errado (propriedade)?

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

É melhor você pesquisar sobre o componente e não tentar adivinhar como se faz... cada componente é de uma forma.

 

Pesquisa aí e qualquer coisa posta a dúvida que lhe ajudarei.

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