Camilla

Olá Rafael!! Você conseguiu achar uma solução? Pois você não me respondeu mais nada!! Att Camilla

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

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

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

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

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