enviar e-mail com anexo

reinaldo polato · Outubro 9, 2011

e ai galera beleza está dando erro na pagina aspupload.asp

Erro de tempo de execução do Microsoft VBScript erro '800a01ad'

O componente do ActiveX não pode criar objeto

/vendas/upload/Aspupload.asp, linha 3

o componente que eu instalei foi o aspupload

index.asp

<html>
<head>
<title>ENVIA E-MAIL COM ANEXO</title>
</head>
<body>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
  <td width="100%">
    <form method="POST" action="envia_email.asp">
      <table border="1" width="100%">
        <tr>
          <td width="40%" align="right">Nome:</td>
          <td width="60%"><input type="text" name="txt_nome" size="24"></td>
        </tr>
        <tr>
          <td width="40%" align="right">E-mail:</td>
          <td width="60%"><input type="text" name="txt_email" size="24"></td>
        </tr>
        <tr>
          <td width="40%" align="right">Assunto:</td>
          <td width="60%"><input type="text" name="txt_assunto" size="24"></td>
        </tr>
        <tr>
          <td width="40%" align="right">Mensagem:</td>
          <td width="60%"><textarea rows="2" name="txt_mensagem"cols="20"></textarea></td>
        </tr>
        <tr>
          <td width="40%" align="right">Anexo:</td>
          <td width="60%"><input type="text" name="txt_anexo" size="24" value="<%=session("arquivo")%>">
            <a href="up.html">anexar</a></td>
        </tr>
        <tr>
          <td width="40%" align="right"> </td>
          <td width="60%"><input type="submit" value="Enviar" name="b1"></td>
        </tr>
      </table>
    </form>
  </td>
</tr>
</table>

</body>

</html>

up.html

<html>

<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="Aspupload.asp"> 

<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
  <td width="35%" rowspan="3">
  </td>
  <td width="30%">
<p align="justify" style="line-height: 100%"><font size="1" face="Arial">
SELECIONE O ARQUIVO CORRETO PARA O ENVIO NO FORMULÁRIO</font>
  </td>
  <td width="35%" rowspan="3">
  </td>
</tr>
<tr>
  <td width="30%">
<p align="right"> 
<INPUT TYPE=FILE SIZE=60 NAME="FILE1" size="44">
  </td>
</tr>
<tr>
  <td width="30%">
    <p align="right"><INPUT TYPE=SUBMIT VALUE=" UPLOAD "> 
  </td>
</tr>
</table>

</FORM>
</html>

aspupload.asp

<%
Set Upload = Server.CreateObject("Persits.Upload")
Count = upload.Save("C:\vendas\upload\nome.doc")
%>

<%= Count %> <FONT SIZE="1" FACE="ARIAL">ARQUIVO ENVIADO

<%
Set FSO = CreateObject("scripting.FileSystemObject")
Set Folder = FSO.GetFolder("C:\vendas\upload\nome.doc")
Set Files = Folder.Files
%>

<%
For each objUploadedFile In Upload.Files
arquivo = objUploadedFile.ExtractFileName
response.Write(": " & objUploadedFile.ExtractFileName)
seq = seq + 1
Next

'criei uma session para armazenar o no do arquivo
session("arquivo") = arquivo

if session("arquivo") <> "" then
 response.redirect "index.asp"
end if
%>

envia_e-mail.asp

<%
dim arquivo
arquivo = session("nome.doc")
caminho = c:/vendas/upload/
caminho = caminho & arquivo

'Vamos recuperar os valores do formulário
nome = Request.Form("txt_nome")
email = Request.Form("txt_email")
assunto = Request.Form("txt_assunto")
mensagem = Request.Form("txt_mensagem")
Anexo = Request.Form("txt_anexo")

Server.ScriptTimeout = 180

sch = "http://schemas.microsoft.com/cdo/configuration/" 

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


cdoConfig.Fields.Item(sch & "sendusing") = 2 
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 
cdoConfig.Fields.Item(sch & "smtpusessl") = True
cdoConfig.Fields.Item(sch & "smtpserverport") = 465
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.gmail.com" 
cdoConfig.Fields.Item(sch & "sendusername") = "e-mail@gmail.com" 
cdoConfig.Fields.Item(sch & "sendpassword") = "minhasenha" 
cdoConfig.fields.update 

Set cdoMessage = Server.CreateObject("CDO.Message") 
Set cdoMessage.Configuration = cdoConfig 

