Barbara Bittencourt

RogCesar, Testei o seu script e está dando erro aqui, creio que deve ser por causa do objeto utilizado. Algumas variáveis não constam no meu, tive que fazer as adaptações. Estou tendo dificuldades :( Pode me ajudar? Se puder, mande-me uma mensagem em particular, ok? Obrigada! Abraços!

Olá amigos, Dark, obrigada pela explicação! Rogcesar, vou testar o script! Marcos, peguei o seu código mas ainda não testei devido à falta de tempo. Estarei fazendo tudo isso hoje e assim que o fizer entro em contato com vocês ok? Desde já agradeço pela atenção e tenham um ótimo dia! Abraços!

Desculpe Marcos! Agora que fui entender sua postagem, e vi que estava direcionada à mim. Desde já agradeço. Vou fazer o teste e retorno para dizer se funcionou ok? Se preferir lhe mando uma mensagem privada! Um abraço!

Olá pessoal, Conforme o pedido do moderador, estou criando outro tópico para a minha dúvida. Tenho o seguinte código abaixo: <!--#include file="conexao.asp" --> <% 'Script para envio de e-mail em formulário SqlVerifica="SELECT email FROM users" Set RsVerifica=DB.execute(SqlVerifica) If not RsVerifica.eof then do while not RsVerifica.eof email2 = email2 & lcase(RsVerifica("email")&";") ' Response.Write(email2) RsVerifica.movenext loop end if %> <% vErro = "" vSucesso = "sucessonews.asp" vErr = "erronews.html" vNomeForm = "Ritos de Angola" vPara = "" vFrom = "contato@ritosdeangola.com.br" vCc = email2 vAssunto = Request.Form("assunto") ' vData = Date() ' vData = day(vData) & "/" & month(vData) & "/" & year(vData) ' vHora = Time() ' vHora = hour(vHora) & "h" & minute(vHora) & "min" & second(vHora) & "s" ' msg = "Newsletter " & vNomeForm ' msg = msg & "submetido em" & vData & " às " & vHora & VbCrLf & VbCrLf msg = msg & Request.Form("mensagem") & VbCrLf & VbCrLf EnviaEmail msg,vFrom,vPara,vCc,vAssunto Function EnviaEmail(ByVal p_body, Byval p_from, ByVal p_to, ByVal p_bcc, Byval p_subject) On Error Resume Next Dim iMsg, Flds, iConf, status Const SERVIDOR_SMTP = "sharedrelay.dominal.com" status = true Set iMsg = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SERVIDOR_SMTP Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 Flds.Update With iMsg Set .Configuration = iConf .To = p_to .Bcc = p_bcc .From = p_from .Sender = p_from .Subject = p_subject .HTMLBody = p_body .Send End With If Err.number <> 0 Then status = false End If If IsObject(iMsg) Then Set iMsg = Nothing If IsObject(Flds) Then Set Flds = Nothing If IsObject(iConf) Then Set iConf = Nothing EnviaEmail = status End Function '----------------------------------------------------------- Sub Resp() if vErro = "" then Response.Redirect(vSucesso) else Response.Redirect(vErr) end if End Sub %> O que acontece é que o suporte do provedor disse que preciso de algo mais 'robusto' já que não está indo para todos os registrados no banco de dados. Ou seja, o banco está muito pesado. O que eu posso fazer? Obrigada!!