Как мне переместить файл внутрь VB.NET -что ?
Всем привет,
Я использую vb.net 2013 год. У меня есть программа для отправки электронной почты моим клиентам. Это письмо содержит 2 вложения. Один документ word и один файл PDF. Моя программа собирает оба этих пути к файлам с помощью "OpenFileDialog" в vb.net. Собрав эти пути, я сохраняю их в виде списка строк. Затем я отправляю эти файлы с помощью класса MailMessage. После отправки писем мне нужно переместить эти файлы в определенную папку. Но я получил сообщение об ошибке, которое показывает, что один процесс использует эти файлы. Как мне переместить эти файлы ?
Теперь я использую обходной путь. Я просто сохраняю пути к файлам в текстовом файле после отправки писем. А позже, в событии загрузки формы, моя программа прочитает эти пути и переместит все файлы.
Вот моя функция для отправки электронной почты.
Что я уже пробовал:
Public Function SendMail() Dim Result As Boolean = False Try Dim mail As New MailMessage mail.Subject = Me.m_Subject mail.To.Add(Me.m_MailAddress) If Me.m_ccStatus = True Then mail.CC.Add(Me.m_CC) End If mail.From = New MailAddress(Me.m_Credents.UserName) mail.Body = Me.m_BodyText Dim attachF As Net.Mail.Attachment For Each i As String In Me.m_ListOfAttachments attachF = New Net.Mail.Attachment(i) mail.Attachments.Add(attachF) Next Dim smtp As New SmtpClient(Me.m_SmtpClient) smtp.EnableSsl = True smtp.Credentials = New System.Net.NetworkCredential(Me.m_Credents.UserName, Me.m_Credents.PassWord) smtp.Port = Me.m_PortNumber smtp.Send(mail) Result = True Catch ex As Exception Throw New Exception("Can't send e-mail") End Try
Vinod Kc
Ничего страшного, я думаю, что сам нашел ответ.
Вместо этой строки---
Dim mail As New MailMessage
Я написал это ----
Using mail As New MailMessage
Я не правильно распорядился объектом mailmessage. Вот в чем была причина. Итак, проблема решена.