cdoMessage.From = "de" 
cdoMessage.To = "para"
cdoMessage.Subject = Assunto 
cdoMessage.HTMLBody = Mensagem
'cdoMessage.AddAttachment("")'anexar o arquivo 
x = cdoMessage.Send 

if x > 0 then
Response.Write x
Response.End
else
response.write "Sua mensagem foi enviada com sucesso!"
End if

Set cdoMessage = Nothing 
Set cdoConfig = Nothing 


%>

<%
'Avisamos ao usuário que sua mensagem foi enviada corretamente.
Response.write "E-mail Enviado "
Response.Write session("arquivo")
%>

xanburzum · Outubro 10, 2011

Este erro é geralmente associada com a tentativa de criar uma instância de um objeto COM usando um ProgID que não é realmente registrado na máquina. verifique se tem o componente instalado.

reinaldo polato · Outubro 10, 2011

eu instalei o componente

agora está dando esse erro

Persits.Upload.1 erro '800a0005'

O sistema não pode encontrar o caminho especificado.

/vendas/upload/aspupload.asp, linha 3

o caminho aonde está o arquivo txt é c:/vendas/upload/reinaldo.txt

Count = upload.Save ("C:/vendas/reinaldo.txt")

essa linha da o erro

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = upload.Save ("C:/vendas/reinaldo.txt")
%>

<%= Count %> <FONT SIZE="1" FACE="ARIAL">ARQUIVO ENVIADO

<%
Set FSO = CreateObject("scripting.FileSystemObject")
Set Folder = FSO.GetFolder("C:/vendas/upload/reinaldo.txt")
Set Files = Folder.Files
%>

<%
For each objUploadedFile In Upload.Files
arquivo = objUploadedFile.ExtractFileName
response.Write(": " & objUploadedFile.ExtractFileName)
seq = seq + 1
Next

'criei uma session para armazenar o no do arquivo
session("arquivo") = arquivo

if session("arquivo") <> "" then
response.redirect "index.asp"
end if
%>

xanburzum · Outubro 10, 2011

utilize o server.mappath para refrenciar o caminho, Verifique se a pasta que você está definindo o método Salvar existe, e que IUSR_machinename tem permissões de gravação.

reinaldo polato · Outubro 10, 2011

upload.asp

ele está dando outro erro agora

False ARQUIVO ENVIADO

Erro de tempo de execução do Microsoft VBScript erro '800a004c'

Caminho não encontrado

/vendas/upload/aspupload.asp, linha 11

Set Folder = FSO.GetFolder("c:/vendas/upload/reinaldo.txt")
nessa linha

<%
Set Upload = Server.CreateObject ("Persits.Upload.1")
Count = upload.Save = server.MapPath("reinaldo.txt")

%>

<%= Count %> <FONT SIZE="1" FACE="ARIAL">ARQUIVO ENVIADO

<%
Set FSO = CreateObject("scripting.FileSystemObject")
Set Folder = FSO.GetFolder("c:/vendas/upload/reinaldo.txt")
Set Files = Folder.Files
%>

<%
For each objUploadedFile In Upload.Files
arquivo = objUploadedFile.ExtractFileName
response.Write(": " & objUploadedFile.ExtractFileName)
seq = seq + 1
Next

'criei uma session para armazenar o no do arquivo
session("arquivo") = arquivo

if session("arquivo") <> "" then
response.redirect "index.asp"
end if
%>

xanburzum · Outubro 10, 2011

você esta executando no server ou localhost ?

dá um response.write na sua variavel para ver o que esta sendo passado

reinaldo polato · Outubro 10, 2011

estou executando no localhost

retrolink · Outubro 11, 2011

Mano, olha aqui...

Set Folder = FSO.GetFolder("c:/vendas/upload/reinaldo.txt")

Ta errado, aqui você deve especificar a pasta, apenas a pasta, por isso esta dando errado.

xanburzum · Outubro 11, 2011

método GetFolder

reinaldo polato · Outubro 11, 2011

e ai galera beleza seguinte ele já está funcionando na pagina index.asp

quando eu seleciono o arquivo tipo reinaldo.txt eu tenho que colocar isso pra poder funcionar

cdoMessage.AddAttachment("c:\vendas\upload\reinaldo.txt")'anexar o arquivo

ele so funciona assim

tem como selecionar o arquivo nome.doc na pagina aspupload.asp e enviar por e-mail sem terque colocar esse arquivo nesse codigo cdoMessage.AddAttachment("c:\vendas\upload\reinaldo.txt")'anexar o arquivo

