Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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 ?
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")
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?
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"?