Envio de Email com problema

[Bernardo Medeiros 0]

Gente estou com um problema grave.

 

Peguei um código feito por outra pessoa e estou tendo que ajeitar ele.

 

O problema é que esse código deve enviar um arquivo .doc para um banco de dados SQL SERVER 2000 e depois que o arquivo foi anexado ao banco o que acontece normalmente, este arquivo deveria ser incluído em um e-mail usando o CDONTS e enviado a uma pessoa qualquer.

 

O aplicativo em questão faz tudo certo MAS não anexa o arquivo no e-mail por nada neste mundo.

 

Algém aí tem um tutorial que ensina isto? http://forum.imasters.com.br/public/style_emoticons/default/yay.gif

 

Aguém pode me ajudar? http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

Socorro :blink:

 

Aguardo anciosamente resposta

 

Bernardo Medeiros

 

Um adendo, como o código é bem grande, dividido em três arquivos, não postei ele aqui, mas se quiserem posso postar um de cada vez.

 

Atenciosamente

 

Bernardo Medeiros B)

[Bernardo Medeiros 0]

primeiro arquivo upload.asp<!--#include file="../biblioteca/conexao_DB.asp"--> <%'UPLOAD DOS ARQUIVOS*******************************************************byteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Dim UploadRequestSet UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBincontentType = UploadRequest.Item("fl_arquivo").Item("ContentType")filepathname = UploadRequest.Item("fl_arquivo").Item("FileName")filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))tipo_arquivo = Right(filename,Len(filename)-InstrRev(filename,"."))'Captura o nome, email e categorianome = UploadRequest.Item("txt_nome").Item("Value")email = UploadRequest.Item("txt_email").Item("Value")categoria = UploadRequest.Item("cbo_categ").Item("Value")'Verifica o tipo de arquivoif cstr(tipo_arquivo) <> "doc" then response.redirect "enviar_doc.asp?nome=" & nome & "&email=" & email & "&categ=" & categoria & "&erro=18975"elsevalue = UploadRequest.Item("fl_arquivo").Item("Value") 'Create FileSytemObject Component Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")if filename <> "" then'############## INSERE O ARQUIVO NO BANCO ##############################SQLFILE_IN = "INSERT INTO doc (bln_doc, dsc_doc) values (1,'"& filename &"')"'response.write SQLFILE_IN'response.endset rsFile_In = banco.execute(SQLFILE_IN)else %><script>alert("Selecione um arquivo!")</script><%end ifSQLCOD = "SELECT TOP 1 cod_doc FROM doc WHERE bln_doc = 1 ORDER BY cod_doc desc"'response.write SQLCOD'response.endset rsCod = banco.execute(SQLCOD) caminho = left(Server.mappath(Request.ServerVariables("PATH_INFO")),InStrRev(Server.mappath(Request.ServerVariables("PATH_INFO")),"\")) 'Pasta q receberá o arquivo caminho = caminho & "docs\" & rsCod("cod_doc") &"_"& filename 'Response.Write caminho 'Response.End Set MyFile = ScriptObject.CreateTextFile(caminho) For i = 1 to LenB(value) MyFile.Write chr(AscB(MidB(value,i,1))) Next MyFile.Close%><!--#include file="upload1.asp"--><%SQLCOD_ALT = "UPDATE doc SET dsc_doc = '"& rsCod("cod_doc") &"_"& filename &"' WHERE cod_doc = "& rsCod("cod_doc")'response.write SQLCOD_ALT'response.endset rsCod_Alt = banco.execute(SQLCOD_ALT)'retornoresponse.redirect "enviar_doc.asp?file=" & filename & "&nome=" & nome & "&email=" & email & "&categ=" & categoriaend if%>

[Bernardo Medeiros 0]

2º arquivo upload1.asp<%Sub BuildUploadRequest(RequestBin) 'Get the boundary PosBeg = 1 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13))) boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg) boundaryPos = InstrB(1,RequestBin,boundary) 'Get all data inside the boundaries Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--"))) 'Members variable of objects are put in a dictionary object Dim UploadControl Set UploadControl = CreateObject("Scripting.Dictionary") 'Get an object name Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition")) Pos = InstrB(Pos,RequestBin,getByteString("name=")) PosBeg = Pos+6 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34))) Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg)) PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename=")) PosBound = InstrB(PosEnd,RequestBin,boundary) 'Test if object is of file type If PosFile<>0 AND (PosFile<PosBound) Then 'Get Filename, content-type and content of file PosBeg = PosFile + 10 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34))) FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg)) 'Add filename to dictionary object UploadControl.Add "FileName", FileName Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:")) PosBeg = Pos+14 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13))) 'Add content-type to dictionary object ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg)) UploadControl.Add "ContentType",ContentType 'Get content of object PosBeg = PosEnd+4 PosEnd = InstrB(PosBeg,RequestBin,boundary)-2 Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg) Else 'Get content of object Pos = InstrB(Pos,RequestBin,getByteString(chr(13))) PosBeg = Pos+4 PosEnd = InstrB(PosBeg,RequestBin,boundary)-2 Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg)) End If 'Add content to dictionary object UploadControl.Add "Value" , Value 'Add dictionary object to main dictionary UploadRequest.Add name, UploadControl 'Loop to next object BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary) LoopEnd Sub'String to byte string conversionFunction getByteString(StringStr) For i = 1 to Len(StringStr) char = Mid(StringStr,i,1) getByteString = getByteString & chrB(AscB(char)) NextEnd Function'Byte string to string conversionFunction getString(StringBin) getString ="" For intCount = 1 to LenB(StringBin) getString = getString & chr(AscB(MidB(StringBin,intCount,1))) NextEnd Function%>