Ir para conteúdo

POWERED BY:

Arquivado

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

Patty Guido

Como anexar mais de um arquivo

Por , em ASP Clássico

Recommended Posts

Patty Guido    0

Patty Guido
Postado

Boa tarde, Preciso de uma ajuda urgente!!!!Preciso saber como faz para anexar mais de um arquivo em um formulario que tenhoO cliente preenche esse formulario, manda com um anexo, e recebemos via email.ObrigadaPatricia

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

só com essas informações impossivel te ajudar....qual componente de email? como está seu código de envio?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patty Guido    0

Patty Guido
Postado

Esse é meu codigo de envio, já tenho com um anexo, precisava colocar mais, tipo webmail, sabe?

 

 

<!-- #include file = "funcoes_upload.asp" --><!--#include file="conexao.asp"--><%'Chamando Funções, que fazem o Upload funcionarbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBin' Tipo de arquivo que esta sendo enviadotipo_arquivo = UploadRequest.Item("arquivo").Item("ContentType")' Caminho completo dos arquivos enviadoscaminho_arquivo = UploadRequest.Item("arquivo").Item("FileName")' Nome dos arquivos enviadosnome_arquivo = Right(caminho_arquivo,Len(caminho_arquivo)-InstrRev(caminho_arquivo,"\"))' Conteudo binario dos arquivos enviadosarquivo = UploadRequest.Item("arquivo").Item("Value")'pasta onde as imagens serao guardadaspasta = Server.MapPath("obras/")nome_arquivo = "/"&nome_arquivo' pasta + nome dos arquivosVarquivo = "obras" + nome_arquivo' Fazendo o Upload do arquivo selecionadoif Varquivo <> "" thenSet ScriptObject = Server.CreateObject("Scripting.FileSystemObject")Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo)For i = 1 to LenB(arquivo)MyFile.Write chr(AscB(MidB(arquivo,i,1)))NextMyFile.Closeend if'============ ENVIO DO E-MAIL =============HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"HTML = HTML & "<html>"HTML = HTML & "<head>"HTML = HTML & "<meta http-equiv=""Content-Type""" HTML = HTML & "content=""text/html; charset=iso-8859-1"">" HTML = HTML & "<title>DÚVIDAS COM ANEXOS</title>" HTML = HTML & "</head>"  HTML = HTML & "<body bgcolor=""#FFFFFF"">"HTML = HTML & "<p style=""font-family: Arial, Helvetica, sans-serif; font-size: 24px"">MULTIPLUS</span><br/>"HTML = HTML & "<span style=""font-size: 12px"">Softwares Técnicos</span></p>"HTML = HTML & "<p style=""font-size: 18px; font-family: Arial, Helvetica, sans-serif"">Dúvida com anexo enviada através do site</p>"HTML = HTML & "<font size=""2"" face=""arial"">"HTML = HTML & "<B>Nome: </B>" & Session("Vnome") & "<BR><BR>"HTML = HTML & "<B>Sugestão: </B>" & Session("Vsugestao")& "<BR><BR>"HTML = HTML & "<B>Anexo: </B>" & nome_arquivo & "<BR><BR>"HTML = HTML & "<p style=""font-size: 18px; font-family: Arial, Helvetica, sans-serif"">ATENÇÃO! Verifique e responda a dúvida do usuário pelo site www.multiplus.com/suporte/acessointerno.asp, aqui é só o arquivo para visualização da dúvida.</p>"HTML = HTML & "<font size=""2"" face=""arial"">"HTML = HTML & "</font>"HTML = HTML & "</body>"HTML = HTML & "</html>"'-----------------------------------------------------------------------------------------------------------------------------------Server.ScriptTimeout = 1000'-----------------------------------------------------------------------------------------------------------------------------------varanexo = Server.MapPath(Varquivo)'-----------------------------------------------------------------------------------------------------------------------------------Set myMail = CreateObject("CDONTS.NewMail") myMail.From = "SITE" myMail.To = "obrasweb@multiplus.com"myMail.Subject = Session("Vnome") & " - ANEXO DE SUGESTÕES E RECLAMAÇÕES"myMail.BodyFormat = 0 myMail.MailFormat = 0myMail.Attachfile varanexomyMail.Body = HTML myMail.Send  '-----------------------------------------------------------------------------------------------------------------------------------Set myMail = Nothing '-----------------------------------------------------------------------------------------------------------------------------------Set FSO = Server.CreateObject("Scripting.FileSystemObject")If Fso.FileExists(varanexo) ThenSet anexo = FSO.GetFile(varanexo)anexo.deleteend if'-----------------------------------------------------------------------------------------------------------------------------------' finaliza o cadastroResponse.Redirect(response.write("<script>location = '/SIM/PRINCIPALXYZ000.HTM';alert('Seu email foi enviado com sucesso!.')</script>")) %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

a logica é tipo isso, primeiro você faz o upload de todas os arquivos e no attachfile do cdonts faz um loop pra ler todos os arquivos que uplou, colocando a linha abaixo dentro de um FOR, onde varanexo receberá o nome do arquivo a cada volta o FORmyMail.Attachfile varanexo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patty Guido    0

Patty Guido
Postado

Oi Jonathan...Faz pouco tempo que eu comecei a mexer em asp...entao me confundi um poucocoloco o FOR antes do myMail.Attachfile varanexoe faz o loop assim %rs.MoveNext : Loop??ou não é isso?!

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

você tem o Componente ASPMail?

 

Da uma olhada nisso:

<%' change to address of your own SMTP serverstrHost = "mail.elinkisp.com"If Request("Send") <> "" Then   Set Mail = Server.CreateObject("Persits.MailSender")   ' enter valid SMTP host   Mail.Host = strHost   Mail.From = "info@persits.com"   Mail.FromName = "Persits Software, Inc."   Mail.AddAddress Request("To")   ' Attach two files in the same directory (any file type can be attached)   strPath = Server.MapPath(".")   Mail.AddAttachment strPath & "\ps_logo.gif"   Mail.AddAttachment strPath & "\wehave.gif"   ' message subject   Mail.Subject = "Logo & Motto"   ' message body   Mail.Body = "Persits Software logo and motto images are attached."   Mail.Send ' send message   Response.Write "aeeeeeeeeee!"End If%>
scripy by: Manual ASPMail

Link: http://www.aspemail.com/manual_03.html

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