Ir para conteúdo

POWERED BY:

Arquivado

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

jcdesigner

enviar result. de uma pag. por e-mail

Por , em ASP Clássico

Recommended Posts

jcdesigner    0

jcdesigner
Postado

Amigos consegui montar esta aplicação, tá quase funcionando, parece que falta pouco agora, mas na hora que clico em enviar, fica um tempão sem a página ser enviada ou sem a msg de erro correspondente ela fica como se estivesse carregando e nunca terminasse.

 

 

colcoquei o código abaixo para facilitar, encontrar o erro.

 

PAGINA COM O SCRIPT DE ENVIO

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

endereco = "http://www.MeuSite.com.br/popups/promocoes.asp" 'ESTA É A PAGINA QUE DEVE SER ENVIADA

Set PegaHTML = Server.CreateObject("Microsoft.XMLHTTP")

PegaHTML.open "GET", endereco, false

PegaHTML.send()

Corpo = PegaHTML.ResponseText

 

' change to address of your own SMTP server

strHost = "smtp.MEU SERVIDOR.com.br"

If Request("Send") <> "" Then

Set Mail = Server.CreateObject("Persits.MailSender")

' enter valid SMTP host

Mail.Host = strHost

 

Mail.From = Request("From")

Mail.FromName = Request("FromName")

Mail.AddAddress Request("To")

 

' message subject

Mail.Subject = Request("Subject")

Mail.Body ="corpo"

strErr = ""

bSuccess = False

On Error Resume Next

Mail.Send

If Err <> 0 Then

strErr = Err.Description

else

bSuccess = True

End If

End If

%>

 

PAGINA QUE RECEBE OS DADOS POR FORMULARIO

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<HTML>

<BODY BGCOLOR="#FFFFFF">

<FORM METHOD="get" ACTION="teste.asp">

<TABLE CELLSPACING=0 CELLPADDING=2 BGCOLOR="#E0E0E0">

<TR>

<TD><B><% = strHost %></B></TD>

</TR>

<TR>

<TD>De:</TD>

<TD><INPUT TYPE="TEXT" NAME="From"></TD>

</TR>

<TR>

<TD>Nome::</TD>

<TD><INPUT TYPE="TEXT" NAME="FromName"></TD>

</TR>

<TR>

<TD>Para:</TD>

<TD><INPUT TYPE="TEXT" NAME="To"></TD>

</TR>

<TR>

<TD>Assunto:</TD>

<TD><INPUT TYPE="TEXT" NAME="Subject"></TD>

</TR>

<TR>

<TD COLSPAN=2><div align="center">

<INPUT TYPE="SUBMIT" NAME="Send" VALUE="Enviar">

</div></TD>

</TR>

</TABLE>

</FORM>

</BODY>

</HTML>

 

E AÊEE GENTE ALGUEM TEM MAIS ALGUMA LUZ ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

tr374    0

tr374
Postado

PAGINA COM O SCRIPT DE ENVIO PegaHTML.send()......Corpo = PegaHTML.ResponseText

pelo vi acho que falta um trecho depois do "PegaHTML.send()"strReturn = objXMLHTTP.responseText // Obtendo o conteúdo do arquivoSet objXMLHTTP = Nothing // Destruindo o objeto da memóriaGetHTML = strReturn // Retorna o conteúdo para funçãoEnd Functione Response.Write GetHTML("arquivo.asp") >>> isto é o corpoPS o envio do e-mail funciona com um corpo = "teste"?

Compartilhar este post

Link para o post
Compartilhar em outros sites

tr374    0

tr374
Postado

antes de tentar enviar o email usando o XMLHTTP verifique se o script de envio de e-mail está funcionando, depois disso olhai abaixo um tut. sobre XMLHTTP:

XMLHTTP - Ver código fonte de uma página Simples exemplo de usabilidade do XMLHTTP, verifica uma url e retorna o codigo fonte.   Informa o nome de um arquivo, o mesmo será executado e exibido o código fonte da mesma.Function GetHTML(strURL) Dim objXMLHTTP, strReturn Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") // Criando instancia com o objetoobjXMLHTTP.Open "GET", strURL, False // Requisitando a URL informadaobjXMLHTTP.Send // Enviando requisição do arquivostrReturn = objXMLHTTP.responseText // Obtendo o conteúdo do arquivoSet objXMLHTTP = Nothing // Destruindo o objeto da memóriaGetHTML = strReturn // Retorna o conteúdo para funçãoEnd FunctionUsabiliddeResponse.Write GetHTML("arquivo.asp")

Compartilhar este post

Link para o post
Compartilhar em outros sites

tr374    0

tr374
Postado

ola, pessoal, jc...Estou tentando fazer exatamente o que você está tendado, cansei de ler tutoriais de XMLHTTP mas a verdade que não consegui fazer funcinar nada ....tento recuperar a página e imprimir-la na tela para ver se houve a captura pelo menos e nada... erro atraz de erro.Você consguiu avançar no seu código? posso ajudar e vamos tentar um complemntar um o outro e resolver esse código de uma vez por todas?

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