Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

kania

Emails são enviados em duplicidades no CDONTS

Por , em ASP Clássico

Recommended Posts

kania    0

kania
Postado

Olá pessoal,

 

estou com um bug estranho no meu código d eenvio de e-mails do CDONTS, o memso no momento do envio esta enviado os e-mails em duplicidade, ou seja, chega na caixa de entrada do Associado 2 mensagens iguais.

Bommpara poder ter uma idéia do que extamente esta aocntecendo coloquei a data e horário dentro da mensagem para ver em que momento elas estvam sendo enviadas, se era no mesmo momento, o que deveria ser na verdade, e para minha supresa veja, recebi em minha caixa de entrada 2 mensagens iguais porem com horários de envio diferentes, e com um diferneça até que grande, vejam:

 

MSG 1: Esta compra foi efetuada em: 17/9/2008 06:46:35

MSG 2: Esta compra foi efetuada em: 17/9/2008 06:48:37

 

2 minutos de diferença de uma para a outra, como pode, se o código executa a rotina somente em um momento?

E porque esta enviando a mesma mensagem 2 vezes para o mesmo destinatário?

 

Código que envia a MSG

 

'ENVIA E-MAIL PARA O ASSOCIADO DANDO BOAS VINDAS
'COM CÓPIA PARA A EMPRESA
var_mail = session("emailcontato")
var_to = "cadastros@conquistta.com.br"

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
EnviarMail.To = var_mail
EnviarMail.From = var_to
EnviarMail.Cc = "cadastros@conquistta.com.br"
EnviarMail.Bcc = "webmaster@conquistta.com.br"
EnviarMail.Subject = "Nova Qualificação do Associado - "&session("nome_cad")
MsgBody = "<html>" _
& "<head>" _
& "</head>" _
& "<body>" _
& "<table width=""600"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" _
& "<tr>" _
& "<td><img src=""http://www.conquistta.com.br/imagens/confirma_newsletter_01.gif"" width=""600"" height=""161"" /></td>" _
& "</tr>" _
& "<tr>" _
& "<td><table width=""550"" border=""0"" cellspacing=""10"" cellpadding=""0"">" _
& "<tr>" _
& "<td><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"" color=""#333333"">Olá, <b>"&session("nome_cad")&"</b></font></td>" _
& "</tr>" _
& "<tr>" _
& "<td><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"" color=""#333333"">Esta é uma confirmação de sua solicitação de Qualificação junto a ConQuistta Saúde Global.</font></td>" _
& "</tr>" _
& "<tr>" _
& "<td><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"" color=""#333333"">Seu Login:<b> "&session("inscricao")&"</b></font></td>" _
& "</tr>" _
& "<tr>" _
& "<td><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"" color=""#333333"">Email do cadastro:<b> "&session("emailcontato")&"</b></font></td>" _
& "</tr>" _
& "<tr>" _
& "<td><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"" color=""#333333"">Kit escolhido: <b>"&session ("plano")&" - "&session("nome_produto")&"</b></font></td>" _
& "</tr>" _
& "<tr>" _
& "<td><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"" color=""#333333"">Esta compra foi efetuada em: <b>"&now()&"</b></font></td>" _
& "</tr>" _
& "<tr>" _
& "<td><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"" color=""#333333"">IP do Computador Utilizado: <b>"&session("IPUsuario")&"</a></b></font></td>" _
& "</tr>" _
& "<tr>" _
& "<td> </td>" _
& "</tr>" _
& "</table></td>" _
& "</tr>" _
& "<tr>" _
& "<td><img src=""http://www.conquistta.com.br/imagens/confirma_newsletter_03.gif"" width=""600"" height=""130"" /></td>" _
& "</tr>" _
& "</table>" _
& "</body>" _
& "</html>"


EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send

Set EnviarMail = Nothing

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Testa assim:

 

MsgBody = "<html>" _
& "<head>" _
& "</head>" _
& "<body>" _
& "<table width=""600"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" _
& "<tr>" _
& "<td><img src=""http://www.conquistta.com.br/imagens/confirma_newsletter_01.gif"" width=""600"" height=""161"" /></td>" _
& "</tr>" _
& "<tr>" _
& "<td><table width=""550"" border=""0"" cellspacing=""10"" cellpadding=""0"">" _
& "<tr>" _
& "<td><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"" color=""#333333"">Olá, <b>"&session("nome_cad")&"</b></font></td>" _
& "</tr>" _
& "<tr>" _
& "<td><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"" color=""#333333"">Esta é uma confirmação de sua solicitação de Qualificação junto a ConQuistta Saúde Global.</font></td>" _
& "</tr>" _
& "<tr>" _
& "<td><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"" color=""#333333"">Seu Login:<b> "&session("inscricao")&"</b></font></td>" _
& "</tr>" _
& "<tr>" _
& "<td><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"" color=""#333333"">Email do cadastro:<b> "&session("emailcontato")&"</b></font></td>" _
& "</tr>" _
& "<tr>" _
& "<td><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"" color=""#333333"">Kit escolhido: <b>"&session ("plano")&" - "&session("nome_produto")&"</b></font></td>" _
& "</tr>" _
& "<tr>" _
& "<td><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"" color=""#333333"">Esta compra foi efetuada em: <b>"&now()&"</b></font></td>" _
& "</tr>" _
& "<tr>" _
& "<td><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"" color=""#333333"">IP do Computador Utilizado: <b>"&session("IPUsuario")&"</a></b></font></td>" _
& "</tr>" _
& "<tr>" _
& "<td> </td>" _
& "</tr>" _
& "</table></td>" _
& "</tr>" _
& "<tr>" _
& "<td><img src=""http://www.conquistta.com.br/imagens/confirma_newsletter_03.gif"" width=""600"" height=""130"" /></td>" _
& "</tr>" _
& "</table>" _
& "</body>" _
& "</html>"
Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
var_mail = session("emailcontato")
var_to = "cadastros@conquistta.com.br"

EnviarMail.To = var_mail
EnviarMail.From = var_to
EnviarMail.Cc = "cadastros@conquistta.com.br"
EnviarMail.Bcc = "webmaster@conquistta.com.br"
EnviarMail.Subject = "Nova Qualificação do Associado - "&session("nome_cad")
EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send

Set EnviarMail = Nothing

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

onde voce muda o email a ser enviado?

Compartilhar este post

Link para o post
Compartilhar em outros sites

kania    0

kania
Postado

Opa pessoal estava em uma reunião só agora via as mensagens,

 

então não testei o código do Jow, no caso Mario os dados para envio do email, como email do destinatario, copia de email e cópia oculta estão nas variáveis,

 

var_mail = session("emailcontato")
var_to = "cadastros@conquistta.com.br"

EnviarMail.To = var_mail
EnviarMail.From = var_to
EnviarMail.Cc = "cadastros@conquistta.com.br"
EnviarMail.Bcc = "webmaster@conquistta.com.br"
EnviarMail.Subject = "Nova Qualificação do Associado - "&session("nome_cad")
MsgBody = "<html>" _

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito