Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) ASPEMAIL enviando apenas para e-mail do próprio servidor

Camilla

Perguntado por Camilla,

 Share

Pergunta

Camilla

Camilla

Postado
Postado (editado)

Boa Tarde!

Estou desenvolvendo um sistema de uma loja virtual e estou utilizando o componente ASPEMAIL, para envio de emails, assim que um usuario se cadastra no site o sistema já envia um email para que o usuario possa validar sua conta, dentre outros email tb, tais como news letter, receber o email com informações de compra etc...

Está enviando e-mails normalmente, porém só recebem os e-mails o próprio domínio que recebe.

Meu site esta hospedado na locaweb, porém já entrei em contato com eles, e me disseram q está tudo ok, mas o engraçado que só recebem os emais do próprio dominio

Exemplo: estou enviando de pctec@boomproducoes.com.br

Então, apenas e-mails com a terminação em @boomproducoes.com.br estão recebendo, os demais não recebem.

Procurei sobre isso no Google porém não encontrei nada a respeito, e não consigo achar a solução pra isso, penso eu que se fosse erro de programação nem os email do propio dominio receberia.

Preciso muita da ajuda de você's

Atenciosamente

Camilla

Editado por Camilla
Link para o comentário
Compartilhar em outros sites

15 respostass a esta questão

Posts Recomendados

  • 0
Camilla

Camilla

Postado
  • Autor
Postado

Bom Dia!!

Bom, vou postar meu codigo aqui pra vocês me ajudarem, pois não estou conseguindo autenticar o SMTP não.

Pois eu não sei que dominio o usuario tem conta (hotmail, gmail, bol, etc...) preciso que quando o usuario se cadastre, ele receba um email com a confirmação da loja e isso acontece apenas com o emails do meu meu dominio.

Eu fiquei na duvida qual dominio tenho que autenticar? Qual senha?

Segue abaixo o codigo, conto com ajuda de você's

Desde já meu muito obrigado!!

FUNÇÃO DE ENVIO DE EMAIL

<%
Function enviar(de, para, assunto, mensagem)
Select Case loja("componente_email")
Case "ASPEMAIL"
On Error Resume Next  
Set objEmail = Server.CreateObject("Persits.MailSender")
                objEmail.Host = loja("host_email")
                objEmail.From = de
                objEmail.FromName = de
                objEmail.AddAddress para
                objEmail.Subject = assunto
                objEmail.ContentType = "text/html"
                objEmail.isHTML = True
                objEmail.Body = Mensagem         
                objEmail.Send
            Set objEmail = Nothing
End Select
end function

%>
FUNCÃO EXCLUSIVA DE EMAILS QUE PEGA DO FORM DE CADASTRO 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objHTML = objFSO.OpenTextFile( server.MapPath("emails") & "\cadastro_confirmacao.html", 1, True, 0)
mensagem = objHTML.ReadAll
Set objHTML = Nothing
Set objFSO = Nothing
response.clear
mensagem = Replace(mensagem, "##nome_loja##", loja("nome_loja"))
mensagem = Replace(mensagem, "##slogan_loja##", loja("slogan_loja"))
mensagem = Replace(mensagem, "##nome_cliente##", request.form("nome"))
mensagem = Replace(mensagem, "##email_loja##", loja("email"))
mensagem = Replace(mensagem, "##endereco_loja##", loja("endereco"))
mensagem = Replace(mensagem, "##cep_loja##", loja("cep"))
mensagem = Replace(mensagem, "##bairro_loja##", loja("bairro"))
mensagem = Replace(mensagem, "##cidade_loja##", loja("cidade"))
mensagem = Replace(mensagem, "##estado_loja##", loja("estado"))
mensagem = Replace(mensagem, "##url_loja##", "http://" & loja("url_loja"))
mensagem = Replace(mensagem, "##link_ativa##", "http://www.boomproducoes.com.br/pctec"  &"/ativar.asp?id="&request.form("cpf"))


