Ir para conteúdo

POWERED BY:

Arquivado

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

razs

gmail dont work

Por , em ASP Clássico

Recommended Posts

razs    0

razs
Postado

Pessoal alguma razao para um codigo de email que estava a funcionar muito bem usando o server do gmail agora dizer The transport failed to connect to the server. no novo server?

 

eu preciso de instalar um servidor de smtp no server para o codigo funcionar?

 

obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

qual a versão do seu windows

se for 2000 ou 2003, caso esteja utilizando CDONTS. terá que mudar para CDOSYS.

se tudo estiver correto pode ser uma instabilidade do seu SMTP

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você esta usando o CDOSYS ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

com esta confusao toda eu ja nao sei...

 

este é o meu script

 

<%
mes = ""
IsSuccess = false
Dim actnow 
actnow = request.querystring("actnow")

if Request.querystring("var_mal")="pass" then
if session("e")="" then
response.redirect ("recpass1.asp?erro=Fields mark with * are mandatory") 
else

sTo = trim(session("e"))
sSubject = "New password for site"
shtmlBody = "<html><head><title></title><body>Your new password for site Website is " & vbCrLf & session("pass") & vbCrLf & "Please login and change it." &vbCrLf &vbCrLf &" site Support"&vbCrLf &"  www.site.pt"
end if
end if 

if Request.querystring("var_mal")="new_user" then

Dim p
Dim n
p=Request.querystring("p")
n=Request.querystring("n")

sTo=trim(session("e")) 
sSubject = "site Registration"
shtmlBody = "Hello " & Trim(Request.querystring("n")) &", you are now registered in site Website please login and update your profile."  & vbCrLf & "Your password is " & Trim(Request.querystring("p")) & vbCrLf &vbCrLf &  "Best Regards"&  vbCrLf &  "site Suport" &  vbCrLf & "http://www.site.pt"
end if

if Request.querystring("var_mal")="contac" then
if Request.Form("nome")="" or Request.Form("email")="" or Request.Form("assunto")="" or Request.Form("mensagem")="" then
response.redirect ("contacts.asp?erro=Fields mark with * are mandatory") 
else
	sTo = "rsimoes@site.pt"
	sSubject = Trim(Request.Form("assunto"))
	shtmlBody =  Trim(Request.Form("nome")) &" with the email: " & Trim(Request.Form("email"))&vbCrLf&"From: " & Trim(Request.Form("centro"))  & vbCrLf & "With the phone number: " & Trim(Request.Form("telefone")) & vbCrLf & "Leave you the following message:  " & vbCrLf &  Trim(Request.Form("mensagem"))
end if 
end if

if Request.querystring("var_mal")="ficheir" then
sTo = "rsimoes@site.pt"
sSubject = "New File Uploaded to site Platform"
shtmlBody =  "A new file was uploaded!"&vbCrLf&"Please check it at www.site.pt"
end if

if Request.querystring("var_mal")="cert" then
sTo = "rsimoes@site.pt"
sSubject = "New Certification File in site Platform"
shtmlBody =  "A new Certification File was just Uploaded to site Platform!"&vbCrLf&"Please check it at www.site.pt"
end if

if Request.querystring("var_mal")="rep" then
dim pi
dim sc
dim usr
pi=request.querystring("pi")
sc=request.querystring("sc")
usr=request.querystring("usr")	

sTo = "π&"&";"&"&sc&"&";"&"&usr&"
sSubject = "File graded!"
shtmlBody =  "The file you submited was graded!"&vbCrLf&"Please check it at www.site.pt"
end if



if Request.querystring("actnow")="gonow" then

sch = "http://schemas.microsoft.com/cdo/configuration/" 

Set cdoConfig = Server.CreateObject("CDO.Configuration") 

cdoConfig.Fields.Item(sch & "sendusing") = 2 
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 
cdoConfig.Fields.Item(sch & "smtpusessl") = True
cdoConfig.Fields.Item(sch & "smtpserverport") = 465
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.gmail.com" 
cdoConfig.Fields.Item(sch & "sendusername") = "razs@gmail.com" 
cdoConfig.Fields.Item(sch & "sendpassword") = "1234" 

cdoConfig.fields.update 

Set cdoMessage = Server.CreateObject("CDO.Message") 
Set cdoMessage.Configuration = cdoConfig 

cdoMessage.From = "razs@gmail.com"
cdoMessage.To = sTo
cdoMessage.Subject = sSubject 
cdoMessage.TextBody = stxtBody
cdoMessage.HTMLBody = shtmlBody 
x = cdoMessage.Send 

if x > 0 then
       Response.Write x
       Response.End
end if


End if
set session("e")= Nothing
Set cdoMessage = Nothing 
Set cdoConfig = Nothing

response.Write("<script>alert('Action Successfully!');location.href='index.asp'</script>")
%>

 

já agora para enviar para varias pessoas é assim certo?

"π&"&";"&"&sc&"&";"&"&usr&"

 

eu preciso do outlook 2007 para correr o cdosys?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você esta com o CDOSYS, verifique se no server a porta 465

esta liberada

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

sim eu dei permissoes na firewall para essa porta

 

podera ser porque eu nao tenho o outlook instalado? mas eu tenho o cdosys.dll na pasta SysWOW64

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

registre a dll novamente, e entre em contato com seu server para ver se existe alguma instabilidade no SMTP

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

ja nao sei o que fazer mais, eu e que estou a configurar o server, ja dei permisoes, ja abri portas, ja instalei dll...

 

cai-me tudo em cima fogo...

 

conheces algum server smtp que eu possa usar em vez do iis smtp server?

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