Ir para conteúdo

POWERED BY:

Arquivado

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

dnyuki

enviar formulario anexado em asp

Por , em ASP Clássico

Recommended Posts

dnyuki    0

dnyuki
Postado

Ola pessoal Tudo bem!

Então estou com uma situação dificil para resolver e gostaria da ajuda de vocês, preciso envia um formulario do meu site anexado em um email e trata-lo depois, mas precizo que ele vá como postdata.att. Então eu sei que utilizando o mailto:xxxxx@dominio.com.br eu vou consiguir fazer isso, mas estou tendo problemas, pois sempre ocorre erro!

Montei um programa em asp que envia o e-mail com anexo, mas precizo anexar o post gerado, mas não sei como reverencia-lo. Segue o codigo para melhor intendimento:

 

envia_email.asp

 

<%	
  Set objCDOSYSMail = Server.CreateObject("CDO.Message")
  Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
  objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.dominio.com.br"
  objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
  objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxx@dominio.com.br"
  objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxxxxxx"
  objCDOSYSCon.Fields.update
  Set objCDOSYSMail.Configuration = objCDOSYSCon
  objCDOSYSMail.From = "xxxxx@dominio.com.br"
  objCDOSYSMail.To 	 =  "xxxxx@dominio.com.br"
  objCDOSYSMail.Subject = "Contato via website"
  objCDOSYSMail.TextBody = "corpo do email"
  objCDOSYSMail.AddAttachment("POSTDATA.ATT") <<---- gostaria de enviar os post anexado  
  objCDOSYSMail.Send
  
  Set objCDOSYSMail = Nothing
  Set objCDOSYSCon = Nothing
  
  Response.Write("<script language=Javascript>")
  Response.Write("java script:alert('Contato enviado com sucesso. Obrigado!')" & "</script>")
  Response.Write("<script language=Javascript>")
  Response.Write("java script:history.back()" & "</script>")
 %>

index.asp

 

<% Response.Charset="ISO-8859-1" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
  
<html>
<head>
<title>Formpadrao</title>
</head>
<body>
  <table border="0" cellpadding="0" cellspacing="0" width="100%" id="table11">
  <tr>
	<form method="POST" action="envia_email.asp">
	 <td>
	<font face="Arial" size="2" color="#808080">
	Nome:<br>
	<input type="text" name="nome" size="31"><br>
	Email:<br>
	<input type="text" name="email" size="31"><br>
	Mensagem:<br>
	<textarea rows="2" name="mensagem" cols="24"></textarea><br>
	<br>
	<input type="submit" value="Enviar" name="acao"></font></td>
	</form>
   </tr>
 </table>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Você precisará fazer o UPLOAD e só depois enviar.

 

Passo 1: Fazer upload do arquivo e enviar os dados do Form

Passo 2: Receber o arquivo e informar o caminho físico ao componente de e-mail junto com as informações

Passo 3: Enviar.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha um exemplo, usando o SoftArtisans.FileUp para upload:

 

response.buffer = true
Server.ScriptTimeout = 1000000

v_situacao = " disabled" 'variavel que habilita os campos do e-mail
useraction=Request.QueryString("acao")
Select Case useraction 'Verifica parametro acao para executar determinado script
	Case "upload" 'caso a acao seja upload, executa script do SaFileUp
		Set obj_Upload = Server.CreateObject("SoftArtisans.FileUp")
		obj_Upload.Path = Server.MapPath("./") 'local onde será gravado o arquivo
		obj_Upload.Form("File").Save
		Session("arquivo") = obj_Upload.Form("File").ServerName ''recupera o nome do arquivo no servidor
		Response.Write "<script>alert('Total de Bytes Enviados: " & obj_Upload.TotalBytes & "')</script>"
		Set obj_Upload = Nothing
		v_situacao = "" ''habilita os campos pra enviar o e-mail
		v_foco = " onLoad=" & chr(34) & "document.frm_email.txt_nome_rem.focus();" & chr(34)
	Case "email" 'caso a acao seja email, executa script do CDOSYS
		lista = emails()
		if len(lista) > 0 then
		
		
			Set objCDOSYSMail = Server.CreateObject("CDO.Message")
			Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 
			objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
			objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
			objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
			objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
			objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "voce@provedor.com.br"
			objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "sua senha"
			objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 5000
			'objCDOSYSCon.Fields.update
			Set objCDOSYSMail.Configuration = objCDOSYSCon
			objCDOSYSMail.From = Trim(Request.Form("txt_nome_rem")) & "<" & Trim(Request.Form("txt_email_rem")) & ">"
			objCDOSYSMail.To = Trim(Request.Form("txt_nome_rem")) & "<" & Trim(Request.Form("txt_email_rem")) & ">"
			objCDOSYSMail.Bcc = lista ''Trim(Request.Form("txt_nome_para")) & "<" & Trim(Request.Form("txt_email_para")) & ">"
			objCDOSYSMail.AddAttachment(Session("Arquivo")) ''anexa o arquivo
			objCDOSYSMail.Subject = Request.Form("txt_assunto")
			objCDOSYSMail.textBody = Request.Form("txt_corpo")
			objCDOSYSMail.Send ''envia o e-mail com o anexo
			Set objCDOSYSMail = Nothing
			Set objCDOSYSCon = Nothing
			
			
			
			Session("Arquivo") = ""
			Response.Write "<script>alert('E-mail enviado com Sucesso!')</script>"

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