Sistema de "indique o site" em ASPEMAIL

[Domination 0]

Bom dia, galera

 

Estou precisando criar um código de um sistema de "indique o site" com o componente "ASPEMAIL", na real preciso que alguém me passe pelo menos o código básico, pq não estou achando.....

 

Bom, é isso galera!

 

desde já agradeço.

 

 

Obrigado!

[sr.silva 1]

Laboratório de Scripts http://forum.imasters.com.br/public/style_emoticons/default/seta.gif http://forum.imasters.com.br/index.php?showtopic=265564

 

[]´s ;)

[Domination 0]

Seguindo alguns passos transformei meu código de sistema de indica site em asp que estava com o componente cdontys para aspemail ou pelo menos eu tentei...

 

O problema com o código abaixo é que ele funciona, porém não está chegando nada em meu email, devo estar errando em algum ponto de envio, alguém poderia dar uma olhada e ver aonde devo estar errando??

 

<% 

'Aqui chamamos a sub enviar quando o formulário for enviado.
if request.Form("Submit")="Enviar" then
Call enviar()
End if


Sub enviar()
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.dglnet.com.br"
Mail.FromName = Request ("email1")
Mail.AddAddress "email2"
Mail.isHTML = True  
Mail.Subject = "Site do seu interesse" 
Mail.Body = "Olá " & request.form("nome2") &" acredito que este site seja do seu interesse, visite-o:"&"<p><a href=http://www.msasbo.com.br>Metalúrgica MSA</a></p>"
msg = "Enviado com sucesso!"
On Error Resume Next 
Mail.Send 
If Err <> 0 Then 
   strErr = Err.Description 
End If


response.Write("<script language = 'javascript'>")
response.Write("alert('" & msg &"');")
response.Write("</script>")
End sub

Set Mail = Nothing

%>

É isso ai..

 

abraços!

:D

[Ted k' 126]

por desencargo coloque junto o request:

 

Mail.FromName = Request.form("email1")

 

 

 

retire o "On Error Resume Next" pra gente ver o erro, se estiver dando

[Domination 0]

Fala ae ted k´, fiz o que você disse e deu o seguinte erro:

 

Persits.MailSender.4 error '800a0006'

 

501 5.1.7 Bad sender address syntax

 

/making/index.asp, line 190

 

 

essa linha aqui:

 

Mail.Send

logo essa...

 

veja.

[Ted k' 126]

essa linha está errada:

Mail.AddAddress "email2"

 

se email2 é uma variável você tem que concaternar

 

Mail.AddAddress ""&email2&""

agora não lembro se tem a igualdade "=" entre o Mail.AddAddress e a variável ""&email2&""

 

mais faça a concatenação primeiro!

[Domination 0]

vamos lá!

 

bom, fiz tudo com e sem a igualdade "="..

 

sem a "=" deu o seguinte erro:

 

Persits.MailSender.4 error '800a0006'

 

501 5.1.7 Bad sender address syntax

 

/making/index.asp, line 190

 

O mesmo erro de antes, então acho que não adiantou muito, porém, ted k´com o sinal de "=" deu o seguinte erro:

 

Microsoft VBScript runtime error '800a01b6'

 

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

 

/making/index.asp, line 185

 

ou seja, acho que deve ser com o sinal de "=", porém agora devo estar errando nessa linha...

 

Pow, cara, valew pelas ajudas que você está dando.

 

:D

[Ted k' 126]

realmente é sem o sinal mais motre agora como está seu código!

[Domination 0]

Esse é o meu código, ele está assim:

 

<% 

if request.Form("Submit")="Enviar" then
Call enviar()
End if


Sub enviar()
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.dglnet.com.br"
Mail.FromName = Request.form("email1") 
Mail.AddAddress = ""&email2&""
Mail.isHTML = True  
Mail.Subject = "Site do seu interesse" 
Mail.Body = "Olá " & request.form("nome2") &" acredito que este site seja do seu interesse, visite-o:"&"<p><a href=http://www.msasbo.com.br>Metalúrgica MSA</a></p>"
msg = "Enviado com sucesso!"
Mail.Send 
If Err <> 0 Then 
   strErr = Err.Description 
End If


response.Write("<script language = 'javascript'>")
response.Write("alert('" & msg &"');")
response.Write("</script>")
End sub

Set Mail = Nothing

%>

[Ted k' 126]

1ª pergunta, você pessa que valor nesse email2??? Tá puxando os valores para colocar na variável de onde??

 

2ª você tem esse componente instalado?

[Domination 0]

Esse email2 é referente ao email do cara que vai receber a indicação...

 

e estou testando o sistema online num diretório temporário.

[sr.silva 1]

Utilizou a classe recomandada?

 

[]´s ;)

[Ted k' 126]

Esse email2 é referente ao email do cara que vai receber a indicação...

certo mais não ejo você fazer referência a esse objeto, você criou a referência?

 

ex:

 

email2 = request.form("campo_email")

[Domination 0]

Achei que fosse essa:

 

Mail.AddAddress = ("email2")

[Ted k' 126]

sim cara mais essa variável parece que não está recebendo valores!!!

[Domination 0]

Microsoft VBScript runtime error '800a01b6'

 

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

 

/making/index.asp, line 186

 

ou seja, me parece que o servidor não suporta aspemail, e o mais estranho é que dizem que suportam....

[Ted k' 126]

você deixou a igualdade foi?

 

caso for isso, retire a igualdade e minha afirmação não quer me calar:

 

sim cara mais essa variável parece que não está recebendo valores!!!!

[Domination 0]

da o mesmo erro...com ou sem igualdade....

[Ted k' 126]

Rapaz você ainda não me respondeu, da onde está vindo o valor da variável email2???

 

vem de um for, de uma query, e onde você coloca esse valor pois você só colocou o nome da variavel

[Domination 0]

Seguinte Ted k´ o valor dessa variável seria qualquer email que eu colocar lá, não se trata de uma informação do banco de dados e sim do email que irá receber a indicação, ou seja, entro no site e indico o site pra você, então colocarei o seu email nessa caixa "email2"...

 

e o que eu não estou conseguindo é fazer com que o código interprete que lá será o valor do email que irá receber, ou seja qq email...