Dim atcname
per = tr.ReadLine()
tr.Close()
per = Right(per, Len(per) - 7)

myemail = Trim(EMAIL(per))
mypwd = Trim(PWD(per))
atcname = GetAttach(per)
If atcname <> "" Then
PrintLog2("Есть что отправлять")
Else
alreadyProcessing = False
PrintLog2("Нечего отправлять")
Exit Try

End If

Dim m As New MailMessage _
(myemail, "test@mail.ru", "SCREENS", atcname)
m.Attachments.Add(New System.Net.Mail.Attachment(atcname))



Dim sc As SmtpClient = New SmtpClient
sc.Host = "smtp.mail.ru"
sc.Port = 25
' sc.EnableSsl = True

sc.Timeout = 900000

sc.UseDefaultCredentials = False

sc.Credentials = New NetworkCredential(myemail, mypwd)

'sc.Send(mm)

sc.Send(m)
PrintLog2("Сообщение отправлено")
m.Dispose()
sc.Dispose()
My.Computer.FileSystem.DeleteFile(atcname)
PrintLog2("Файл архива удален")

____________________________
Здесь отправляется файл по емэйл, после отправки файл должен удаляться. На некоторых компах с хорошим нетом, дает удалить файл вложения после отправки. На другом (пока на одном выявилось), сообщение отправляет, пишет в лог сообщение отправлено
но зависает на удалении файла вложения. Что делать? Поставил dispose , может не их а что-то другое нужно ставить?
Что может блокировать файл вложения

Таймер запущен ___22.08.2014 11:49:12
Мы-сервер, пытаемся отправить почту
Есть что отправлять
Сообщение отправлено
Файл архива удален
Таймер запущен ___22.08.2014 11:54:12
Мы-сервер, пытаемся отправить почту
Есть что отправлять
Сообщение отправлено
Файл архива удален
Таймер запущен ___22.08.2014 11:56:08
Мы-сервер, пытаемся отправить почту
Есть что отправлять
Сообщение отправлено
__________________________
и вот так останавливается и зависает , в смысле исключения не возникает

Спасибо всем!
Сделал using, но теперь возникает ошибка при отправке больших файлов
интернет плохой (100 кб отправлянтся нормально, 1 мб ошибка)

Protected Sub tt_elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs)
Try

If alreadyProcessing2 Then
Exit Sub
End If

alreadyProcessing2 = True


Dim path As String = "c:\logXXX.txt"
Dim mypwd As String

Dim per As String
Dim myemail As String
'Dim tr As StreamReader = New StreamReader("c:\kurx\report.ini")
Dim tr As StreamReader = New StreamReader(My.Application.Info.DirectoryPath & "\" & "report.ini")
'My.Application.Info.DirectoryPath & "\" &

Dim atcname
per = tr.ReadLine()
tr.Close()
per = Right(per, Len(per) - 7)

myemail = Trim(EMAIL(per))
mypwd = Trim(PWD(per))
atcname = GetAttach(per)
If IsServer(per) <> "1" Then
alreadyProcessing2 = False
Exit Sub
End If

PrintLog2("Мы-сервер, пытаемся отправить почту")

If atcname <> "" Then
PrintLog2("Есть что отправлять___" & Date.Now.ToString & " файл " & atcname)
Else
alreadyProcessing2 = False
PrintLog2("Нечего отправлять__" & Date.Now.ToString)
Exit Try

End If

' Dim m As New MailMessage _
' (myemail, "test@mail.ru", "SCREENS", atcname)
' m.Attachments.Add(New System.Net.Mail.Attachment(atcname))


Using m As New MailMessage _
(myemail, "yug_test@mail.ru", "SCREENS", atcname)
m.Attachments.Add(New System.Net.Mail.Attachment(atcname))
PrintLog2("К сообщению добавлено вложение в ___" & Date.Now.ToString & " файл " & atcname)
Using sc As SmtpClient = New SmtpClient
sc.Host = "smtp.mail.ru"
sc.Port = 25
' sc.EnableSsl = True

sc.Timeout = 900000

sc.UseDefaultCredentials = False

sc.Credentials = New NetworkCredential(myemail, mypwd)


sc.Send(m)
PrintLog2("Сообщение отправлено____" & Date.Now.ToString)
m.Dispose()
sc.Dispose()
End Using
End Using

Thread.Sleep(300000)
My.Computer.FileSystem.DeleteFile(atcname)
PrintLog2("Файл архива удален____" & Date.Now.ToString)
alreadyProcessing2 = False

Catch ex As SmtpException
' WebException InnerException,

PrintLog2("Произошла ошибка при отправке ___" & Date.Now.ToString)
PrintLog2(ex.ToString)



Dim inner As Exception = ex.GetBaseException
PrintLog2(inner.Message.ToString)
PrintLog2("__________________")
alreadyProcessing2 = False

End Try
End Sub

возникает такая ошибка, из лог файла

Мы-сервер, пытаемся отправить почту
Есть что отправлять___25.08.2014 13:22:52 файл \\serverN\SCREENS\SERVERN_192.168.1.2_19082014.7z
К сообщению добавлено вложение в ___25.08.2014 13:22:52 файл \\serverN\SCREENS\SERVERN_192.168.1.2_19082014.7z
Произошла ошибка при отправке ___25.08.2014 13:22:53
System.Net.Mail.SmtpException: Failure sending mail. ---> System.IndexOutOfRangeException: Index was outside the bounds of the array.
at System.Net.Base64Stream.EncodeBytes(Byte[] buffer, Int32 offset, Int32 count, Boolean dontDeferFinalBytes, Boolean shouldAppendSpaceToCRLF)
at System.Net.Base64Stream.Write(Byte[] buffer, Int32 offset, Int32 count)
at System.Net.Mime.MimePart.Send(BaseWriter writer)
at System.Net.Mime.MimeMultiPart.Send(BaseWriter writer)
at System.Net.Mail.Message.Send(BaseWriter writer, Boolean sendEnvelope)
at System.Net.Mail.SmtpClient.Send(MailMessage message)
--- End of inner exception stack trace ---
at System.Net.Mail.SmtpClient.Send(MailMessage message)
at MonitorScreens.MonitorKurier.tt_elapsed(Object sender, ElapsedEventArgs e)
Index was outside the bounds of the array.


т.е. то возникает, то нет эта ошибка
прчем возникает через секунду после обработки

Просто создаются архивы, 2- 10 мб, где-то и 10 нормально уходит, но в некоторых филиалах скорость 128 кбит,
и из-за этого наверное получается ошибка.
Можно, конечно разюивать архивы на тома и создавать больше сообщений, но нет ли другого выхода.
Таймаут я поставил, может еще что?