Dim send_mail
send_mail = enviar(loja("email"), request.form("email"), loja("nome_loja") &" - Ativação de Conta", mensagem)

response.redirect "mensagens.asp?ir=cadastrosucesso"

Att

Camilla

Link para o comentário
Compartilhar em outros sites
  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado (editado)

Sim... mas o smtp é o seu, não?

É você quem dispara os e-mail, portanto as infs do SMTP são as de seu server.

você vai especificar uma conta sua para o envio do e-mail, colocar as infs dessa conta, o smtp, senha e etc. A única coisa que vai ser dinamica é o e-mail do destinatário, de resto é sempre igual.

Editado por Rafael Spilki
Link para o comentário
Compartilhar em outros sites
  • 0
Camilla

Camilla

Postado
  • Autor
Postado (editado)

Sim ... quem dispara os email com as informações é o sistema .. realmente o que é dimanico é os email do destinatario.

Mas eu ainda estou perdida com essa autenticação.

Pois depois da linha objEmail.Body = Mensagem

eu acrescentei 

Mail.Username = "pctec@boomproducoes.com.br"

'SENHA DO USUÁRIO PARA SMTP AUTENTICADO
Mail.Password = "minha senha "

E mesmo assim continua enviando e recendo os email só com terminação @boomproducoes.com.br que é o meu dominio.

A partir dessas informações e com meu codigo psotado vocês ainda podem me ajudar?

Att

Camilla

Editado por Jonathan Queiroz
Adcionar tag's (Jonathan)
Link para o comentário
Compartilhar em outros sites
  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

Em principio isso deveria funcionar... aqui tem um exemplo completo de como fazer isso, veja se está igual ao seu... se sim, sugiro contato com o servidor, se não, sugiro adequação e novos testes.

https://suporte.sys.com.br/index.php?_m=kno...;kbarticleid=19

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites
  • 0
Camilla

Camilla

Postado
  • Autor
Postado

Rafael vou postar aqui pra você ver ... eu já tinha usado como refrencia esse mesmo link que você me eviou!!

E ainda não envia, contatei a locaweb eles me disseram que está tudo ok!!

Creio eu Rafael que se fosse problema com a programação não enviaria nem pro meu servidor.

No meu ponto de vista eu ainda acho que o problema é na locaweb.

Mas mesmo assim vou postar aqui pra você ver a adaptação que fiz, quem sabe você ainda não pode me ajudar, preciso muito descobrir esse problema.

<%
Function enviar(de, para, assunto, mensagem)
  
          Select Case loja("componente_email")
Case "ASPEMAIL"

        On Error Resume Next
Set Mail = Server.CreateObject("Persits.MailSender")
                Mail.Host = "smtp.boomproducoes.com.br"
                Mail.From = "pctec@boomproducoes.com.br"  
                Mail.FromName = "boomproducoes.com.br"
                Mail.AddAddress = para
                Mail.Subject = assunto
                Mail.ContentType = "text/html"
                Mail.isHTML = True
                Mail.Body = Mensagem    
                Mail.Username = "pctec@boomproducoes.com.br"      
                Mail.Password = "123456 "
                Mail.Send
            Set Mail = Nothing
End Select
end function

%>

Att

Camilla

Link para o comentário
Compartilhar em outros sites
  • 0
Camilla

Camilla

Postado
  • Autor
Postado

Essa é a função de envio de emails, mas estou utilizando o componente aspemail, pois dentre essas funções a locaweb só tem suporte para o aspemail!!!

