Erro No Envio De Email

[HugoRibas]

Olá!!! Preciso que vocês me ajudem no seguinte.

Quero enviar o formulario para dois emails.

Quando uso o seguinte código, ele funciona (DETALHE EM "AddAddress"):

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

Mail.Host = "smtp.xxxxxx.com.br"

Mail.Port = 25

Mail.From = request.form("txt2")

Mail.FromName = "Eu"

Mail.AddAddress = "hugo@xxx.com.br"

Mail.Subject = "XXXX"

Mail.Body = MENSSAGEM

Mail.IsHTML = true

Quando uso o seguinte código, ele NÃO funciona(DETALHE EM "To")::

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

Mail.Host = "smtp.xxxxxx.com.br"

Mail.Port = 25

Mail.From = request.form("txt2")

Mail.FromName = "Eu"

Mail.To = "hugo@xxx.com.br"

Mail.Subject = "XXXX"

Mail.Body = MENSSAGEM

Mail.IsHTML = true

E quando uso este outro código, ele TAMBÉM NÃO funciona:

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

Mail.Host = "smtp.xxxxxx.com.br"

Mail.Port = 25

Mail.From = request.form("txt2")

Mail.FromName = "Eu"

Mail.To = "hugo@xxx.com.br"

Mail.AddAddress = "hugo@xxx.com.br"

Mail.Subject = "XXXX"

Mail.Body = MENSSAGEM

Mail.IsHTML = true

Onde está o erro?!?! E qual a melhor solução?!

Desde já agradeço a atenção!

Obrigado,

Hugo

[bareta]

qual o erro?

[avontzdnb]

tenta aí :)

<%

'##### Variáveis #####

v_email_remetente = "eu@meuDominio.com.br"

v_nome_remetente = "Fulano"

v_para = "destinatario@dominio.com.br"

v_responde_para = "email@dominio.com.br"

v_assunto = "TESTE DO ASPEMAIL"

v_corpo = "Olá!" & Chr(13) & Chr(10) & "Isso é apenas um teste do componente ASPEmail"

'##### Envio da mensagem #####

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

'Servidor de SMTP

Mail.Host = "localhost"

'E-mail do remetente

Mail.From = v_email_remetente

'Remetente

Mail.FromName = v_nome_remetente

Mail.AddAddress v_para

'Email que receberá a resposta

'Mail.AddReplyTo v_responde_para

'Assunto da mensagem

Mail.Subject = v_assunto

'Corpo da mensagem

Mail.Body = v_corpo

On Error Resume Next

Mail.Send

If Err <> 0 Then

Response.Write "Error encountered: " & Err.Description

End If

Response.Write "Email enviado com sucesso!"

%>

Obs: No final do script é necessário atribuir o valor "Nothing" para os objetos criados. Para o exemplo acima ficaria assim:

<%Set Mail = Nothing%>

Esse é o modelo de aspemail

seu servidor de hospedagem deve ter esse componente instalado cara ;)

[]s

[andre.atx]

o objeto Server.CreateObject("Persits.MailSender") usa o código Mail.AddAddress para adicionar o destinatario da mensagem que você quer enviar.

Você pode usar quantos Mail.AddAddress necessários, uma para cada destinatario.

Se você usar o comando Mail.Mail.AddBCC envia como cópia oculta.

O comando mail.to simplesmente não funciona no MailSender

....