E-Mail anhänge aus einem Ordner senden

Das Wort Async nimmt er nicht. Dann komm Fehlermeldung: Fehler bei der Überladungsauflösung, da keine zugreifbare "SendAsync" diese Anzahl von Argumenten akzeptiert.

Sobald es ums löschen geht, kommt immer diese Fehlermeldung:
In System.IO.IOException ist eine Ausnahme von Typ "mscorlib.dll" aufgetreten, doch wurde diese im Benutzercode nicht verarbeitet.
Der Prozess kann nicht auf die Datei zugreifen, da sie von einem anderen Prozess verwendet wird.
Falls ein Handler für diese Ausnahme vorhanden ist, kann das Programm möglicherweise weiterhin sicher ausgeführt werden.
Es liegt glaub ich nicht ans senden, sondern um irgendwas anderes. Woran könnte es liegen?

Habe den lösch code genau wie du es geschrieben hast unter :

If e.Error Is Nothing Then
Dim DeleteFiles As String()
Dim FileName AS String
If System.IO.Directory.Exists("C:\Users\System1\Test\") Then
DeleteFiles = IO.Directory.GetFiles("C:\Users\System1\Test\", "*.txt")
For i As Integer = 0 To UBound(DeleteFiles)
FileName = System.IO.Path.GetFileName(Delete Files(i))
IO.File.Delete("C:\Users\System1\Test\" & FileName)
Next
End If

Den gleichen Pfad wie die mail

Wie kann ich den Instanz SmtpClient beim senden erstellen und beenden disposen? Wie geht das?

Habe jetzt so geschrieben:
smtpServer.SendAsync(mail, "")
smtpServer.Dispose()

Das klappt noch nicht.
Ist das eine schwere Geburt.

Ich habe rum probiert und leider klappt das nicht so wie ich mir das vorstelle

SmtpClient ist ein IDisposable, dessen Instanz solltest Du beim Senden erstellen und beim Beenden des Sendens disposen.
Das verstehe ich auch nicht richtig ganz.
Habe es versucht mit smtpServer.Dispose(). Aber leider will mein Programm nicht so wie ich es mir vorstelle

Dann kommt eine Fehlermeldung: "Dispose" ist kein Member von "Mail".
Habe es dann so geschrieben;
If e.Error Is Nothing Then
Dim mail As New MailMessage()
mail = New MailMessage()
mail.Dispose()

Aber es klappt noch nicht.

Hier der komplette code.
mail.Dispose nimmer er nicht da mail nicht (irgendwie) vorhanden ist:

Public Class Form1
Private Shared mailSent As Boolean = False
Private Shared Sub SendCompletedCallback(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs)
If e.Error Is Nothing Then
MsgBox("gesendet!", MsgBoxStyle.Information)
Mail.Dispose()
Dim DelelteFiles As String()
Dim FileName As String
If System.IO.Directory.Exists(TB_Speicherpfad.Text) Then
DelelteFiles = IO.Directory.GetFiles(TB_Speicherpfad.Text, "*.*")
For i As Integer = 0 To UBound(DelelteFiles)
FileName = System.IO.Path.GetFileName(DelelteFiles(i))
IO.File.Delete(TB_Speicherpfad.Text & FileName)
Next
MsgBox("gelöscht!", MsgBoxStyle.Information)
End If
End If
mailSent = True
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
Dim attachment As Attachment = Nothing
smtpServer.Credentials = New Net.NetworkCredential(TB_Email.Text, TB_Passwort.Text)
'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
AddHandler smtpServer.SendCompleted, AddressOf SendCompletedCallback
Dim Datei As Object = TB_Speicherpfad.Text
Dim sPath As String = Datei
If sPath.EndsWith("\") And sPath.Length > 3 Then
sPath = sPath.Substring(0, sPath.Length - 1)
End If
If System.IO.Directory.Exists(sPath) Then
Dim sFiles() As String = System.IO.Directory.GetFiles(sPath, "*.*")
With mail
.From = New MailAddress(TB_Email.Text)
.To.Add(TB_Email.Text)
.Subject = System.Environment.MachineName + " " + "User"
.Body = "In dieser Mail befinden sich evt. Anlagen."
Dim sFile As String
For Each sFile In sFiles
.Attachments.Add(New Attachment(sFile))
Next
End With
End If
smtpServer.SendAsync(mail, "")