retrolink · Outubro 11, 2011

Não, para passar por email você tera que utilizar esta forma... ou então montar uma url e oferecer o download via page para o usuário, mais se quiser anexar no email tem que ser assim.

xanburzum · Outubro 11, 2011

você pode concatenar uma variavel que ja tenha previamente o caminho e depois adiciona apenas o nome do arquivo

reinaldo polato · Outubro 11, 2011

e ai galera beleza

como eu faço pra quando eu selecionar o arquivo ai embaixo aparecer o nome do arquivo e o tamanho do arquivo que foi anexado pra enviar por e-mail

tipo nome do arquivo reinaldo.txt tamanho 68kb como eu faço isso

up.html

<html> 

<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="Aspupload.asp">  

<table border="0" width="100%" cellspacing="0" cellpadding="0"> 
<tr> 
  <td width="35%" rowspan="3"> 
  </td> 
  <td width="30%"> 
<p align="justify" style="line-height: 100%"><font size="1" face="Arial"> 
SELECIONE O ARQUIVO CORRETO PARA O ENVIO NO FORMULÁRIO</font> 
  </td> 
  <td width="35%" rowspan="3"> 
  </td> 
</tr> 
<tr> 
  <td width="30%"> 
<p align="right">  
<INPUT TYPE=FILE SIZE=60 NAME="FILE1" size="44"> 
  </td> 
</tr> 
<tr> 
  <td width="30%"> 
    <p align="right"><INPUT TYPE=SUBMIT VALUE=" UPLOAD ">  
  </td> 
</tr> 
</table> 

</FORM> 
</html>

xanburzum · Outubro 11, 2011

você pode usar FSO para pegar o nome e tamanho do arquivo , abixo uma função para pegar o nome do arquivo