<%
Function enviar(de, para, assunto, mensagem)
  
          Select Case loja("componente_email")
        Case "ASPMAIL"

        On Error Resume Next
            Set objEmail = Server.CreateObject("SMTPsvg.Mailer")
                objEmail.FromName = de
                objEmail.FromAddress = de
                objEmail.RemoteHost = loja("host_email")
                objEmail.AddRecipient "", para
                objEmail.Subject = assunto
                objEmail.ContentType = "text/html"
                objEmail.BodyText = mensagem        
                objEmail.SendMail
            Set objEmail = Nothing



        Case "ASPEMAIL"

        On Error Resume Next
            Set Mail = Server.CreateObject("Persits.MailSender")
                Mail.Host = "smtp.boomproducoes.com.br"
                Mail.From = "pctec@boomproducoes.com.br"  
                Mail.FromName = "boomproducoes.com.br"
                Mail.AddAddress = para
                Mail.Subject = assunto
                Mail.ContentType = "text/html"
                Mail.isHTML = True
                Mail.Body = Mensagem    
                Mail.Username = "pctec@boomproducoes.com.br"      
                Mail.Password = "123456 "
                Mail.Send
            Set Mail = Nothing
            
            

        Case "ASPQMAIL"

        On Error Resume Next
            Set objEmail = Server.CreateObject("SMTPsvg.Mailer")
                objEmail.QMessage = 1
                objEmail.FromName = de
                objEmail.FromAddress = de
                objEmail.RemoteHost = loja("host_email")
                objEmail.AddRecipient "", para
                objEmail.Subject = assunto
                objEmail.BodyText = mensagem
                objEmail.SendMail
            Set objEmail = Nothing
            
            
                
        Case "CDONTS"

        On Error Resume Next
            Set objEmail = Server.CreateObject("CDONTS.NewMail")
                objEmail.to = para
                objEmail.from = de
                objEmail.subject = assunto
                objEmail.Importance = 1
                objEmail.BodyFormat = 0
                objEmail.MailFormat = 0
                objEmail.body = mensagem        
                objEmail.send
            Set objEmail = Nothing
        End Select
end function

%>
Função que pega do form de cadastro e envia o email, para ativação de conta, essa função é estatica só muda as mensagens, esse script é chamado em diversas paginas, lembrando que só muda as mensagens para determinada pagina. 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objHTML = objFSO.OpenTextFile( server.MapPath("emails") & "\cadastro_confirmacao.html", 1, True, 0)
mensagem = objHTML.ReadAll
Set objHTML = Nothing
Set objFSO = Nothing
response.clear
mensagem = Replace(mensagem, "##nome_loja##", loja("nome_loja"))
mensagem = Replace(mensagem, "##slogan_loja##", loja("slogan_loja"))
mensagem = Replace(mensagem, "##nome_cliente##", request.form("nome"))
mensagem = Replace(mensagem, "##email_loja##", loja("email"))
mensagem = Replace(mensagem, "##endereco_loja##", loja("endereco"))
mensagem = Replace(mensagem, "##cep_loja##", loja("cep"))
mensagem = Replace(mensagem, "##bairro_loja##", loja("bairro"))
mensagem = Replace(mensagem, "##cidade_loja##", loja("cidade"))
mensagem = Replace(mensagem, "##estado_loja##", loja("estado"))
mensagem = Replace(mensagem, "##url_loja##", "http://" & loja("url_loja"))
mensagem = Replace(mensagem, "##link_ativa##", "http://www.boomproducoes.com.br/pctec"  &"/ativar.asp?id="&request.form("cpf"))


Dim send_mail
send_mail = enviar(loja("email"), request.form("email"), loja("nome_loja") &" - Ativação de Conta", mensagem)

response.redirect "mensagens.asp?ir=cadastrosucesso"

Conto muito com sua ajuda, não sei mais o que faço!!!

Att

Camilla

Link para o comentário
Compartilhar em outros sites
  • 0
Camilla

Camilla

Postado
  • Autor
Postado

Não ... Bareta!!

Essas são as funções programadas!

No banco de dados já está selecionado o ASPEMAIL!!

O Rafael pediu pra eu postar o codigo mas ainda não me deu um retorno!!

Será que vocês ainda tem um soluçao para o meu problema!!

Estou desesperada!

Att

Camilla

Link para o comentário
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...