Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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>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>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>Carregando comentários...