Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

naofuieu

O que há de errado?

Por , em ASP Clássico

Recommended Posts

naofuieu    0

naofuieu
Postado

O que tem de errado nesse código?

Eu envio um email por ele e a página passa todo o timeout para enviar e sempre dá erro na transmissão dos dados (0x80040213 - Falha na conexão do transporte com o servidor). Ajuda aí...!

 

<html><head><title>Enviando SMS</title></head><body style="font-family:arial;font-size:12px;color:#888888;"><%Dim objMail, objConfigDim MSschemasIf Request.Form("sbm") = "true" thenSet objMail = Server.CreateObject("CDO.Message")Set objConfig = Server.CreateObject("CDO.Configuration")MSschemas = "http://schemas.microsoft.com/cdo/configuration/"objConfig.Fields(MSschemas & "smtpserver") = "smtp.gmail.com"objConfig.Fields(MSschemas & "smtpserverport") = 465objConfig.Fields(MSschemas & "sendusing") = 2objConfig.Fields(MSschemas & "smtpconnectiontimeout") = 360objConfig.Fields(MSschemas & "smtpauthenticate") = 1objConfig.Fields(MSschemas & "sendemailaddress") = "araruna _ gmail.com"' Tirei os @ pra n vir spamobjConfig.Fields(MSschemas & "sendusername") = "araruna _ gmail.com"objConfig.Fields(MSschemas & "sendpassword") = "******"' a senha eu tirei pq, sabe como é, né...!!!objConfig.Fields.updateSet objMail.Configuration = objConfigobjMail.From = "'" & Request.Form("fromname") & "'" & " <" & Request.Form("fromemail") & ">"objMail.To = Request.Form("toemail")objMail.Subject = Request.Form("toname") & ", " & Request.Form("fromname") & " lhe mandou um email"objMail.TextBody = Request.Form("message")Err.ClearobjMail.SendIf Err <> 0 Then Err_Msg = Err_Msg & "<li>Sua mensagem não pôde ser enviada pelo(s) seguinte(s) motivo(s): " & vbCrLf & Err.Description & "</li>"End ifelse%> <br><form name="form1" method="post" action="email.asp">  Nome do amigo:   <input name="toname" type="text" id="toname" maxlength="20">  <br>  Email do Amigo:   <input name="toemail" type="text" id="toemail">  <br>  Seu Nome:   <input name="fromname" type="text" id="fromname" maxlength="20">  <br>  Seu e-mail:   <input name="fromemail" type="text" id="fromemail" maxlength="20">  <br>  Mensagem:<br>  <textarea name="message" cols="30" rows="4"></textarea>  <br>  <input type="submit" name="Submit" value="Enviar">  <input name="Reset" type="reset" id="Reset" value="Redefinir">  <input name="sbm" type="hidden" value="true"></form><% End If %></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

naofuieu    0

naofuieu
Postado

E o pior de tudo: qdo eu peço p/ o CDOSYS mandar pelo SMTP interno, o email ñ chega!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito