[Resolvido] aspmail nao funca

[xanburzum 169]

isso muitas vezes pode ser uma instabilidade de seu server, verifique junto ao seu host...

[razstec 0]

incrivel os tipos do staff dizem que estou a utilizar cdonts e que a microsoft descontinuo esse serviço....

Dizem para fazer com cdosys que já funciona....

 

Já enviei um mail a explicar que estou a utilizar cdosys e que ontem funcionava bem...

[xanburzum 169]

realmente o CDONTS, foi substituido pelo CDOSYS, olhe alguns exemplos:

 

O envio de um texto de e-mail:

 

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%> 

 

 

 

O envio de um texto de e-mail com Bcc e os campos CC:

 

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.Bcc="someoneelse@somedomain.com"
myMail.Cc="someoneelse2@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%> 

 

 

Enviando uma mensagem de e-mail HTML:

 

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.HTMLBody = "<h1>This is a message.</h1>"
myMail.Send
set myMail=nothing
%>

 

 

 

Enviando um e-mail HTML que envia uma página de um site:

 

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "http://www.w3schools.com/asp/"
myMail.Send
set myMail=nothing
%> 

 

 

 

Enviando um e-mail HTML que envia uma página de um arquivo no seu computador:

 

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm"
myMail.Send
set myMail=nothing
%> 

 

 

 

Enviando um email com um anexo de texto:

 

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Send
set myMail=nothing
%> 

 

 

 

Enviando um e-mail de texto usando um servidor remoto:

 

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.server.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%> 

[razstec 0]

sim eu sei, mas se vires o meu codigo vais ver que estou a utilizar aquilo que escreveste, eu na altura tive a ver no w3schools.

[razstec 0]

agora da-me time out.

eles dizem que aumentaram o tempo mas nao devia fazer isto..

 

nao percebo como e que as coisas de um momento para o outro deixam de funcionar..

 

Active Server Pages error 'ASP 0113'

 

Script timed out

 

/Aquasplender Final/sendmailnews.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.

[razstec 0]

já não sei o que fazer...

 

pesquisei na net e tentei assim:

<%
 Set oCdoMail = Server.CreateObject("CDO.Message")
 Set oCdoConf = Server.CreateObject("CDO.Configuration")
%>


<%
 sConfURL = "http://schemas.microsoft.com/cdo/configuration/"
 with oCdoConf
   .Fields.Item(sConfURL & "sendusing") = 2
   .Fields.Item(sConfURL & "smtpserver") = "localhost"
   .Fields.Item(sConfURL & "smtpserverport") = 25
   .Fields.Update
 end with
%>


<%
 with oCdoMail
   .From = "noreply@aquasplender.com"
   .To = Trim(rs.Fields("mailnewsletter"))
 end with
%>


<%
 with oCdoMail
   .Subject = request.queryString("titulo")
   .CreateMHTMLBody  "http://www.aquasplender.com/news_email.asp?tbl="&tbl&"&newsemail="&rs.Fields("mailnewsletter")&"&id="&id&""
 end with
%>


<%
 oCdoMail.Configuration = oCdoConf
 oCdoMail.Send
 Set oCdoConf = Nothing
 Set oCdoMail = Nothing
%>

 

Continua na mesma...

 

Alguem tem alguma hipotese de testar este codigo?

 

os tipos do hosting dizem que não é problema do server mas acho muito estranho ser outra coisa...

 

Consegui filtrar isto, ele agora a semelhanca do outro dia empanca com as variaveis.

Mas elas estao bem, nao estao?

 

	.CreateMHTMLBody  "http://www.aquasplender.com/news_email.asp?tbl="&tbl&"&id="&id&""

 

<%@ Language=VBScript%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head><title></title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Content-Style-Type" content="text/css" />
<%
dim titulo
titulo = request.queryString("titulo")
dim id
id = request.queryString("id")
dim tbl
tbl= request.queryString("tbl")

set conn = CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.Oledb.4.0"
conn.Open Server.MapPath("zaq8964imjok/ewfatf6767f5eqw76.mdb")
set rs=server.createobject("adodb.recordset")
lerdoenca= "select * from newsletter"
rs.open lerdoenca,conn,1
%>
<%
if rs.recordcount > 0 then 
for j=1 to rs.recordcount
%>
</head>
<body>


<%



sTo =  Trim(rs.Fields("mailnewsletter"))
sFrom = "noreply@aquasplender.com"
sSubject = request.queryString("titulo")
sMailServer = "127.0.0.1"





 Set objMail = Server.CreateObject("CDO.Message")
 Set objConf = Server.CreateObject("CDO.Configuration")
 Set objFields = objConf.Fields





 With objFields
   .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")  = sMailServer
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
   .Update
 End With


response.write "zzzzzzzzzzz1

 With objMail
   Set .Configuration = objConf
   .From = sFrom
   .To = sTo
   .Subject = sSubject
 	.CreateMHTMLBody  "http://www.aquasplender.com/news_email.asp?tbl="&tbl&"&id="&id&""

  End With

response.write "zzzzzzzzzzzzzz2"


   Err.Clear 
 on error resume next

   objMail.Send

 Set objFields = Nothing
 Set objConf = Nothing
 Set objMail = Nothing

response.write "zzzzzzzzzzzzzz3"

%>
<br>								
<%
rs.movenext
next 
else
end if
response.write "FIM!!!!!!!!!MMMMMMMM.........IIIIIIIIIIIIIIIIII!!!!!!"
%>								

</body>

</html>

[Vinicius Ianni 189]

Realmente é estranho, veja este código uso ele em alguns clientes:

 

<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")

'Variaveis

Dim meuservidorsmtp
Dim minhacontaautenticada
Dim minhasenhaparaenvio
Dim emailorigem
Dim emaildestino

'Abaixo seguem algumas definicoes de variaveis para o envio de seu formulario. Por favor preencha os campos abaixo.

meuservidorsmtp = "smtp" ' Informacoes so seu servidor SMTP
minhacontaautenticada = "email" ' conta de e-mail utilizada para enviar
minhasenhaparaenvio = "senha" ' senha da conta de e-mail
emailorigem = "email" ' e-mail que indica de onde partiu a mensagem
emaildestino = "email" ' e-mail que vai receber as mensagens do formulario

'Fim da definição manual de parâmetros.

cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = meuservidorsmtp
cdoConfig.Fields.Item(sch & "smtpserverport") = 25
cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
cdoConfig.Fields.Item(sch & "sendusername") = minhacontaautenticada
cdoConfig.Fields.Item(sch & "sendpassword") = minhasenhaparaenvio
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig

cdoMessage.BodyPart.Charset = "iso-8859-1"
cdoMessage.From = emailorigem
cdoMessage.To = emaildestino
cdoMessage.Subject = "Formulario de Contato"
cdoMessage.ReplyTo = Request("email")

strBody = "Dados <br> <br>" & _
"Nome:"& Request.form("nome")& "<br>" & _
strBody = strBody & "."
cdoMessage.HTMLBody = strBody

cdoMessage.Send

Set cdoMessage = Nothing
Set cdoConfig = Nothing

response.write "O e-mail foi processado e enviado com sucesso"

 

É baseado no exemplo de envio de formulário por e-mail do uolhost

[razstec 0]

A questão é que ele antes nao funcionava devido as var no htmlbody mas eu resolvi isso e funcionou, agora sem que eu tivesse feito qualquer alteração deixou de funcionar, voltou ao mesmo se eu tirar as variaveis ele manda a pagina normalmente.

[Vinicius Ianni 189]

Veja se o seu serviço de hospedagem não alterou alguma configuração, exigindo autenticação ou alterou alguma porta, etc..

Ou caso seja possivel, teste o script em outro provedor e mude a hospedagem.

[xanburzum 169]

veja se seu SMTP esta recusando a mensagem

[razstec 0]

Ja to farto de andar as voltas.

 

desisto.

 

Qualquer dia volto a pensar nisto.