Ir para conteúdo
Fórum Script Brasil

Camilla

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    56

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Camilla

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

    em ASP

    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

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

    em ASP

    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

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

    em ASP

    Postado · Editado por Jonathan Queiroz
    Adcionar tag's (Jonathan)

    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

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

    em ASP

    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

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

    em ASP

    Postado · Editado por Camilla

    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

×
×
  • Criar Novo...