Cdonts

[PRISCILA STOCHINI]

Bom, pessoal utilizo CDONTS para trabalhar com envio de emails.

Meu servidor até então estava tudo certo. Semana passada deu algum problema lá com os emails normais da empresa e agora o meu sisteminha resolveu não enviar mais emails.

Fiquei na dúvida se era meu código ou meu servidor???

Nosso colega Marcos-rj testou e disse está tudo certo.

Alguém mais poderia testar em outro servidor para eu ter certeza que é o meu??? o se é o meu código...

O Marcos também cogitou a possibilidade de instalar o CDONTS, mas não sabia que era necessario instalar, sempre trabalhei assim, sem estar instalado.

[.Andreia.]

Para usar o CDONTS voce tem que registrar a DLL dele

Se estava normal e parou de funcionar, estando no servidor web, o problema é lá

[PRISCILA STOCHINI]

Bom, parou de funcionar um parte, a que envia os anexos!!

Mas então pode ser no servidor o problema..

O Marcos está verificando o código para mim, mas ele saiu e eu estou precisando disso urgente..

[Marcos-rj]

Sobre aquele ultimo problema tenta aumentar o Script timed out .

Server.ScriptTimeout = 180

pode ser que funcione.

[PRISCILA STOCHINI]

Bom, pessoal agora uma outra coisa..

tenho o seguinte:

Preciso pegar o valor do email que está no banco em tal codigo para enviar um email.

já tentei session, e rs...e não estou conseguindo o que mais posso fazer..

[Marcos-rj]

Priscila, naquela parte do suporte a pessoa se loga no sistema p/ poder pedir ajuda?

[PRISCILA STOCHINI]

Sim, no caso é um sisteminha aqui da empresa que tipo faq, só que o usuario pode mandar a duvida por email se não tiver no FAQ ainda!!

Me ajuda com esse negocio do email...

[Marcos-rj]

De acordo com os codigos que você me passou a pessoa digita o código no formulario, o ideal seria a pessoa se logar, e na hora de enviar, o sistema puxar automaticamente do banco de dados o email de acordo com o login.

[PRISCILA STOCHINI]

Sim, mas o problema é que a mesma pessoa pode enviar varias duvidas...o que eu preciso é que pegue o email digitado no formulario...nesse caso o que está aparecendo no campo email.

ele está no BD, mas como puxo esse dado para enviar o email...

porque se no EnviarMail.To "teste@cype.com.br" --- vai direitinho;

Mas se coloco a variavel rs("email"), para puxar o valor não envia!!!

[Marcos-rj]

Por que você não coloca assim

EnviarMail.To = Vemail

Que é a variavel que retorna o valor do campo e-mail!!

[PRISCILA STOCHINI]

Acho que foi!!! Tina esqueci do mudar o outro email..

[Marcos-rj]

qual erro?

colocando assim ele vai mandar p/ o e-mail digitado no formulário.

[PRISCILA STOCHINI]

O meu servidor está lerdo, ou não tá indo o email...

Realmente, não está pegando o valor do email...

[PRISCILA STOCHINI]

Se eu for colocar Session("email") eu tenho que criar Session("email") = Request.Form("email") na página que envia os daods para o banco certo???

[Marcos-rj]

sim, mas o script de envio também est nesta página. você ira usar esta session em outro lugar? caso contrario não tem necessidade.

Priscila, em qual página de envio esta dondado este erro? em qual parte do processo

[PRISCILA STOCHINI]

Bom, vou usar o Session em outra página...

Tenho a que envia para o banco e a confirmação do email....ai quando o tecnico responde ele também pode anexar e é nessa página que o tecnico responde é que não está enviando o email.

Se no TO do código eu digitar um email ele vai..mas se eu colocar todas as formas que eu sei de de puxar o valor e não estou conseguindo..

Totalmente sem ideia do que fazer...já fiz de tudo..

[Marcos-rj]

beleza, então faz isso mesmo. na pagina onde tem o formulario de resposta do suporte como um campo oculto chamada "email" com o valor "<%=rs("email")%>" .

tira o select da página de envio e coloca EnviarMail.To = VEmail

Assim irá funcionar.

Na pagina do formulario de resposta você não esta passando o email pelo formulario, por isso a variavel VEmail esta vazia, não adianta você colocar Vemail = Request.Form("email") e não passar nenhum valor.

[PRISCILA STOCHINI]

Putz, não vai...

FORMULARIO que o tecnico apenas atualiza...

[...]

<td class="rotulo_formulario"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; color: #000000; font-weight: bold">Email</div></td>

<td><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><input type="hidden" name="email" value="<%=rs("email")%>"/><%=rs("email")%></span><img src="obrigatorio.gif" "18" height="18" align="absmiddle"/></td>

<td><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; color: #000000; font-weight: bold">DDD</div></td>

[...]

Codigo que envia o email ...

'selecionando o registro cadastrado para preparar o envio de email

sql = "Select * from suptec where codigo = '"&Vcodigo&"'"

'executando recordset para pesquisar se os dados foram cadastrados

Set rs = bco.Execute(sql)

'verificando se houve erro, se não houve envia por email

'if rs.eof then

'Response.Write("Registro não encontrado. Erro na gravação")

'else

'definimos o endereço de email que irá enviar o email

Vmail = "suporteweb@multiplus.com"

'criamos o obejto do cdonts

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

'recebe o valor do recordset com o email cadastrado

EnviarMail.To = Vemail

Jé tentei rs("email"), Session("email"), Vemail, rs("Vemail") ...e nada me ajudem só falta isso.

'recebe o email de quem envia da variavel Vemail

EnviarMail.From = Vmail

'Assunto do email

[Marcos-rj]

Fiz as alterações que te passei e funcionou beleza. recebi todos os emails. ate os anexos. você deve ter feito algo errado. vou te passar por e-mails com as alterações.

[PRISCILA STOCHINI]

valeu!!

Me manda os arquivos...

[Marcos-rj]

Enviei, qualquer coisa posta ai.

T+

[PRISCILA STOCHINI]

você pode me falar o que você mudou?? Pra eu tentar entender!!! quais foram as páginas que você mexeu!!

Meu não foi ainda...

Desisto...

Oh vou te passar os arquivos mais novos.

Faça só essa mudança que você fez.

Pra ver se é algo aqui...

Qual seu email mesmo??

[Marcos-rj]

putz, aqui está rodando certinho.

carioca.marcos@gmail.com

[PRISCILA STOCHINI]

Pronto mandei..

Se possivel, faça de uma forma que eu possa publicar sem ter que mexer...

[PRISCILA STOCHINI]

Pessoal estou con o seguinte problema...

Tenho um código que anexa arquivos, mas se os arquivos forem muito grandes tipo até 5Mb e acima 1 Mb, não envia e da esse erro:

Active Server Pages error 'ASP 0113'

Script timed out

/suporte/envia_DUVIDA.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

Bom ai falar pra eu colocar Server.ScriptTimeout, coloquei assim:

Server.ScriptTimeout = 1000

e mesmo assim dá erro.

Pode ser alguma coisa relacionada ao nosso provedor/servidor???