ARQUIVO TEMPORARIO

ALEVALE 14/08/2012 14:46:27
#407928
Pessoal estou com uma duvida,

Eu faço o download de um arquivo na realidade de um PDF, queria saber como eu faço para criar um arquivo temporário desse mesmo arquivo.
Eu preciso enviar esse arquivo por e-mail ele envia tudo certinho mas se por ventura outro usuário executar a mesma rotina e for enviar o arquivo ele dá erro, falando que o arquivo já está sendo utilizado por outro aplicativo, eu estava lendo dá para criar um arquivo temporário correto ?

Como eu faço para criar o arquivo temporário desse PDF mantendo a extensão e o conteudo do mesmo, na realidado fazendo uma cópia dele como temporario.
JABA 14/08/2012 17:39:51
#407939
Quando você envia esse arquivo pelo email, você tem que fecha-lo ao final da rotina, senão outro usuário não conseguirá manipula-lo.

vlw
ALEVALE 14/08/2012 20:00:30
#407944
Como pode colocar um exemplo ?
ALTAIR148 14/08/2012 20:19:53
#407945 Resposta escolhida
Acho que o amigo JABA quis dizer assim, veja onde eu assinalei que libera o arquivo.

Public Sub Envia()
        [ô]  Try
        [ô] cria uma instância do objeto MailMessage
        Dim mMailMessage As New MailMessage()
        [ô] Define o endereço do remetente
        mMailMessage.From = New MailAddress([Ô]site@1.com.br[Ô])
        [ô] Define o destinario da mensagem
        mMailMessage.To.Add(New MailAddress(Destino))
        [ô] Define o assunto
        mMailMessage.Subject = Assunto
        [ô] Define o corpo da mensagem
        mMailMessage.Body = Corpo
        [ô] Define o formato do email como HTML
        mMailMessage.IsBodyHtml = True
        [ô] Define a prioridade da mensagem como normal
        mMailMessage.Priority = MailPriority.High
        mMailMessage.Attachments.Add(New Attachment(Anexo))
        [ô] Cria uma instância de SmtpClient - Nota - Define qual o host a ser usado para envio
        [ô] de mensagens, no local de smtp.server.com use o nome do SEU servidor
        Dim mSmtpClient As New SmtpClient
        mSmtpClient.Host = [Ô]smtp.live.com[Ô]
        [ô] Envia o email
        mSmtpClient.Credentials = New Net.NetworkCredential([Ô]zzz[Ô], [Ô]zzz[Ô])
        mSmtpClient.EnableSsl = True
        mSmtpClient.Port = 25
        mSmtpClient.Send(mMailMessage)
        Dim DAL As New DAL
        DAL.MarcaEnviada(ID)
        mMailMessage.Dispose() [ô] ====> aqui eu libero o arquivo.
        [ô]  Catch ex As Exception
        [ô]      MsgBox(ex.Message)
        [ô]  End Try

    End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar