Anexar Arquivo no Cdonts usando Dundas

[fabiosc80 0]

Pessoal,Estou fazendo um formulario de contato num site aonde tem que ter arquivo anexo.Até ai tudo bem. Sei que tem que usar um componente de upload pra subir o arquivo pro servidor e depois anexar no Cdonts (esqueci a linha que jogo no Cdonts mas vejo isso depois)O Problema é que meu componente de upload ta dando esse erro aqui quando tento subir o arquivo

Dundas.Upload.2 error '80004005'Failed to get the boundary./gp/web/enviar_email_i.asp, line 14

Abaixo segue o Código é pequeno.

<%			'Cria uma instância do componente Dundas Upload com o nome objUpload.			Set objUpload = Server.CreateObject("Dundas.Upload.2")						'Limita em 20 MBytes o tamanho do arquivo			objUpload.MaxFileSize = 200000000						objUpload.UseVirtualDir = True						objUpload.UseUniqueNames = False							 objUpload.SaveToMemory			For Each objUploadedFile in objUpload.Files							arquivo = objUpload.GetFileName(objUploadedFile.OriginalPath) ' SALVAR ARQUIVO COM NOME ORIGINAL				objUploadedFile.SaveAs "c:\meusite\" & arquivo							Nextresponse.write arquivoresponse.end%>

Pessoal,Estou fazendo um formulario de contato num site aonde tem que ter arquivo anexo.Até ai tudo bem. Sei que tem que usar um componente de upload pra subir o arquivo pro servidor e depois anexar no Cdonts (esqueci a linha que jogo no Cdonts mas vejo isso depois)O Pronblema é que meu componente de upload ta dando esse erro aqui quando tento subir o arquivoCODEDundas.Upload.2 error '80004005'Failed to get the boundary./gp/web/enviar_email_i.asp, line 14Abaixo segue o Código é pequeno.CODE<% 'Cria uma instância do componente Dundas Upload com o nome objUpload. Set objUpload = Server.CreateObject("Dundas.Upload.2") 'Limita em 20 MBytes o tamanho do arquivo objUpload.MaxFileSize = 200000000 objUpload.UseVirtualDir = True objUpload.UseUniqueNames = False objUpload.SaveToMemory For Each objUploadedFile in objUpload.Files arquivo = objUpload.GetFileName(objUploadedFile.OriginalPath) ' SALVAR ARQUIVO COM NOME ORIGINAL objUploadedFile.SaveAs "c:\meusite\" & arquivo Nextresponse.write arquivoresponse.end%>A linha 14 é essa aqui:objUpload.SaveToMemoryAlguem sabe oque é?agradeço desde já

[Rodrigo Patricio 3]

Bom, tira essa linha aê pra ver se vai... ele salva o anexo na memoria do servidor... caso naum dê, usa esse script aqui que eu sempre uso, só presisa ter uma pasta chamada anexo no masma altura que o arquivo e mudar o seu smtp.

 

<%On Error Resume NextSet objUpload = server.CreateObject("Dundas.Upload.2")objUpload.UseVirtualDir = TrueobjUpload.UseUniqueNames = FalseobjUpload.Save "anexo/"remetente = objUpload.Form("remetente")email_remetente = objUpload.Form("email_remetente")destinatario = objUpload.Form("destinatario")email_destinatario = objUpload.Form("email_destinatario")assunto = objUpload.Form("assunto")mensagem = objUpload.Form("mensagem")For Each objUploadedFile in objUpload.Fileslocal = (""&objUploadedFile.OriginalPath&"")nextSet objCDOSYSMail = Server.CreateObject("CDO.Message")Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.dominio.com.br"'Aqui você coloca o seu smtpobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30objCDOSYSCon.Fields.updateSet objCDOSYSMail.Configuration = objCDOSYSConobjCDOSYSMail.From = ""&remetente&""objCDOSYSMail.To = ""&email_destinatario&""objCDOSYSMail.Subject = ""&assunto&""objCDOSYSMail.TextBody = ""&mensagem&""ObjCDOSYSMail.AddAttachment Server.MapPath("anexo/"&local&"")objCDOSYSMail.SendSet objCDOSYSMail = NothingSet objCDOSYSCon = NothingSet FSO = Server.CreateObject("Scripting.FileSystemObject")local1 = Server.MapPath("anexo/"& local &"")FSO.DeleteFile ""&local1&""response.write "E-mail enviado com sucesso!"%>

Ahhh, esqueci de citar... ai eu tô usando CDOSYS, mas é facim pra trocar... flw! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[fabiosc80 0]

"local" é o nome do arquivo????

[fabiosc80 0]

Descobri o problema,Esqueci de colocar "Dim objUpload"rs....Mas agora preciso saber qual a linha que atacha arquivos no Cdonts, no código dele? vcs poderiam me dizer?

[Rodrigo Patricio 3]

ObjCDOSYSMail.AddAttachment Server.MapPath("anexo/"&local&"")

Nessa linha que adciona o anexo, ai é só você adaptar o nome do arquivo...

 

Flw!