ERRO AO ENVIAR EMAIIL POR FORMULARIO....
ALGUEM PODERIA ME AJUDAR COM ESTE SCRIPT DE ENVIO AUTOMATICO DE EMAIL???
ELE DÃ O SEGUINTE ERRO:
[txt-color=#e80000]
Persits.MailSender.4 error [ô]800a0004[ô]
Connection refused.
E:\HOME\OCULTO\WEB\HTML\../ASP/COMUM/adocliente.asp, line 174 [/txt-color]
<%
Function Seguranca()
if Session([Ô]CliCodigo[Ô]) = [Ô][Ô] then
response.Redirect [Ô]LogOff.Asp[Ô]
End If
End Function
Function ClientExists(cpf)
ClientExists = 0
Sql = [Ô][Ô]
Sql = Sql & [Ô]Select * From clientes where cpf = [ô][Ô] & cpf & [Ô][ô][Ô]
Set rs = Conn.execute(Sql)
if not rs.eof then
[ô]Existe
ClientExists = rs([Ô]codcliente[Ô])
end if
rs.close
set rs = nothing
End function
Function ClientLogin(apelido, senha)
ClientLogin = 0
Sql = [Ô][Ô]
Sql = Sql & [Ô]Select codcliente, nome, cpf, data_cadastro, email, liberado, apelido From clientes where apelido = [ô][Ô] & apelido & [Ô][ô] and Senha = [ô][Ô] & Senha & [Ô][ô] and liberado=1 [Ô]
Set rs = Conn.execute(Sql)
if not rs.eof then
[ô]Existe
ClientLogin = rs([Ô]Codcliente[Ô])
Session([Ô]CliCodigo[Ô]) = rs([Ô]Codcliente[Ô])
Session([Ô]CliNome[Ô]) = rs([Ô]Nome[Ô])
Session([Ô]CliApelido[Ô]) = rs([Ô]apelido[Ô])
Session([Ô]CliEmail[Ô]) = rs([Ô]Email[Ô])
Session([Ô]CliCPF[Ô]) = rs([Ô]CPF[Ô])
Session([Ô]CliCadastro[Ô]) = rs([Ô]data_cadastro[Ô])
Session([Ô]CliLanca[Ô]) = rs([Ô]liberado[Ô])
if Session([Ô]EndeAtual[Ô]) <> [Ô][Ô] then
tmp = Session([Ô]EndeAtual[Ô])
Session([Ô]EndeAtual[Ô]) = [Ô][Ô]
response.Redirect tmp
end if
if request([Ô]type[Ô]) = [Ô]1[Ô] then response.Redirect [Ô]cadastropainel.asp[Ô]
else
ClientLogin = [Ô]Usuário ou senha incorretos.[Ô]
end if
rs.close
set rs = nothing
End function
Sub ClienteInsert()
Cpf = clean(Cpf)
Ip = request.ServerVariables([Ô]REMOTE_ADDR[Ô])
Sql = [Ô][Ô]
Sql = Sql & [Ô]Insert into clientes [Ô]
Sql = Sql & [Ô](cpf, data_cadastro, apelido, ip)[Ô]
Sql = Sql & [Ô] values [Ô]
Sql = Sql & [Ô]([ô][Ô] & Cpf & [Ô][ô], now(), [ô][Ô] & apelido & [Ô][ô], [ô][Ô] & Ip & [Ô][ô])[Ô]
Conn.Execute(Sql)
Set rr = Conn.Execute([Ô]Select Last_Insert_Id()[Ô])
ClientUpdate(rr(0))
ClientSendConf(rr(0))
rr.close
set rr = nothing
End Sub
Sub ClientUpdate(CodCliente)
Cpf = clean(Cpf)
RG = request.form([Ô]txtRG[Ô])
Nome = ucase(safe_sql(request.form([Ô]txtNome[Ô])))
Email = lcase(safe_sql(request.form([Ô]Email[Ô])))
CEP = clean(request.form([Ô]txtCEP[Ô]))
Endereco = ucase(safe_sql(request.form([Ô]txtEndereco[Ô])))
Numero = request.form([Ô]txtNumero[Ô])
Bairro = ucase(safe_sql(request.form([Ô]txtBairro[Ô])))
Cidade = ucase(safe_sql(request.form([Ô]txtCidade[Ô])))
Estado = ucase(safe_sql(request.form([Ô]txtEstado[Ô])))
Fone = clean(request.form([Ô]txtFone[Ô]))
Celular = clean(request.form([Ô]txtCelular[Ô]))
Ip = request.ServerVariables([Ô]REMOTE_ADDR[Ô])
Senha = safe_sql(request([Ô]txtSenha[Ô]))
Complemento = safe_sql(request.form([Ô]TxtComplemento[Ô]))
[ô]Dados para pessoa juridica
CpfRep = clean(request.form([Ô]txtCPFRep[Ô]))
RGRep = request.form([Ô]txtRGRep[Ô])
NomeRep = ucase(safe_sql(request.form([Ô]txtNomeRep[Ô])))
Email2 = lcase(safe_sql(request.form([Ô]Email2[Ô])))
CNH = lcase(safe_sql(request.form([Ô]txtCNH[Ô])))
Nacionalidade = safe_sql(request.form([Ô]txtNacionalidade[Ô]))
Sql = [Ô][Ô]
Sql = Sql & [Ô]Update clientes Set [Ô]
Sql = Sql & [Ô]Rg = [ô][Ô] & RG & [Ô][ô], Nome = [ô][Ô] & Nome & [Ô][ô], Email = [ô][Ô] & Email & [Ô][ô], CEP = [ô][Ô] & CEP & [Ô][ô], [Ô]
Sql = Sql & [Ô]Endereco = [ô][Ô] & Endereco & [Ô][ô], Numero = [ô][Ô] & Numero & [Ô][ô], Bairro = [ô][Ô] & Bairro & [Ô][ô], [Ô]
Sql = Sql & [Ô]Cidade = [ô][Ô] & Cidade & [Ô][ô], Estado = [ô][Ô] & Estado & [Ô][ô], Telefone = [ô][Ô] & Fone & [Ô][ô], [Ô]
Sql = Sql & [Ô]Celular = [ô][Ô] & Celular & [Ô][ô], ip = [ô][Ô] & Ip & [Ô][ô], Senha = [ô][Ô] & Senha & [Ô][ô], [Ô]
Sql = Sql & [Ô]nome_rep=[ô][Ô] & NomeRep & [Ô][ô], cpf_rep=[ô][Ô] & CpfRep & [Ô][ô], rg_rep=[ô][Ô] & RGRep & [Ô][ô], [Ô]
Sql = Sql & [Ô]email2=[ô][Ô] & Email2 & [Ô][ô], Complemento = [ô][Ô] & Complemento & [Ô][ô], cnh = [ô][Ô] & CNH & [Ô][ô], [Ô]
Sql = Sql & [Ô]nacionalidade = [ô][Ô] & Nacionalidade & [Ô][ô] [Ô]
Sql = Sql & [Ô]Where codcliente = [Ô] & CodCliente
Sql = Sql & [Ô] Limit 1[Ô]
if toNumber(CodCliente) > 0 then
[ô]BackUP
[ô]Conn.Execute([Ô]insert into arre_historico (select * from arrematantes where codigo=[ô][Ô] & CodCliente & [Ô][ô])[Ô])
[ô]Altera
Conn.Execute(Sql)
Session([Ô]CadOK[Ô]) = 1
end if
End Sub
function ClientSendConf(CodCliente)
if toNumber(CodCliente) = 0 then
ClientSendConf = [Ô]Erro![Ô]
Exit Function
end if
Set Rs = Conn.execute([Ô]Select * From clientes Where CodCliente = [Ô] & CodCliente)
if Not Rs.eof then
CliNome = Rs([Ô]Nome[Ô])
CliEmail = Rs([Ô]Email[Ô])
CliCPF = rs([Ô]CPF[Ô])
CliApelido = rs([Ô]apelido[Ô])
CliSenha = rs([Ô]Senha[Ô])
else
ClientSendConf = [Ô]Erro![Ô]
Exit Function
end if
Rs.Close
set Rs = Nothing
[ô]Email para o usuário
msg = [Ô]<font face=[ô]Tahoma, arial[ô] size=2>[Ô]
msg = msg & PoeData() & [Ô]<br><br>[Ô]
msg = msg & [Ô]Prezado Cliente, <br>[Ô]
msg = msg & [Ô]Seu cadastro foi efetuado com sucesso! <br>Aguarde o e-mail com a liberação de seu acesso!<br><br>[Ô]
msg = msg & [Ô]Nome: [Ô] & CliNome & [Ô]<br>[Ô]
msg = msg & [Ô]CPF: [Ô] & CliCPF & [Ô]<br>[Ô]
msg = msg & [Ô]Apelido: [Ô] & CliApelido & [Ô]<br>[Ô]
msg = msg & [Ô]Senha: [Ô] & CliSenha & [Ô]<br><br><br>[Ô]
msg = msg & [Ô]<br><br> Atenciosamente, <br> oculto </font>[Ô]
Set Mail = Server.CreateObject([Ô]Persits.MailSender[Ô])
Mail.Host = [Ô]smtp.oculto.com.br[Ô]
Mail.Port = 587
Mail.UserName=[Ô]cadastro@oculto.com.br[Ô]
Mail.Password=[Ô]oculto[Ô]
Mail.From = [Ô]cadastro@oculto.com.br[Ô]
Mail.FromName = [Ô]Cadastro oculto[Ô]
Mail.AddAddress = CliEmail
Mail.Subject = [Ô]Cadastro - oculto(OnLine)[Ô]
[ô] message body
Mail.IsHTML = true
Mail.Body = msg
[ô] On Error Resume Next [ô] catch errors
Mail.Send [ô] send message [ô](Linha do Erro)
If Err.Number > 0 Then [ô] error occurred
[ô]response.write CliEmail
[ô]response.write err.Description
[ô]response.end
ClientSendConf = Err
else
ClientSendConf = [Ô][Ô]
End If
[ô]Email para o administrador
msg = [Ô]<font face=[ô]Tahoma, arial[ô] size=2>[Ô]
msg = msg & PoeData() & [Ô]<br><br>[Ô]
msg = msg & [Ô]Sr(s). Administrador(a), <br>[Ô]
msg = msg & [Ô]Um cadastro foi efetuado no leilão on-line! <br>O Usuário está aguardando a liberação de seu acesso!<br><br>[Ô]
msg = msg & [Ô]Nome: [Ô] & CliNome & [Ô]<br>[Ô]
msg = msg & [Ô]CPF: [Ô] & CliCPF & [Ô]<br>[Ô]
msg = msg & [Ô]Apelido: [Ô] & CliApelido & [Ô]<br>[Ô]
msg = msg & [Ô]Senha: ******* <br><br><br>[Ô]
msg = msg & [Ô]<br><br> Atenciosamente, <br> WebMaster </font>[Ô]
Set Mail = Server.CreateObject([Ô]Persits.MailSender[Ô])
Mail.Host = [Ô]smtp.oculto.com.br[Ô]
Mail.Port = 587
Mail.UserName=[Ô]cadastro@oculto.com.br[Ô]
Mail.Password=[Ô]oculto[Ô]
Mail.From = [Ô]cadastro@oculto.com.br[Ô]
Mail.FromName = [Ô]oculto[Ô]
Mail.AddAddress [Ô]online@oculto.com.br[Ô]
[ô] Mail.AddAddress [Ô]junior.silva@yahoo.com.br[Ô]
Mail.Subject = [Ô]Cadastro - oculto (OnLine)[Ô]
[ô] message body
Mail.IsHTML=true
Mail.Body = msg
On Error Resume Next [ô] catch errors
Mail.Send [ô] send message
If Err.Number > 0 Then [ô] error occurred
[ô]response.write CliEmail
[ô]response.write err.Description
[ô]response.end
ClientSendConf = Err
else
ClientSendConf = [Ô][Ô]
End If
end function
%>
ELE DÃ O SEGUINTE ERRO:
[txt-color=#e80000]
Persits.MailSender.4 error [ô]800a0004[ô]
Connection refused.
E:\HOME\OCULTO\WEB\HTML\../ASP/COMUM/adocliente.asp, line 174 [/txt-color]
<%
Function Seguranca()
if Session([Ô]CliCodigo[Ô]) = [Ô][Ô] then
response.Redirect [Ô]LogOff.Asp[Ô]
End If
End Function
Function ClientExists(cpf)
ClientExists = 0
Sql = [Ô][Ô]
Sql = Sql & [Ô]Select * From clientes where cpf = [ô][Ô] & cpf & [Ô][ô][Ô]
Set rs = Conn.execute(Sql)
if not rs.eof then
[ô]Existe
ClientExists = rs([Ô]codcliente[Ô])
end if
rs.close
set rs = nothing
End function
Function ClientLogin(apelido, senha)
ClientLogin = 0
Sql = [Ô][Ô]
Sql = Sql & [Ô]Select codcliente, nome, cpf, data_cadastro, email, liberado, apelido From clientes where apelido = [ô][Ô] & apelido & [Ô][ô] and Senha = [ô][Ô] & Senha & [Ô][ô] and liberado=1 [Ô]
Set rs = Conn.execute(Sql)
if not rs.eof then
[ô]Existe
ClientLogin = rs([Ô]Codcliente[Ô])
Session([Ô]CliCodigo[Ô]) = rs([Ô]Codcliente[Ô])
Session([Ô]CliNome[Ô]) = rs([Ô]Nome[Ô])
Session([Ô]CliApelido[Ô]) = rs([Ô]apelido[Ô])
Session([Ô]CliEmail[Ô]) = rs([Ô]Email[Ô])
Session([Ô]CliCPF[Ô]) = rs([Ô]CPF[Ô])
Session([Ô]CliCadastro[Ô]) = rs([Ô]data_cadastro[Ô])
Session([Ô]CliLanca[Ô]) = rs([Ô]liberado[Ô])
if Session([Ô]EndeAtual[Ô]) <> [Ô][Ô] then
tmp = Session([Ô]EndeAtual[Ô])
Session([Ô]EndeAtual[Ô]) = [Ô][Ô]
response.Redirect tmp
end if
if request([Ô]type[Ô]) = [Ô]1[Ô] then response.Redirect [Ô]cadastropainel.asp[Ô]
else
ClientLogin = [Ô]Usuário ou senha incorretos.[Ô]
end if
rs.close
set rs = nothing
End function
Sub ClienteInsert()
Cpf = clean(Cpf)
Ip = request.ServerVariables([Ô]REMOTE_ADDR[Ô])
Sql = [Ô][Ô]
Sql = Sql & [Ô]Insert into clientes [Ô]
Sql = Sql & [Ô](cpf, data_cadastro, apelido, ip)[Ô]
Sql = Sql & [Ô] values [Ô]
Sql = Sql & [Ô]([ô][Ô] & Cpf & [Ô][ô], now(), [ô][Ô] & apelido & [Ô][ô], [ô][Ô] & Ip & [Ô][ô])[Ô]
Conn.Execute(Sql)
Set rr = Conn.Execute([Ô]Select Last_Insert_Id()[Ô])
ClientUpdate(rr(0))
ClientSendConf(rr(0))
rr.close
set rr = nothing
End Sub
Sub ClientUpdate(CodCliente)
Cpf = clean(Cpf)
RG = request.form([Ô]txtRG[Ô])
Nome = ucase(safe_sql(request.form([Ô]txtNome[Ô])))
Email = lcase(safe_sql(request.form([Ô]Email[Ô])))
CEP = clean(request.form([Ô]txtCEP[Ô]))
Endereco = ucase(safe_sql(request.form([Ô]txtEndereco[Ô])))
Numero = request.form([Ô]txtNumero[Ô])
Bairro = ucase(safe_sql(request.form([Ô]txtBairro[Ô])))
Cidade = ucase(safe_sql(request.form([Ô]txtCidade[Ô])))
Estado = ucase(safe_sql(request.form([Ô]txtEstado[Ô])))
Fone = clean(request.form([Ô]txtFone[Ô]))
Celular = clean(request.form([Ô]txtCelular[Ô]))
Ip = request.ServerVariables([Ô]REMOTE_ADDR[Ô])
Senha = safe_sql(request([Ô]txtSenha[Ô]))
Complemento = safe_sql(request.form([Ô]TxtComplemento[Ô]))
[ô]Dados para pessoa juridica
CpfRep = clean(request.form([Ô]txtCPFRep[Ô]))
RGRep = request.form([Ô]txtRGRep[Ô])
NomeRep = ucase(safe_sql(request.form([Ô]txtNomeRep[Ô])))
Email2 = lcase(safe_sql(request.form([Ô]Email2[Ô])))
CNH = lcase(safe_sql(request.form([Ô]txtCNH[Ô])))
Nacionalidade = safe_sql(request.form([Ô]txtNacionalidade[Ô]))
Sql = [Ô][Ô]
Sql = Sql & [Ô]Update clientes Set [Ô]
Sql = Sql & [Ô]Rg = [ô][Ô] & RG & [Ô][ô], Nome = [ô][Ô] & Nome & [Ô][ô], Email = [ô][Ô] & Email & [Ô][ô], CEP = [ô][Ô] & CEP & [Ô][ô], [Ô]
Sql = Sql & [Ô]Endereco = [ô][Ô] & Endereco & [Ô][ô], Numero = [ô][Ô] & Numero & [Ô][ô], Bairro = [ô][Ô] & Bairro & [Ô][ô], [Ô]
Sql = Sql & [Ô]Cidade = [ô][Ô] & Cidade & [Ô][ô], Estado = [ô][Ô] & Estado & [Ô][ô], Telefone = [ô][Ô] & Fone & [Ô][ô], [Ô]
Sql = Sql & [Ô]Celular = [ô][Ô] & Celular & [Ô][ô], ip = [ô][Ô] & Ip & [Ô][ô], Senha = [ô][Ô] & Senha & [Ô][ô], [Ô]
Sql = Sql & [Ô]nome_rep=[ô][Ô] & NomeRep & [Ô][ô], cpf_rep=[ô][Ô] & CpfRep & [Ô][ô], rg_rep=[ô][Ô] & RGRep & [Ô][ô], [Ô]
Sql = Sql & [Ô]email2=[ô][Ô] & Email2 & [Ô][ô], Complemento = [ô][Ô] & Complemento & [Ô][ô], cnh = [ô][Ô] & CNH & [Ô][ô], [Ô]
Sql = Sql & [Ô]nacionalidade = [ô][Ô] & Nacionalidade & [Ô][ô] [Ô]
Sql = Sql & [Ô]Where codcliente = [Ô] & CodCliente
Sql = Sql & [Ô] Limit 1[Ô]
if toNumber(CodCliente) > 0 then
[ô]BackUP
[ô]Conn.Execute([Ô]insert into arre_historico (select * from arrematantes where codigo=[ô][Ô] & CodCliente & [Ô][ô])[Ô])
[ô]Altera
Conn.Execute(Sql)
Session([Ô]CadOK[Ô]) = 1
end if
End Sub
function ClientSendConf(CodCliente)
if toNumber(CodCliente) = 0 then
ClientSendConf = [Ô]Erro![Ô]
Exit Function
end if
Set Rs = Conn.execute([Ô]Select * From clientes Where CodCliente = [Ô] & CodCliente)
if Not Rs.eof then
CliNome = Rs([Ô]Nome[Ô])
CliEmail = Rs([Ô]Email[Ô])
CliCPF = rs([Ô]CPF[Ô])
CliApelido = rs([Ô]apelido[Ô])
CliSenha = rs([Ô]Senha[Ô])
else
ClientSendConf = [Ô]Erro![Ô]
Exit Function
end if
Rs.Close
set Rs = Nothing
[ô]Email para o usuário
msg = [Ô]<font face=[ô]Tahoma, arial[ô] size=2>[Ô]
msg = msg & PoeData() & [Ô]<br><br>[Ô]
msg = msg & [Ô]Prezado Cliente, <br>[Ô]
msg = msg & [Ô]Seu cadastro foi efetuado com sucesso! <br>Aguarde o e-mail com a liberação de seu acesso!<br><br>[Ô]
msg = msg & [Ô]Nome: [Ô] & CliNome & [Ô]<br>[Ô]
msg = msg & [Ô]CPF: [Ô] & CliCPF & [Ô]<br>[Ô]
msg = msg & [Ô]Apelido: [Ô] & CliApelido & [Ô]<br>[Ô]
msg = msg & [Ô]Senha: [Ô] & CliSenha & [Ô]<br><br><br>[Ô]
msg = msg & [Ô]<br><br> Atenciosamente, <br> oculto </font>[Ô]
Set Mail = Server.CreateObject([Ô]Persits.MailSender[Ô])
Mail.Host = [Ô]smtp.oculto.com.br[Ô]
Mail.Port = 587
Mail.UserName=[Ô]cadastro@oculto.com.br[Ô]
Mail.Password=[Ô]oculto[Ô]
Mail.From = [Ô]cadastro@oculto.com.br[Ô]
Mail.FromName = [Ô]Cadastro oculto[Ô]
Mail.AddAddress = CliEmail
Mail.Subject = [Ô]Cadastro - oculto(OnLine)[Ô]
[ô] message body
Mail.IsHTML = true
Mail.Body = msg
[ô] On Error Resume Next [ô] catch errors
Mail.Send [ô] send message [ô](Linha do Erro)
If Err.Number > 0 Then [ô] error occurred
[ô]response.write CliEmail
[ô]response.write err.Description
[ô]response.end
ClientSendConf = Err
else
ClientSendConf = [Ô][Ô]
End If
[ô]Email para o administrador
msg = [Ô]<font face=[ô]Tahoma, arial[ô] size=2>[Ô]
msg = msg & PoeData() & [Ô]<br><br>[Ô]
msg = msg & [Ô]Sr(s). Administrador(a), <br>[Ô]
msg = msg & [Ô]Um cadastro foi efetuado no leilão on-line! <br>O Usuário está aguardando a liberação de seu acesso!<br><br>[Ô]
msg = msg & [Ô]Nome: [Ô] & CliNome & [Ô]<br>[Ô]
msg = msg & [Ô]CPF: [Ô] & CliCPF & [Ô]<br>[Ô]
msg = msg & [Ô]Apelido: [Ô] & CliApelido & [Ô]<br>[Ô]
msg = msg & [Ô]Senha: ******* <br><br><br>[Ô]
msg = msg & [Ô]<br><br> Atenciosamente, <br> WebMaster </font>[Ô]
Set Mail = Server.CreateObject([Ô]Persits.MailSender[Ô])
Mail.Host = [Ô]smtp.oculto.com.br[Ô]
Mail.Port = 587
Mail.UserName=[Ô]cadastro@oculto.com.br[Ô]
Mail.Password=[Ô]oculto[Ô]
Mail.From = [Ô]cadastro@oculto.com.br[Ô]
Mail.FromName = [Ô]oculto[Ô]
Mail.AddAddress [Ô]online@oculto.com.br[Ô]
[ô] Mail.AddAddress [Ô]junior.silva@yahoo.com.br[Ô]
Mail.Subject = [Ô]Cadastro - oculto (OnLine)[Ô]
[ô] message body
Mail.IsHTML=true
Mail.Body = msg
On Error Resume Next [ô] catch errors
Mail.Send [ô] send message
If Err.Number > 0 Then [ô] error occurred
[ô]response.write CliEmail
[ô]response.write err.Description
[ô]response.end
ClientSendConf = Err
else
ClientSendConf = [Ô][Ô]
End If
end function
%>
Pessoal... alguém pode me ajudar?
Verifique se:
- Servidor SMTP é mesmo [Ô]smtp.oculto.com.br[Ô]
- Usuário e senha são mesmo: [Ô]cadastro@oculto.com.br[Ô] e [Ô]oculto[Ô]
- Se a conta [Ô]cadastro@oculto.com.br[Ô] realmente existe no servidor de e-mail
O erro está acontecendo por causa de um ou mais desses fatores.
- Servidor SMTP é mesmo [Ô]smtp.oculto.com.br[Ô]
- Usuário e senha são mesmo: [Ô]cadastro@oculto.com.br[Ô] e [Ô]oculto[Ô]
- Se a conta [Ô]cadastro@oculto.com.br[Ô] realmente existe no servidor de e-mail
O erro está acontecendo por causa de um ou mais desses fatores.
pessoal, acertei.... era o problema da porta.... agora o erro é esse:
[txt-color=#e80000]
Microsoft VBScript runtime error [ô]800a01b6[ô]
Object doesn[ô]t support this property or method: [ô]Mail.AddAddress[ô]
E:\HOME\MAUROLEILOES\WEB\HTML\../ASP/COMUM/adocliente.asp, line 170 [/txt-color]
[txt-color=#e80000]
Microsoft VBScript runtime error [ô]800a01b6[ô]
Object doesn[ô]t support this property or method: [ô]Mail.AddAddress[ô]
E:\HOME\MAUROLEILOES\WEB\HTML\../ASP/COMUM/adocliente.asp, line 170 [/txt-color]
Quer dizer que o objeto Mail, não possui a propriedade AddAddress... tente:
Mail.Address = [Ô]xxxx[Ô]
Mail.Address = [Ô]xxxx[Ô]
CARA VALEW PELA AJUDA, MAS ONTEM MESMO CONSEGUI RESOLVER......... é QUE é UM SITE PRONTO E O CARA SUMIU E TÃ CHEIO DE BUGZINHOS..... DAI PEDIRAM PRA MIM RESOLVER ISSO...... MAS TO CONSEGUINDO COM A AJUDA DE VCS!!!!!
OBRIGADO PELA ATENÇÃO KERPLUNK...
VEM MAIS POST POR AI!!!!!
OBRIGADO PELA ATENÇÃO KERPLUNK...
VEM MAIS POST POR AI!!!!!
Tópico encerrado , respostas não são mais permitidas