Envio de e-mail com arquivo em anexo.

[formalivre 0]

olá pessoal.

tenho este código para envio de e-mail ele está funcionado corretamente.

<%

 

'cria o objeto para o envio de e-mail

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

 

'cria o objeto para configuração do SMTP

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

 

'SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xxxx.com.br"

 

'porta do SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

 

 

'porta do CDO

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

 

'timeout

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

 

objCDOSYSCon.Fields.update

 

'atualiza a configuração do CDOSYS para o envio do e-mail

Set objCDOSYSMail.Configuration = objCDOSYSCon

 

'e-mail do remetente

objCDOSYSMail.From = request.Form("email")

'e-mail do destinatário

objCDOSYSMail.To = "xxxxxx@uol.com.br"

 

'assunto da mensagem

objCDOSYSMail.Subject = "Contato"

 

'conteúdo da mensagem

strBody = "Dados do contato" & vbCrLf & vbCrLf & _

"<br><br>Nome para contato: "& Request("nome") & vbCrLf & vbCrLf & _

"<br>E-Mail: "& Request("email") & vbCrLf & vbCrLf & _

"<br>Tel.: "& Request("telefone") & vbCrLf & vbCrLf & _

"<br>Mensagem: "& Request("mensagem")

strBody = strBody & "."

 

 

objCDOSYSMail.HtmlBody = DecodeUTF8(strBody)

'para envio da mensagem no formato html altere o TextBody para HtmlBody

'objCDOSYSMail.HtmlBody = strBody

 

'envia o e-mail

objCDOSYSMail.Send

 

'destrói os objetos

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

 

response.redirect ("obrigado.htm" )

 

%>

mas agora preciso anexar um arquivo para enviar curriculos.

meu servidor suporta estes componentes para envio de arquivo para o servidor:

ABC Upload, ASP Tear, ASP Smart Upload, Dundas Upload.

alguém poderia me ajudar a implementar este envio de arquivo em anexo neste código acima.

obrigado desde já.

[marcosalmeida 0]

Olá amigo!

Eu uso esta sintaxe e funciona beleza. Este codigo esta com habilitação do formulario. Os campos só são liberados depois do uploads. Não sou expert em asp, mas espero ter ajudado.

 

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>"

[formalivre 0]

oi Marcos. obrigado pela resposta. nas verdade este componente "SoftArtisans.FileUp" meu servidor não suporta eu tenho este código em outro provedor e funciona legal. meu servidor só suporta estes componentes: ABC Upload, ASP Tear, ASP Smart Upload, Dundas Upload. mas mesmo assim obrigado pela resposta. preciso com os componentes que meu servidor suporta.

[Mário Monteiro 179]

tem varios exemplos prontos no forum com estes componentes em especial o dundas

 

tente adaptar um