2 replies to this topic

[NOVAZOO]

Estou com sérios problemas com um sistema para envio de newsletter.
A linha "Mailer.AddRecipient" está me retornando um erro.

Vejam o código

1. email = destinatarios("email")  ' recebe o endereço de email do banco.
    
2.  set Mailer = Server.CreateObject("SMTPsvg.Mailer") 
3.  mailer.FromAddress = "newsletter@EMISSOR.com.br"
4.  Mailer.FromName = "NOME DO EMISSOR"
5.  Mailer.Subject = "TITULO - "&data
6.  Mailer.ContentType = "text/html"
7.  Mailer.BodyText = mensagem
8.  Mailer.AddRecipient email   'utiliza a variavel "email" para passar o endereço.
9.  Mailer.RemoteHost = "smtp.terraempresas.com.br" 

' VERIFICA SE HOUVE ENVIO
IF Mailer.SendMail THEN 
Response.Write "<span class=h1>" & x & "- " & email &"</span><br /><br />"
ELSE
Response.Write "<span class=h1>Falhou o envio.</span>" 
END IF 
	
SET Mailer = nothing 

A Linha 8 me retorna o seguinte erro:

Microsoft VBScript runtime error '800a01c2' 
Wrong number of arguments or invalid property assignment: 'Mailer.AddRecipient' 
newsletter_envia.asp, line 179

Já utilizei este sistema em vários servers. No terra empresas dá pau!
Alguém pode me ajudar?

Edição feita por: NOVAZOO, 25/10/2005, 10:14.

[NOVAZOO]

Essa deve ser uma versão mais antiga do componente.
Em outros servidores funciona desta forma. no TerraEmpresas.

8. Mailer.AddRecipient "", email

Thank anyway!

[Agente Linhares]

creio q seja devido a alguns servers requererem um email@provedordele.com

em varios servers existe essa proteção pr aninguem externo utilizar os smtp(s)