Public function GetFilename(ByVal strGetPath)
   Dim nPos, strFilename
   Dim strDir
   strFilename = ""
       strGetPath = cstr(strGetPath)
       if Not len(strGetPath) = 0 Then
           nPos = InStrRev(strGetPath, "\", Len(strGetPath))
           if nPos > 0 Then
               strFilename = Right(strGetPath, Len(strGetPath) - nPos)
               'Response.Write strFilename
           End if
           nPos = InstrRev(strGetPath, "\", Len(strGetPath) - nPos)
           if nPos > 0 Then
               strDir = Right(strGetPath, Len(strGetPath) - nPos)
           Else
               strDir = ""
           End if 
       End if
       GetFilename = strFilename
   End function

o tamanho do arquivo use

<%' declarar variáveis
dim fso, file, ourFile, ourFileSize
' especificar um nome de arquivo
ourFile = "filename.txt"
' Obter o tamanho de arquivo
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set file = fso.GetFile(ourFile)
ourFileSize = file.Size
'Limpar variáveis
Set file = nothing
Set fso = nothing
%>

reinaldo polato · Outubro 12, 2011

e ai xanburzum beleza pra mim usar o fso temque baixar algum componente ou so esse codigo esse codigo eu coloco ele na pagina up.html é isso ou eu coloco na pagina upload.asp

xanburzum · Outubro 12, 2011

FSO ja é nativo do ASP, cocloca ele na page onde faz o upload

reinaldo polato · Outubro 12, 2011

nessa pagina está dando esse erro

Erro de tempo de execução do Microsoft VBScript erro '800a003a'

O arquivo já existe

/vendas/upload/upload.asp, linha 18

essa linha

set fa=FSO.CreateFolder("c:/vendas/upload")

<!--#include file ="config.asp"-->
<!--#include file ="include.asp"-->
<%
Dim strDefaultPath
strDefaultPath = RootFolder & "upload/"

Dim scriptName
scriptName = Request.ServerVariables("SCRIPT_NAME")

Dim FSO
Set FSO = server.CreateObject ("Scripting.FileSystemObject")

Dim strDefaultPhysicalPath
strDefaultPhysicalPath = getPhysicalPath(strDefaultPath)

If FSO.FolderExists( strDefaultPhysicalPath ) = False Then 
dim fa
set fa=FSO.CreateFolder("c:/vendas/upload") 
set fa=nothing
End If

Class CFileUploader
Public isUploaded
Public uploadedFile

Public Default Sub Upload()
Dim biData, sInputName
Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos
Dim nPosFile, nPosBound

biData = Request.BinaryRead(Request.TotalBytes)
nPosBegin = 1
nPosEnd = InstrB(nPosBegin, biData, StringToByteString(Chr(13)))

If (nPosEnd-nPosBegin) <= 0 Then Exit Sub

vDataBounds = MidB(biData, nPosBegin, nPosEnd-nPosBegin)
nDataBoundPos = InstrB(1, biData, vDataBounds)

Do Until nDataBoundPos = InstrB(biData, vDataBounds & StringToByteString("--"))

nPos = InstrB(nDataBoundPos, biData, StringToByteString("Content-Disposition"))
nPos = InstrB(nPos, biData, StringToByteString("name="))
nPosBegin = nPos + 6
nPosEnd = InstrB(nPosBegin, biData, StringToByteString(Chr(34)))
sInputName = ByteStringToString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
nPosFile = InstrB(nDataBoundPos, biData, StringToByteString("filename="))
nPosBound = InstrB(nPosEnd, biData, vDataBounds)

If nPosFile <> 0 And nPosFile < nPosBound Then
Dim sFileName
Set uploadedFile = New CUploadedFile

nPosBegin = nPosFile + 10
nPosEnd =InstrB(nPosBegin, biData, StringToByteString(Chr(34)))
sFileName = ByteStringToString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
uploadedFile.FileName = Right(sFileName, Len(sFileName)-InStrRev(sFileName, "\"))

nPos = InstrB(nPosEnd, biData, StringToByteString("Content-Type:"))
nPosBegin = nPos + 14
nPosEnd = InstrB(nPosBegin, biData, StringToByteString(Chr(13)))

nPosBegin = nPosEnd+4
nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
uploadedFile.FileData = MidB(biData, nPosBegin, nPosEnd-nPosBegin)

If uploadedFile.FileSize > 0 Then isUploaded = true Else isUploaded = false
End If

nDataBoundPos = InstrB(nDataBoundPos + LenB(vDataBounds), biData, vDataBounds)
Loop
End Sub

Private Function StringToByteString(sString)
Dim index
For index = 1 to Len(sString)
StringToByteString = StringToByteString & ChrB(AscB(Mid(sString,index,1)))
Next
End Function

Private Function ByteStringToString(bsString)
Dim index
ByteStringToString =""
For index = 1 to LenB(bsString)
ByteStringToString = ByteStringToString & Chr(AscB(MidB(bsString,index,1))) 
Next
End Function
End Class

Class CUploadedFile
Public FileName, FileData

Public Property Get FileSize()
FileSize = LenB(FileData)
End Property

Public Function Save(path)
Dim file
Dim index

If path = "" Or FileName = "" Then 
Save = false
Exit Function
End If
path = addSlash(path, "\")

If Not FSO.FolderExists(path) Then
Save = false
Exit Function
End If

on error resume next
Set file = FSO.CreateTextFile(path & FileName, True)

For index = 1 to LenB(FileData)
file.Write Chr(AscB(MidB(FileData,index,1)))
Next

file.Close
If err.Number<>0 Then
Save = false
Else
Save = true
End If
End Function
End Class
%>

<%
Dim sUploadPath

Dim sSessionAttachments
sSessionAttachments = Session("ATTACHMENTS")

If Request.QueryString("action")<>"" Then
sUploadPath = strDefaultPhysicalPath
sUploadPath = addSlash(sUploadPath, "\")
If len(sUploadPath) < len(strDefaultPhysicalPath) Then Response.End 

Dim fileUploader
Set fileUploader = New CFileUploader

Dim sUploadMsg, sUploadFile, sUploadSize
sUploadMsg = ""
sUploadFile = ""
sUploadSize = ""

fileUploader.Upload()

If not fileUploader.isUploaded Then
sUploadMsg = "Desculpe, ocorreu um problema. Não foi enviado nenhuma arquivo!"
Else
If fileUploader.uploadedFile.FileName="" Then
sUploadMsg = "Desculpe, ocorreu um problema. Não foi enviado nenhuma arquivo!"
Else
If fileUploader.uploadedFile.Save(sUploadPath) Then
sUploadFile = fileUploader.uploadedFile.FileName
sUploadSize = strStatusMsg & formatBytes(fileUploader.uploadedFile.FileSize) & " (" & fileUploader.uploadedFile.FileSize & " bytes)"
Else
sUploadMsg = "Desculpe! " & fileUploader.uploadedFile.FileName & " não pode ser enviado."
End If
End If
End If

If sUploadMsg = "" Then
If sSessionAttachments <> "" Then
sSessionAttachments = sSessionAttachments & "; " & sUploadFile
Else
sSessionAttachments = sUploadFile
End If
End If

Session("ATTACHMENTS") = sSessionAttachments

Response.Write "<script language=JavaScript>"
If sUploadMsg <> "" Then
Response.Write "alert(""" & sUploadMsg & """);"
Else
Response.Write "opener.document.forms.senderForm.attachments.value =""" & sSessionAttachments & """;"
End If
Response.Write "location.href=""uploadfile.asp?attachments=true"""
Response.Write "</SCRIPT>"
End If
%>

retrolink · Outubro 12, 2011

set fa=FSO.CreateFolder("c:/vendas/upload")

Essa pasta (c:/vendas/upload) realmente existe??? é realmente nela que todos os arquivo de upload vão parar??? existe permissão de criação e existe na pasta? você ativou isso?

E o correto para setar um createfolder é utilizar \ <- barra assim, o correto então é...

set fa=FSO.CreateFolder("c:\vendas\upload")

Portanto, modifique as barras, depois verifique se é realmente a pasta certa... verifique se o caminho ta correto, e verifique se deu permissão nesta pasta para gravar arquivos nela.

reinaldo polato · Outubro 17, 2011

e ai galera beleza

seguinte nessa pagina tem SELECIONE O ARQUIVO CORRETO PARA O ENVIO NO FORMULÁRIO

sUploadMsg sUploadFileMsg sUploadSize

ai ele não mostra o nome do arquivo e nem o tamanho

up.asp

<html> 

<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="Aspupload.asp">  

<table border="0" width="100%" cellspacing="0" cellpadding="0"> 
<tr> 
  <td width="35%" rowspan="3"> 
  </td> 
  <td width="30%"> 
<p align="justify" style="line-height: 100%"><font size="1" face="Arial"> 
SELECIONE O ARQUIVO CORRETO PARA O ENVIO NO FORMULÁRIO</font> 
  </td> 
  <td width="35%" rowspan="3"> 
  </td> 
</tr> 
<tr>  
<td Colspan="1" class="cabecalho">sUploadMsg</td>
<td Colspan="1" class="cabecalho">sUploadFileMsg</td>
<td Colspan="2" class="cabecalho">sUploadSize</td>
</tr> 
<tr>  	
  <td width="30%"> 
<p align="right">  
<INPUT TYPE=FILE SIZE=60 NAME="FILE1" size="44"> 
<td width="80%" Colspan="2" class=""> </td>
</tr>
</table>
<table align="center" border="0" width="100%" bgcolor="#A2C2EE">
<tr>

  </td> 
</tr> 
<tr> 
  <td width="30%"> 
    <p align="right"><INPUT TYPE=SUBMIT VALUE=" UPLOAD ">  
  </td> 
</tr> 

<%
Dim strDefaultPath
strDefaultPath = "c:\vendas\upload" & "upload/"

Dim scriptName
scriptName = Request.ServerVariables("SCRIPT_NAME")

Dim FSO
Set FSO = server.CreateObject ("Scripting.FileSystemObject")

Dim strDefaultPhysicalPath
strDefaultPhysicalPath = getPhysicalPath(strDefaultPath)

If FSO.FolderExists("c:\vendas\upload") = False Then 
dim fa
set fa=FSO.CreateFolder("c:\vendas\upload") 
set fa=nothing
End If

Class CFileUploader
Public isUploaded
Public uploadedFile

Public Default Sub Upload()
Dim biData, sInputName
Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos
Dim nPosFile, nPosBound

biData = Request.BinaryRead(Request.TotalBytes)
nPosBegin = 1
nPosEnd = InstrB(nPosBegin, biData, StringToByteString(Chr(13)))

If (nPosEnd-nPosBegin) <= 0 Then Exit Sub

vDataBounds = MidB(biData, nPosBegin, nPosEnd-nPosBegin)
nDataBoundPos = InstrB(1, biData, vDataBounds)

Do Until nDataBoundPos = InstrB(biData, vDataBounds & StringToByteString("--"))

nPos = InstrB(nDataBoundPos, biData, StringToByteString("Content-Disposition"))
nPos = InstrB(nPos, biData, StringToByteString("name="))
nPosBegin = nPos + 6
nPosEnd = InstrB(nPosBegin, biData, StringToByteString(Chr(34)))
sInputName = ByteStringToString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
nPosFile = InstrB(nDataBoundPos, biData, StringToByteString("filename="))
nPosBound = InstrB(nPosEnd, biData, vDataBounds)

If nPosFile <> 0 And nPosFile < nPosBound Then
Dim sFileName
Set uploadedFile = New CUploadedFile

nPosBegin = nPosFile + 10
nPosEnd =InstrB(nPosBegin, biData, StringToByteString(Chr(34)))
sFileName = ByteStringToString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
uploadedFile.FileName = Right(sFileName, Len(sFileName)-InStrRev(sFileName, "\"))

nPos = InstrB(nPosEnd, biData, StringToByteString("Content-Type:"))
nPosBegin = nPos + 14
nPosEnd = InstrB(nPosBegin, biData, StringToByteString(Chr(13)))

nPosBegin = nPosEnd+4
nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
uploadedFile.FileData = MidB(biData, nPosBegin, nPosEnd-nPosBegin)

If uploadedFile.FileSize > 0 Then isUploaded = true Else isUploaded = false
End If

nDataBoundPos = InstrB(nDataBoundPos + LenB(vDataBounds), biData, vDataBounds)
Loop
End Sub

Private Function StringToByteString(sString)
Dim index
For index = 1 to Len(sString)
StringToByteString = StringToByteString & ChrB(AscB(Mid(sString,index,1)))
Next
End Function

Private Function ByteStringToString(bsString)
Dim index
ByteStringToString =""
For index = 1 to LenB(bsString)
ByteStringToString = ByteStringToString & Chr(AscB(MidB(bsString,index,1))) 
Next
End Function
End Class

Class CUploadedFile
Public FileName, FileData

Public Property Get FileSize()
FileSize = LenB(FileData)
End Property

Public Function Save(path)
Dim file
Dim index

If path = "" Or FileName = "" Then 
Save = false
Exit Function
End If
path = addSlash(path, "\")

If Not FSO.FolderExists(path) Then
Save = false
Exit Function
End If

on error resume next
Set file = FSO.CreateTextFile(path & FileName, True)

For index = 1 to LenB(FileData)
file.Write Chr(AscB(MidB(FileData,index,1)))
Next

file.Close
If err.Number<>0 Then
Save = false
Else
Save = true
End If
End Function
End Class
%>

<%
Dim sUploadPath

Dim sSessionAttachments
sSessionAttachments = Session("ATTACHMENTS")

If Request.QueryString("action")<>"" Then
sUploadPath = strDefaultPhysicalPath
sUploadPath = addSlash(sUploadPath, "\")
If len(sUploadPath) < len(strDefaultPhysicalPath) Then Response.End 

Dim fileUploader
Set fileUploader = New CFileUploader

Dim sUploadMsg, sUploadFile, sUploadSize
sUploadMsg = "text"
sUploadFile = "arquivo"
sUploadSize = "tamanho"

fileUploader.Upload()

If not fileUploader.isUploaded Then
sUploadMsg = "Desculpe, ocorreu um problema. Não foi enviado nenhuma arquivo!"
Else
If fileUploader.uploadedFile.FileName="" Then
sUploadMsg = "Desculpe, ocorreu um problema. Não foi enviado nenhuma arquivo!"
Else
If fileUploader.uploadedFile.Save(sUploadPath) Then
sUploadFile = fileUploader.uploadedFile.FileName
sUploadSize = strStatusMsg & formatBytes(fileUploader.uploadedFile.FileSize) & " (" & fileUploader.uploadedFile.FileSize & " bytes)"
Else
sUploadMsg = "Desculpe! " & fileUploader.uploadedFile.FileName & " não pode ser enviado."
End If
End If
End If

If sUploadMsg = "" Then
If sSessionAttachments <> "" Then
sSessionAttachments = sSessionAttachments & "; " & sUploadFile
Else
sSessionAttachments = sUploadFile
End If
End If

Session("ATTACHMENTS") = sSessionAttachments

Response.Write "<script language=JavaScript>"
If sUploadMsg <> "" Then
Response.Write "alert(""" & sUploadMsg & """);"
Else
Response.Write "opener.document.forms.senderForm.attachments.value =""" & sSessionAttachments & """;"
End If
Response.Write "location.href=""aspupload.asp"""
Response.Write "</SCRIPT>"
End If
%>

xanburzum · Outubro 17, 2011

você usar um parametro overwrite do FileSystemObject.CreateTextFile

ou use um If com o FolderExists para saber se o arquivo ja existe

Arquivado

enviar e-mail com anexo

Recommended Posts

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

retrolink 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

retrolink 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

retrolink 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169