Mensagem Enviada Em Duplicidade

[jfranco]

Bom dia,

Alguém pode me ajudar a descobrir por que a mensagem está sendo enviada duas vezes para o mesmo endereço?

O código do script segue abaixo:

<%

' Confira as variáveis da mensagem 

strOrigem   = Trim(Request.form("nome"))
strEmailRem = Trim(Request.form("seu_e_mail"))
strDestino  = Trim(Request.form("e_mail_amigo"))
strURL 		= Request.form("pagina")
strAssunto  = "Site interessante"
strMensagem = "Acessei este site e achei interessante : " & strURL

' Cria os objetos para envio de e-mail

Set mensagem = Server.CreateObject("CDO.Message")
Set conf = Server.CreateObject("CDO.Configuration")
Set param = conf.Fields

param("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
param("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
param.Update

Set mensagem.configuration = conf

' Atribui-se os valores para as propriedades do objeto

mensagem.From 	  = strEmailRem
mensagem.To 	  = strDestino
mensagem.Cc		  = "jobsystems@jobsystems.com.br"
mensagem.Subject  = strAssunto
mensagem.TextBody = strOrigem & " diz: " & strMensagem

mensagem.Send

' Informa o que foi enviado 
%>
[/codebox]

Obrigado.

[rike_0]

opa

você está tentando enviar pra quem o email?? pro jobsystems@jobsystems.com.br?? se for pelo que eu entendi essa é apunica forma que pode enviar duas vezes... uma normal e uma cópia do email... estanh será que num tem algum loop no código que chama essa rotina???

[jfranco]

A rotina não é chamada por ninguém.

Escrevi em VBScript porque está dentro de uma página com código HTML.

E não há nenhum loop dentro dessa página.

Já resolvi, pessoal. Eu mesmo estava enviando um teste para dois endereços diferentes do mesmo domínio.

E aí, tinha que chegar duas mensagens mesmo. Desculpem o mau jeito. Dããã... :rolleyes: