[Resolvido] Enviar email VB.NET

Tecnicamente após o envio (Send) poderia exclui-lo. Mas caso ainda o smtp esteja utilizando pode fugir do controle do framework.

Tente utilizar um try, catch e finally e coloque o código de exclusão no finally. Mas para não perder seu arquivo verifique que não houve nenhum erro no bloco try antes de excluir o arquivo.

Abraços...

Mesmo problema.

"O processo não pode acessar o arquivo 'D:\Documentos\Visual Studio 2005\Projects\ControleRGI\ControleRGI\bin\Debug\backdados\backDados18_12_2008 00-03-40.gz' porque ele está sendo usado por outro processo."

Mesmo usando o bloco try como o sugerido:

Imports System.Net.mail
Imports System.IO

Public Class email

Public Shared Sub enviaMensagemEmail(ByVal from As String, ByVal recepient As String, ByVal bcc As String, ByVal cc As String, ByVal subject As String, ByVal body As String, ByVal servidorSMTP As String, ByVal anexo As String)
Try
Dim mMailMessage As New MailMessage()

mMailMessage.From = New MailAddress(from)

mMailMessage.To.Add(New MailAddress(recepient))

If Not bcc Is Nothing And bcc <> String.Empty Then
mMailMessage.Bcc.Add(New MailAddress(bcc))
End If

If Not cc Is Nothing And cc <> String.Empty Then
mMailMessage.CC.Add(New MailAddress(cc))
End If

mMailMessage.Subject = subject

mMailMessage.Body = body

mMailMessage.IsBodyHtml = True

mMailMessage.Priority = MailPriority.High

If Not anexo Is Nothing Then
mMailMessage.Attachments.Add(New Attachment(anexo))
End If

mMailMessage.DeliveryNotificationOptions = DeliveryNotificationOptions.OnSuccess

Dim mSmtpClient As New SmtpClient(servidorSMTP)
Dim status As New System.Net.Mail.SmtpStatusCode

mSmtpClient.Send(mMailMessage)

mMailMessage = Nothing
mSmtpClient = Nothing
Catch ex As Exception
MsgBox(ex)
Finally
File.Delete(anexo)
End Try

End Sub
End Class

Não conheço uma solução para isso. Uma forma seria criar um serviço que de tempo em tempo tenta apagar os arquivos.

Abraços...

Só abusando um pouco... como eu faria esse serviço?

feche as instâncias dos objetos MailMessage e SmtpClient

coloca no bloco finally para garantir:

mMailMessage.Dispose();
mMailMessage = null;
mSmtpClient = null;

veja esse tópico tb.: http://forum.imasters.com.br/index.php?showtopic=288309

sobre criar serviços: http://www.macoratti.net/vbn5_csw.htm, mas para este caso creio que não seja necessário, pois fechando as instâncias já vai liberar o arquivo para delete ou outro tipo de uso.

Deu certo, muito obrigado, eriva_br só tive que usar:

mMailMessage.Dispose()
mMailMessage = Nothing
mSmtpClient = Nothing
Pq o vb não tava reconhecendo o NULL

Agora vou testar se ele não está enviando o arquivo corrompido e tals... mas isso é outra história.

Obrigado a todos!