Vinod Kc Ответов: 1

Как мне переместить файл внутрь 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. Вот в чем была причина. Итак, проблема решена.

1 Ответов

Рейтинг:
7

OriginalGriff

Ответили только на удаление из неотвеченной очереди - решается ОП.